Question

求助：VB中用data控件执行SQL语句例子

VB中用data控件执行SQL语句例子，一个简单的例子就可以 ，用data控件，一个文本框内容来填写性别，例如：查询 性别 like = '男'即可。用data控件！谢谢！

Answer 1

请将数据库路径及名称改为你自己的数据库据库路径及名称。将Text1的属性页的属性DataSource设置Data1，属性DataField设写为性别。将SQL语句的表名改为你的数据表名。代码如下：

Option Explicit
Dim sql As String

Private Sub Form_Load()
sql = "select * from b1 Where 性别 Like'" & Text1 & "%'"
Data1.DatabaseName = "D:\Program Files\Microsoft Visual Studio\VB98\管理系统.mdb"
Data1.RecordSource = sql
End Sub

Answer 2

Data1.RecordSource = "select * from 图书基本信息表 where TSBH like '*" & Text1.Text & "*'"