如果是变量传过来的话 这个代码为什么不能执行呢 正确如何写 谢谢!!!

Question

好象应该这样写吧。
my=" select * from 个人信息表 where 姓名=‘ " & Combo1.Text & " ' "

Answer 1

回复人： hycao(海草) (  ) 信誉：100  2002-04-21 21:47:00  得分:0  
 
 
  好象应该这样写吧。
my=" select * from 个人信息表 where 姓名=‘ " & Combo1.Text & " ' " 
 
 
这样才正确

Answer 2

不是传变量过来，是打开一个记录集，写法如下
Dim Conn As New ADODB.Connection'声明一个连接
Dim my As New ADODB.Recordset'声明一个记录集
Dim SQL As String'声明一个连接字符串ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & 你的数据库路径 & ";Persist Security Info=False;Jet OLEDB:Database Password=" 你的数据库密码
Conn.Open ConnStrSQL="Select * From 个人信息表  Where 姓名='" & Combo1.Text & "'" 
my.CursorLocation = adUseClient
my.Open SQL,Conn, adOpenDynamic, adLockPessimisticData1.RecordSource = my
Data1.Refresh————————————————————————
以上是连接Access2000的写法

Answer 3

少了一个，补上：
Dim Conn As String