UC知道vb access制作查询
来源：百度知道 编辑：UC知道 时间：2024/05/17 12:21:11
自学vb，真是困难呀，通过网络，小弟好不容易把vb与access连接成功。
数据库为access，连接用ado控件，连接数据库没用代码，也不会用。现在可以把text、datagrid与access实现绑定。目前水平就学到此。
想做一个查询，数据库三个字段（姓名、学科、分数），有两条记录就行（如：张三 数学 78 ；李四 数学 69），目的是学习。
想做到的效果为：
窗体上一个text，用来输入要查询人员的姓名。一个按钮，用来查询。当输入姓名后，点击按键，就能在别一个窗体中列出要查询人员的姓名、学科、分数等信息。
尽可能说得细一点，因为小弟代码不熟练，尽可能说明哪些代码是在哪些控件上插入的。
如果有时间，可以做一个实例，发到我的邮箱。Afrynijy@163.com
谢谢了先！
数据库为access，连接用ado控件，连接数据库没用代码，也不会用。现在可以把text、datagrid与access实现绑定。目前水平就学到此。
想做一个查询，数据库三个字段（姓名、学科、分数），有两条记录就行（如：张三 数学 78 ；李四 数学 69），目的是学习。
想做到的效果为：
窗体上一个text，用来输入要查询人员的姓名。一个按钮，用来查询。当输入姓名后，点击按键，就能在别一个窗体中列出要查询人员的姓名、学科、分数等信息。
尽可能说得细一点，因为小弟代码不熟练，尽可能说明哪些代码是在哪些控件上插入的。
如果有时间，可以做一个实例，发到我的邮箱。Afrynijy@163.com
谢谢了先！
用SQL语句
Global cnBw As ADODB.Connection
Global rsBw As ADODB.Recordset
Set cnBw = New ADODB.Connection
Set rsBw = New ADODB.Recordset
PathBw = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WebAccess\Node\BwPData.mdb"
cnBw.Open PathBw
rsBw.Open "Select * from bwanalogtable where TagName='A相电压1'", cnBw, adOpenKeyset, adLockPessimistic
cnBw.CursorLocation = adUseServer
If rsBw.RecordCount > 0 Then
xlSheet.Cells(2, 1) = "A相电压1"
For i = 1 To rsBw.RecordCount
xlSheet.Cells(1, i + 1) = rsBw.Fields("LogTime")
xlSheet.Cells(2, i + 1) = rsBw.Fields("AvgValue")
rsBw.MoveNext
Next i
xlSheet.Columns.AutoFit
End If
rsBw.Close
cnBw.Close