- UID
- 92692
- 帖子
- 721
- 主題
- 34
- 精華
- 0
- 積分
- 149
- 楓幣
- 18871
- 威望
- 143
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 3
- GP
- 0
- 閱讀權限
- 20
- 性別
- 保密
- 在線時間
- 127 小時
- 註冊時間
- 2015-2-20
- 最後登入
- 2020-3-1
|
本帖最後由 台灣速龍 於 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申請及設定部分:請點我連接
載點:
|
-
總評分: 楓幣 + 10
GP + 3
查看全部評分
|