【VB.NET】管理端+客戶端源碼
本帖最後由 台灣速龍 於 2015-7-29 13:11 編輯說明:
在源碼Debug資料夾底下有個MySql.Data.dll,請在專案裡面加入參考,要給別人使用時要把執行檔與MySql.Data.dll放在同一個位置。
部分程式碼:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
connect()
Dim READER As MySqlDataReader
Try
MysqlConn.Open()
Dim Query As String
Query = "select * from sql684338.account where 帳號='" & TextBox1.Text & "' and 密碼='" & TextBox2.Text & "'"
'從資料庫中的資料表選擇所有欄位並找出符合帳號以及密碼的欄位
COMMAND = New MySqlCommand(Query, MysqlConn)
READER = COMMAND.ExecuteReader
Dim count As Integer = 0
While READER.Read() '每次比對增加一次,比對到帳號及密碼都符合為止
count += 1
End While
If count = 1 Then '比對完成
MsgBox("登入成功!", vbInformation, "分享於冰楓論壇")
Form2.Show()
Me.Hide()
Else
MsgBox("登入失敗", vbCritical, "分享於冰楓論壇")
End If
MysqlConn.Close()
Catch ex As MySqlException
MsgBox("無法連接資料庫", vbCritical, "分享於冰楓論壇")
Finally
MysqlConn.Dispose()
End Try
End Sub客戶端介面:
管理端介面:
SQL申請及設定部分:請點我連接
載點:
**** Hidden Message ***** 感謝
讚啦 這偵得是太神拉 謝謝 速龍大 我很想了解 ~ 本帖最後由 cpu66300 於 2015-8-25 20:37 編輯
我在學習VB 這個也來 學習看看^^ 所以這類似卡號的工具? 謝謝速龍哥分享 小弟我拿去學習囉^^:victory: 目前我剛好需要 謝謝速龍大大的源碼
我測試看看有問題再問你:) 謝謝速龍 我最近在學VB
能有教學嗎?一直連線失敗~不知道該怎麼辦... 最近正在學這個,真是太神拉! 隨風飄逸飄呀飄 感謝大大 感恩大大
頁:
[1]