先上代碼
Dim yz As Integer
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn As String
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
Dim sql As String
Dim un1 As String
Dim pw1 As String
Private Sub Command1_Click()
Dim yz1 As Integer
If Text1.Text = "" Then
MsgBox "請輸入您的賬號"
ElseIf Text2.Text = "" Then
MsgBox "請輸入您的密碼"
ElseIf Text3.Text = "" Then
MsgBox "請輸入驗證碼"
ElseIf current_un = " + un1 + " And current_pw = " + pw1 + " Then
MsgBox "登陸成功"
Form3.Show
Form1.Hide
Else
MsgBox "你的賬號或密碼有誤"
End If
Private Sub Form_Load()
db_host = "xxxx”（此處資料庫連接已成功）
db_user = "login" （此處資料庫連接已成功）
db_pass = "xxxx（此處資料庫連接已成功）
db_data = "login"（此處資料庫連接已成功）
strCn = "DRIVER={MySQL ODBC 8.0 ANSI Driver};" & "SERVER=" & db_host & ";" & "DATABASE=" & db_data & ";" & "UID=" & db_user & ";PWD=" & db_pass & ";" & "OPTION=3;"（此處資料庫連接已成功）
cn.Open strCn（此處資料庫連接已成功）
sql = "select * from login"
rs.Open sql, cn
Randomize
yz = Int(Rnd() * 10000 + 1000)
Label4.Caption = " " & yz
End Sub
我想查詢un1=資料庫中欄位名un的資料 and 同一行 pw欄位=pw1
則form3.show ，Form1.Hide 登陸成功
uj5u.com熱心網友回復：
sql = "select login_name,login_password from Login_table where login_name ='" & Text1.Text & "' and login_password ='" & Text2.Text & "' " '賦值Rs.Open sql, rc
If Rs.RecordCount > 0 Then 'rs.recordcount 含義為表里記錄條數
綜合界面.Show
endif
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/8899.html
上一篇：VB遠程資料庫MySQL操作