vb数据库编程

来源：百度知道 编辑：UC知道 时间：2024/06/27 10:01:57
vb数据库查询，输入查询条件（如：一季度，一号线），得到查询结果（34），见图：http://map.up2.topzj.com/data/map/23/22/13/a/07/02/01/1_Z2PGZ6sh9wqU.jpg
请问用什么方法比较好？

请将数据库路径及名称改为你自己的数据库据库路径及名称。将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