请教各位大仙一个数据库操作的问题！急！急！

Question

先在SQL SEVER 里试一下SQL文，看看是不是有全角的空格等

Answer 1

报错明显是sql语句有错误
"select * from 表2 where 职员姓名=" & "'" & Wang Ying & "'"
这样试试看

Answer 2

报错明显是sql语句有错误
"select * from 表2 where 职员姓名=" & "'" & Wang Ying & "'"
这样试试看

Answer 3

select * from 表2 where 职员姓名='Wang Ying'在SQL Server中已经运行过，没有任何问题！

Answer 4

换一种方式吧！
如下：（可能有多余的东西，看看吧）
Dim connstr As String
Dim i, j, X, y As Integer
Dim re As New ADODB.Recordset
Dim re1 As New ADODB.Recordset
Dim re2 As New ADODB.Recordset
Dim db As New ADODB.ConnectionPrivate Sub Form_Load()
connstr = "provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xtyv;Data Source=ntserver;Connect Timeout=30"If db.State = 0 Then
db.Open connstr
re.CursorLocation = adUseClient
re.Open "select* from system", connstr, adOpenDynamic, adLockOptimistic
re1.CursorLocation = adUseClient
re1.Open "select* from ruzhudj order by id ", connstr, adOpenDynamic, adLockOptimistic
re2.CursorLocation = adUseClient
re2.Open "select* from bill_night order by id ", connstr, adOpenDynamic, adLockOptimistic
End IfFmnight.Picture = LoadPicture("c:\wave.jpg")

Answer 5

换一种方式吧！
如下：（可能有多余的东西，看看吧）
Dim connstr As String
Dim i, j, X, y As Integer
Dim re As New ADODB.Recordset
Dim re1 As New ADODB.Recordset
Dim re2 As New ADODB.Recordset
Dim db As New ADODB.ConnectionPrivate Sub Form_Load()
connstr = "provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xtyv;Data Source=ntserver;Connect Timeout=30"If db.State = 0 Then
db.Open connstr
re.CursorLocation = adUseClient
re.Open "select* from system", connstr, adOpenDynamic, adLockOptimistic
re1.CursorLocation = adUseClient
re1.Open "select* from ruzhudj order by id ", connstr, adOpenDynamic, adLockOptimistic
re2.CursorLocation = adUseClient
re2.Open "select* from bill_night order by id ", connstr, adOpenDynamic, adLockOptimistic
End IfFmnight.Picture = LoadPicture("c:\wave.jpg")

Answer 6

SQL文-error!!
sql="SELECT"
sql=sql & " RECORDFIELD1 "
sql=sql & " RECORDFIELD2 "
...
sql=sql & " FROM "
sql=sql & " TABLENAME "用好的编程格式！可以避免文法错误！

Answer 7

cn.Open str
dim sql as string
sql = "select * from 表2 where 职员姓名='Wang Ying'"
rst.ActiveConnection = cn
rst.Open sql, cn, adOpenKeyset, adLockOptimistic

Answer 8

cn.Open str
dim sql as string
sql = "select * from 表2 where 职员姓名='Wang Ying'"
rst.ActiveConnection = cn
rst.Open sql, cn, adOpenKeyset, adLockOptimistic

Answer 9

rst.Open sql, cn, adOpenKeyset, adLockOptimistic
这样写就可以了，不要加adCmdTable