这样往数据库中添加字段有错吗?

来源:百度知道 编辑:UC知道 时间:2024/05/05 15:00:31
Dim db,ConnStr,DBPath
DBPath = "pic.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(DBPath)
'当数据库设置过密码时用以下语句
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath(DBPath)
On Error Resume Next
Set db = Server.CreateObject("ADODB.Connection")
db.Open ConnStr
If Err Then
Err.Clear
Conn.Close
Set Conn = Nothing
Response.Write("数据库链接出错,请检查链接字符串。")
Response.End()
End If
dim rs,strsql
set rs=server.CreateObject("adodb.recordset")
strsql="select * from image"
rs.open strsql,db,1,2
rs.addnew
rs("FileName")=now()
rs("subdate")=now()
response.Write "djsadjf"
rs.update
对,就是插入字段.

你这是插入记录,不是插入字段!
Dim db,ConnStr,DBPath
DBPath = "pic.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath(DBPath)
On Error Resume Next
Set db = Server.CreateObject("ADODB.Connection")
db.Open ConnStr
If Err Then
Err.Clear
db.Close
Set db = Nothing
Response.Write("数据库链接出错,请检查链接字符串。")
Response.End()
End If
dim rs,strsql
set rs=server.CreateObject("adodb.recordset")
strsql="select * from image"
rs.open strsql,db,1,3
rs.addnew
rs("FileName")=now()
rs("subdate")=now()
response.Write "djsadjf"
rs.update
rs.close
set rs=nothing
db.close
set db=nothing

response.Write "djsadjf" 和rs.update换个位置就OK了!