UC知道这段VB程序怎么改？
来源：百度知道 编辑：UC知道 时间：2024/05/05 19:40:28
Option Explicit
Private Sub Command1_Click()
Dim rs_findreader As New ADODB.Recordset
Dim sql As String
If Check1.Value = vbChecked Then
sql = "读者编号='" & Trim(Text1.Text & " ") & "'"
End If
If Check2.Value = vbChecked Then
If Trim(sql) = "" Then
sql = "读者姓名='" & Trim(Text2.Text & " ") & "'"
Else
sql = sql & "and 读者姓名='" & Trim(Text2.Text & " ") & "'"
End If
End If
If Check3.Value = vbChecked Then
If Trim(sql) = "" Then
sql = "读者类别='" & Trim(Combo1.Text & " ") & "'"
Else
sql = sql & "and 读者类别='" & Trim(Combo1.Text & " ") & "'"
End If
End If
sql = "select * from 读者信息 where " & sql
rs_findreader.CursorLocation = adUseCl
Private Sub Command1_Click()
Dim rs_findreader As New ADODB.Recordset
Dim sql As String
If Check1.Value = vbChecked Then
sql = "读者编号='" & Trim(Text1.Text & " ") & "'"
End If
If Check2.Value = vbChecked Then
If Trim(sql) = "" Then
sql = "读者姓名='" & Trim(Text2.Text & " ") & "'"
Else
sql = sql & "and 读者姓名='" & Trim(Text2.Text & " ") & "'"
End If
End If
If Check3.Value = vbChecked Then
If Trim(sql) = "" Then
sql = "读者类别='" & Trim(Combo1.Text & " ") & "'"
Else
sql = sql & "and 读者类别='" & Trim(Combo1.Text & " ") & "'"
End If
End If
sql = "select * from 读者信息 where " & sql
rs_findreader.CursorLocation = adUseCl
由于没有看到conn的定义，无法知道是什么数据库。把他改成调用access数据库的代码，只需要定义conn
在Form_load事件中，增加如下代码
Dim conn as new adodb.Connection
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & YourAccessFile & ";Persist Security Info=False"
找到你的 rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic 中 conn 定义的地方，才能看到是什么数据库。