vb的数据库问题

来源：百度知道 编辑：UC知道 时间：2024/05/23 15:06:53
我一建立了一个数据库,我想知道怎样编写查找数据库内特定信息的程序?那为高手能帮帮我?谢谢

Dim cnnUser As New ADODB.Connection
Dim rstUser As New ADODB.Recordset

Private Sub Form_Activate()
Combo1.Clear
cnnUser.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db.mpp"
cnnUser.Open
With rstUser
Set .ActiveConnection = cnnUser
.CursorType = adOpenKeyset 'adOpenKeyset,adOpenStatic可使用Recordset的RecordCount,其他两个属性不行
End With
With rstUser
If .State = adStateOpen Then .Close
.Open "Select * from admin"
Do While Not .EOF
Combo1.AddItem rstUser.Fields("name").Value
'Combo1.AddItem decipher(Trim(rstUser.Fields("password").Value))
.MoveNext
Loop
.Close

End With
cnnUser.Close
End Sub

select 例名 from 表名 where 条件