Imports MySql.Data.MySqlClient
Public Class Form1
'資料連接物件
Dim con As New MySqlConnection
Dim comm As New MySqlCommand
'登錄資料
Dim user As String
Dim pas As String
REM 登錄功能
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'提取輸入條件
user = Username.Text
pas = Password.Text
Debug.Print(user + Chr(10) + pas)
'查詢陳述句
Dim sql As String = "select * from userinfo where userName = '" & user & "'"
Debug.Print(sql)
comm = New MySqlCommand(sql, con)
Dim da = New MySqlDataAdapter(sql, con)
Dim dt = New DataSet()
da.Fill(dt, "sql")
MsgBox(dt.Tables("sql").Rows.Count)
con.Close()
End Sub
'取消功能
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Username.Text = ""
Password.Text = ""
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'資料連接
con.ConnectionString = "Server=127.0.0.1;UserID=root;Password=12345;Database=candy"
con.Open()
'資料連接狀態判別
If con.State = ConnectionState.Open Then
Debug.Print("資料庫連接成功！")
Else
Debug.Print("資料庫連接失敗！")
End If
End Sub
End Class
請問是哪里出了問題？
uj5u.com熱心網友回復：
sql陳述句邏輯有問題吧，這樣寫不香嗎？"select * from userinfo where userName = '" & Username.Text & "' and password = '" & Password.Text & "'判斷是否有回傳值再執行下一步
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/29696.html
標籤：VB.NET