数据控件是adodc1,记录源命令是2通过一张表 option1是按编号查询 2是按名字查询
帮我看看代码哪错了
系统说的from子语句错误对象Refresh的方法 IAdodc失败
按调试后 定格在adodc1.refresh
Private Sub Command1_Click()
Dim sql$, ziduan$, tiaojian$
'字段列表
ziduan = "编号,部门,姓名,基本工资,岗位工资,职务补贴,奖金,房租,水电费"
If Option1.Value = True Then
tiaojian = "编号= '" + Text1.Text + "'"
Else
tiaojian = "姓名='" + Text2.Text + "'"
End If
sql = "select " & ziduan & " from 工资信息 where " & tiaojian
Debug.Print sql
'改变记录源
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub
谁帮帮,不胜感激
帮我看看代码哪错了
系统说的from子语句错误对象Refresh的方法 IAdodc失败
按调试后 定格在adodc1.refresh
Private Sub Command1_Click()
Dim sql$, ziduan$, tiaojian$
'字段列表
ziduan = "编号,部门,姓名,基本工资,岗位工资,职务补贴,奖金,房租,水电费"
If Option1.Value = True Then
tiaojian = "编号= '" + Text1.Text + "'"
Else
tiaojian = "姓名='" + Text2.Text + "'"
End If
sql = "select " & ziduan & " from 工资信息 where " & tiaojian
Debug.Print sql
'改变记录源
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub
谁帮帮,不胜感激
Dim sql$, ziduan$, tiaojian$
'字段列表
ziduan = "编号,部门,姓名,基本工资,岗位工资,职务补贴,奖金,房租,水电费"
If Option1.Value = True Then
tiaojian = "编号= '" + Text1.Text + "'"
Else
tiaojian = "姓名='" + Text2.Text + "'"
End If
sql = "select " & ziduan & " from 工资信息 where " & tiaojian
Debug.Print sql
'改变记录源
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub
加Adodc1.CommandType = adCmdText上这条就行了。