Private Sub Command2_Click()
Dim SQL
Dim dbname As String
Dim db As Database
dbname = App.Path
If Right$(dbname, 1) <> "\" Then
dbname = dbname + "\"
dbname = dbname + "职员档案1.mdb"
Set db = OpenDatabase(dbname)
db.Close
Data1.DatabaseName = dbname
SQL = "select * from 职员基本情况  where" & Combo1.Text & " = " & Text1.Text & ""
Data1.RecordSource = SQL
Data1.Visible = False
Data1.Refresh
MSFlexGrid1.Visible = True
End If
End Sub
老是提示From子句语法错误 怎么搞的啊

SQL = "select * from 职员基本情况  where " & Combo1.Text & " =' " & Text1.Text & "'" 'where后面加一个空格,再添加两个'

不行啊

什么不行啊,什么提示啊?
SQL = "select * from 职员基本情况  where " & Combo1.Text & "='" & Text1.Text & "'"

可以了啊,可以告诉我这个符号 ' 什么意思啊,什么作用啊

SQL语句中的字符串用单引号引起来。

凡是字符就要用‘單引號

[[it] 本帖最后由 jxyga111 于 2008-11-18 14:06 编辑 [/it]]