VB的DATA控件问题

Question

Private Sub cmd_qry_Click()
'Set db = OpenDatabase(App.Path & "\" & "工资表.mdb")ssql = ""
ssql = ssql & "select a.职工号," & vbCrLf
ssql = ssql & "select a.职工姓名," & vbCrLf
ssql = ssql & "select a.性别," & vbCrLf
ssql = ssql & "select a.职称或职务," & vbCrLf
ssql = ssql & "select a.基本工资," & vbCrLf
ssql = ssql & "select a.岗位工资," & vbCrLf
ssql = ssql & "select a.应发工资," & vbCrLf
ssql = ssql & "select a.所得税," & vbCrLf
ssql = ssql & "select a.实发工资," & vbCrLf
ssql = ssql & "select a.部门编号," & vbCrLf
ssql = ssql & "select a.参加工作时间," & vbCrLf
ssql = ssql & "select b.部门名称," & vbCrLf
ssql = ssql & "select b.部门编号" & vbCrLf
ssql = ssql & "from 基本工资表 a," & vbCrLf
ssql = ssql & " 部门表 b," & vbCrLf
ssql = ssql & "where a.部门编号＝b.部门编号" & vbCrLf
If Txt_id <> "" Then
ssql = ssql & "and a.职工号='" & Trim(Txt_id) & "'" & vbCrLf
End If
Data1.RecordSource = ssql
Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then
MsgBox "没有满足条件的记录存在", , "提示"
Me.MousePointer = vbDefault
cmd_conti.Enabled = False
cmd_conti.Default = False
Exit Sub－－－－－－－－－－－－－－－－－－－－－－－运行出错提示！
实时错误’3075‘：
总是提示 Data1.Refresh 语法错误 在查询表达式‘ select a.职工姓名中。-------------------------------------------------------------------
回答    共 1 条
ssql = "select a.职工号,a.职工姓名,a.性别,a.职称或职务,a.基本工资,a.岗位工资,a.应发工资,a.所得税,a.实发工资,a.部门编号,a.参加工作时间,b.部门名称,b.部门编号 from 基本工资表 a,部门表 b where a.部门编号＝b.部门编号"
回答者：分类名人 分类上升达人 lzh741206 - 总兵 十一级 6-2 22:4
－－－－－－－－－－－－－－－－－－－－－－－－－－－－未解决！！
问题补充：实时错误’3075‘：
操作符丢失 在查询表达式‘a.部门编号＝b.部门编号 and a.职工号='001''中。－－－－－－－－－－－－－－－－－－－－－－－－－－看你们拉，高手出招吧。另外有没DATA控件的使用源代码发来看看，感谢拉。

Answer 1

不要用data了,用ado吧你debug.print  ssql  看显示什么

Answer 2

ssql = "" 
ssql = ssql & "SELECT a.职工号," & vbCrLf 
ssql = ssql & " a.职工姓名," & vbCrLf 
ssql = ssql & " a.性别," & vbCrLf 
ssql = ssql & " a.职称或职务," & vbCrLf 
ssql = ssql & " a.基本工资," & vbCrLf 
ssql = ssql & " a.岗位工资," & vbCrLf 
ssql = ssql & " a.应发工资," & vbCrLf 
ssql = ssql & " a.所得税," & vbCrLf 
ssql = ssql & " a.实发工资," & vbCrLf 
ssql = ssql & " a.部门编号," & vbCrLf 
ssql = ssql & " a.参加工作时间," & vbCrLf 
ssql = ssql & " b.部门名称," & vbCrLf 
ssql = ssql & " b.部门编号" & vbCrLf 
ssql = ssql & "FROM 基本工资表 a," & vbCrLf 
ssql = ssql & " 部门表 b," & vbCrLf 
ssql = ssql & "WHERE a.部门编号＝b.部门编号" & vbCrLf 
If Txt_id <> "" Then 
ssql = ssql & "AND a.职工号='" & Trim(Txt_id) & "'" & vbCrLf 
End If