Question

在数据库查询的代码(VB.NET)

在TextBox1输入的名字
然后点Button1就可以在数据库(名字:图书管信息)中的表(名字:书籍信息)中自动查询
并在控件DataGrid1上显示 查询结果(查询的结果不能编辑)

Answer 1

下面是我写的在MSFlexGrid显示数据库查询结果的程序,你可以参考一下
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Provider = "OraOLEDB.Oracle"
cn.Open "数据库名", "用户名", "密码"

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

sql = "select * from 书籍信息 where name='" & text1.text & "'

rs.Source = sql
Set rs.ActiveConnection = cn
rs.Open
i = 0
Do While Not rs.EOF
i = i + 1
MSFlexGrid1.Rows = i + 1
MSFlexGrid1.TextMatrix(i, 0) = rs.Fields("字段1")
MSFlexGrid1.TextMatrix(i, 2) = rs.Fields("字段2")
MSFlexGrid1.TextMatrix(i, 3) = rs.Fields("字段3")
rs.MoveNext
loop