环境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, TaskConIf TaskRct.BOF And TaskRct.BOF Then
MsgBox "没有记录"
End If
End SubPrivate 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,在文本框里粘入查询内容,点按钮,就是没记录
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, TaskConIf TaskRct.BOF And TaskRct.BOF Then
MsgBox "没有记录"
End If
End SubPrivate 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,在文本框里粘入查询内容,点按钮,就是没记录
解决方案 »
- 求助 ] 输入符号的问题
- VB如何输入完文本后按回车,按钮立即响应
- 这个分好得吧,我以前没用过数据库,请问谁知道怎样调用编辑access,或excel,急用
- 高分求家庭理财或个人理财方面的VB源代码???UP有分!!!
- 欢迎加入vb编程乐园(QQ群)!
- 如何知道SQL查询返回的是空值?
- ■■■ 两个小问题,一、选取文本后的光标位置;二、属性能带多个参数吗?■■■
- 没想到把程序打包之后出现了一个严重的问题,请大家帮忙啊谢谢了
- 有点难度哦!
- FOXPRO 9.0 运行程序时,出现无法存取文件
- 有没有VB的多媒体的书,SPEECH RECOGNITION方面的
- 很有挑战性的问题:EXCEL导出后为什么不能关闭进程?
你试下把分号取消试试
改查询:SELECT * FROM 表1 WHERE [userid]=1 and ([name] like '%大%')
这样VB可以了,可是数据库又不行了
MsgBox "没有记录"
End If
End Sub
看看这句有问题没?