使用vb向access插入数据使用insert语句 说我insert附近有语法错误 15
代码:DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetSetrs=NothingDimstrSqlAsStrin...
代码:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set rs = Nothing
Dim strSql As String
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "E:\Project\database" & "\MyDataBase.mdb"
conn.Open
strSql = "Insert Into AdminUser(username,password,input,print,search) Values ('" & RUserName & "','" & RPassWord & "'," & cinput & "," & cprint & "," & search & ")"
rs.Open strSql, conn
我使用的access2003+vb6.0 我将strSql中的语句放到了一个textbox中 显示如下:
Insert Into AdminUser(username,password,input,print,search) Values ('me','111111',1,1,1)
将以上语句复制到我的Access中执行发现可以运行,但是在vb中执行却出错,AdminUser表中有一个自动增长的名字为id的字段 为数值型
这肿么办啊 在线等 - - 急急急 展开
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set rs = Nothing
Dim strSql As String
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "E:\Project\database" & "\MyDataBase.mdb"
conn.Open
strSql = "Insert Into AdminUser(username,password,input,print,search) Values ('" & RUserName & "','" & RPassWord & "'," & cinput & "," & cprint & "," & search & ")"
rs.Open strSql, conn
我使用的access2003+vb6.0 我将strSql中的语句放到了一个textbox中 显示如下:
Insert Into AdminUser(username,password,input,print,search) Values ('me','111111',1,1,1)
将以上语句复制到我的Access中执行发现可以运行,但是在vb中执行却出错,AdminUser表中有一个自动增长的名字为id的字段 为数值型
这肿么办啊 在线等 - - 急急急 展开
展开全部
password是Access的关键字,需加中括号
strSql = "Insert Into AdminUser(username,[password],input,print,search) Values ('" & RUserName & "','" & RPassWord & "'," & cinput & "," & cprint & "," & search & ")"
strSql = "Insert Into AdminUser(username,[password],input,print,search) Values ('" & RUserName & "','" & RPassWord & "'," & cinput & "," & cprint & "," & search & ")"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不能这么写!应该这样conn.execute(sql) 如果用rs.open 也要先select 然后addnew update
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你编译好以后独立运行。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询