Question

谁能告诉我vb查询sql的代码

数据库名称=图书管理系统，表名=图书表，属性列=图书编号，图书名
根据图书编号查询所有图书信息
若是根详细更好。

Answer 1

Dim sConnString As String = "data source=服务器名;initial catalog = 图书管理系统;integrated security = true"
'SQL语句
Dim sSQL As String = "SELECT * FROM 图书表 Where 图书编号 = ?"
'创建一个SqlDataAdapter对象
Dim dGetProducts As New SqlDataAdapter(sSQL, sConnString)
' 创建一个DataSet对象
Dim dProducts As New DataSet()
dGetProducts.Fill(dProducts, "图书表")
DataGridView.DataSource = dProducts.Tables("图书表")

（integrated security = true ） 判读是否用集成验证
？的敌方 写你的查询图书编号，如果是用textbox 输入 用
Dim sSQL As String = "SELECT * FROM 图书表 Where 图书编号 = " & textbox1.text

Answer 2

这个就是VB查询数据库...
Dim rec As New Recordset
Dim flag As Integer
If rec.State = adStateOpen Then rec.Close '判断记录集状态，如果是打开就先关闭

sql = "select * from 图书表 where 图书编号 = '" & Textt.Text & "' "
rec.Open sql, con, adOpenStatic, adLockOptimistic '打开记录集
rec.Requery
If rec.RecordCount < 1 Then
MsgBox ("无此编号!")
Exit Sub
Text1.Text = ""
Text1.SetFocus
End If
这是查询按钮的代码...