求助:VB中用data控件执行SQL语句例子
发布网友
发布时间：2024-10-24 13:06
共2个回答
热心网友
时间：2024-10-24 20:53
请将数据库路径及名称改为你自己的数据库据库路径及名称。将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
热心网友
时间：2024-10-24 20:52
Data1.RecordSource = "select * from 图书基本信息表 where TSBH like '*" & Text1.Text & "*'"
