UC知道简化代码
来源：百度知道 编辑：UC知道 时间：2024/07/04 13:15:17
Private Sub Form_Load()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.CursorLocation = adUseClient
Conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=a3EFWwclr0mISkfs5hlP;Data Source=" & App.Path & "\wx2004.mdb;Persist SecurITy Info=true"
Rs.Open "select * from 帐号密码", Conn
Do '列出用户名供选择
If Not Rs.EOF Then
List1.AddItem Rs.Fields(0)
Rs.MoveNext
Else
Exit Do
End If
Loop
Rs.Close
End Sub
Private Sub List1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.CursorLocation = adUseClient
Conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=a3EFWwclr0mISkfs5hlP;Data Source=" & App.Path & "\wx2004.mdb;Persist SecurITy Info=true"
Rs.Open "select * from 帐号密码 where UserName='" & List1.Text &
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.CursorLocation = adUseClient
Conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=a3EFWwclr0mISkfs5hlP;Data Source=" & App.Path & "\wx2004.mdb;Persist SecurITy Info=true"
Rs.Open "select * from 帐号密码", Conn
Do '列出用户名供选择
If Not Rs.EOF Then
List1.AddItem Rs.Fields(0)
Rs.MoveNext
Else
Exit Do
End If
Loop
Rs.Close
End Sub
Private Sub List1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.CursorLocation = adUseClient
Conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=a3EFWwclr0mISkfs5hlP;Data Source=" & App.Path & "\wx2004.mdb;Persist SecurITy Info=true"
Rs.Open "select * from 帐号密码 where UserName='" & List1.Text &
Do '列出用户名供选择
If Not Rs.EOF Then
List1.AddItem Rs.Fields(0)
Rs.MoveNext
Else
Exit Do
End If
Loop
改成这样:
Do while Not Rs.EOF '列出用户名供选择
List1.AddItem Rs.Fields(0)
Rs.MoveNext
Loop
连接字符串定义为全局变量
str1="provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=a3EFWwclr0mISkfs5hlP;Data Source=" & App.Path & "\wx2004.mdb;Persist SecurITy Info=true"
用时只要这样
conn.open str1