vb查询窗体的制作

来源：百度知道 编辑：UC知道 时间：2024/06/24 06:23:24
Public ConnectionString As String
Public rs As ADODB.Recordset
Dim sql As String

Private Sub Command1_Click()
Set rs = New ADODB.Recordset
sql = "select * from 图书资料 where 书名 like" + "'" + "%" + Text7.Text + "%" + "'"
rs.Open sql
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Text5.Text = rs.Fields(4)
Text6.Text = rs.Fields(5)
rs.Close
End Sub

Private Sub Form_Load()
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\毕业设计\20051506030127罗敏\book.mdb;Persist Security Info=False"
Set Conn = New ADODB.Connection
Conn.Open ConnectionString
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""

'form_load 里面不用写清空的程序，你可以把text中的文本在属性里清空。

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String

Private Sub Command1_Click()
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\Data.mdb"
sql = "select * from 图书资料 where 书名 like" + "'" + "%" + Text7.Text + "%" + "'"
rs.Open sql, cn

Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Text5.Text = rs.Fields(4)
Text6.Text = rs.Fields(5)

rs.close
cn.close
set rs=nothing
set cn=nothing

End sub

你尝试把这句话rs.Open sql改为rs.Open sql ConnectionString,1,1
检查下你的数据控件是否连接到数据库。其实我有一点看不懂，你既然用到数据库连接控件了怎么还用代码连接？
建议，你用数据库控件的绑定技术，那样比较简单，工作量少。并且不用检查Txt的名字与给的数据是否一致的问题。