我觉得我发现了VB的Bug了,用数据库可以查出来,用VB就是查不出来??
环境Windows2000 VB6.0 Access2000,请按我的顺序来
1、
Access2000建一个数据库Datatask1,在里面建一张表,表名为"表1"
表中有三个字段 ID (自动编号) userid(数字) name (文本)
输入一条数据 1,1,重大 (第一个不用输入)
建一个查询,名字不限,内容 SELECT * FROM 表1 WHERE [userid]=1 and ([name] like '*大*');
2、
打开VB,建一个工程,在窗体中加一个文本框和一个按钮,加入ADO2.5引用,输入代码
Public TaskCon As New ADODB.Connection
Public TaskRct As ADODB.Recordset
Private Sub Command1_Click()
strSql = Text1.Text
Set TaskRct = New ADODB.Recordset
TaskRct.Open strSql, TaskCon
If TaskRct.BOF And TaskRct.BOF Then
MsgBox "没有记录"
End If
End Sub
Private Sub Form_Load()
TaskCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataTask1.mdb;Persist Security Info=False"
TaskCon.Open
End Sub
3、运行数据库查询,你可以查到一条记录,
4、运行VB,在文本框里粘入查询内容,点按钮,就是没记录