vb数据库的搜索

来源：百度知道 编辑：UC知道 时间：2024/09/20 16:31:02
Sub beginbrow()
txtname.Locked = True
txtphone.Locked = True
txtmail.Locked = True
txtaddress.Locked = True
txtqq.Locked = True

cmdok.Enabled = False
cmdcancle.Enabled = False
cmdadd.Enabled = True
cmddelete.Enabled = True
cmdchange.Enabled = True
End Sub

Sub beginedit()
txtname.Locked = False
txtphone.Locked = False
txtmail.Locked = False
txtaddress.Locked = False
txtqq.Locked = False
cmdok.Enabled = True
cmdcancle.Enabled = True
cmdadd.Enabled = False
cmddelete.Enabled = False
cmdchange.Enabled = False
End Sub

Private Sub cmdadd_Click()
dtstudent.Recordset.AddNew
Call beginedit
End Sub

Private Sub cmdcancle_Click()
dtstudent.UpdateControls
Call beginbrow
End Sub

Private Sub cmdchange_Click()
dtstudent.Recordset.Edit
Call beginedit
End Sub

Private Sub cmddelete_Click()

Dim rs As ADODB.Recordset
Dim CnStr As String, Sql As String
Dim conn As New ADODB.Connection
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data1.mdb;Persist Security Info=False" '连接数据库
.CommandTimeout = 300
.Open
End With
sql="SELECT [姓名] FROM 01 where [姓名]=张三"

这个是连接数据库和查找的例子