VB程序员博客
我用ADODC执行SQL语句出现语法错误 请高手解决
我先用模块做的
模块中如下代码
public cns as string
public cs as connection
Public Sub loadmdb()
cns = App.Path
If Right(cns, 1) <> "" Then
cns = cns + ""
End If
cns = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" 小型商店管理系统.mdb" '此处是相对路径 保证没问题
End Sub
frm load事件中调用该连接字符串。代码如下：
Private Sub Form_Load()
Call loadmdb ‘调用连接字符串过程
adodc1.ConnectionString = cns
adodc1.CommandType = adCmdText
adodc1.RecordSource = "select * from 员工工资表" '此地也保证没问题
adodc1.Refresh
End Sub
按钮代码如下
cs.execute "select * from 员工工资表 where id='& text1.text &'"
有问题 就是按钮代码处说有错 编译不了
然后我又用别的办法做了
直接在按钮处写了如下代码 还是有问题
adodc1.recordsource="select * from 员工工资表 where id='& text1.text &'"
adodc1.refresh
说是该行的函数参数错误
帮我看下 谢谢了
对了 忘了一句
在frm load中忘记了两条代码
Set cs = New Connection
cs.Open cnsadodc1.recordsource="select * from 员工工资表 where id='" & text1.text & "'"<
Source=" 小型商店管理系统.mdb" '此处是相对路径 保证没问题
小 的前面多一个空格会没问题 ????? cns = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= 小型商店管理系统.mdb"<
你的变量 cns 是本地路径 我看应该是 cs = "Pro…. 吧 ?
cs = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" 小型商店管理系统.mdb" '此处是相对路径 保证没问题 <
晕看错了<
adodc1.recordsource="select * from 员工工资表 where id=" & Chr(39) & Text1.Text & Chr(39)
呵…那些符号很烦人的 会乱 所以我都用 Chr(39)代替<
adodc1.recordsource="select * from 员工工资表 where id='" & text1.text & "'"
以上这样应该没问题，要注意id字段为字符型，注意双引号的位置。回12F 为什么要符号呢 ？ 经常会有有一堆的单双引号逗号混在一起, 稍不留神便多一个或少一个, 找了老半天有时还让你找不出来…..