Option Explicit
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset對象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登錄資料庫用戶名(默認為sa);Password=登錄資料庫密碼;Initial Catalog=資料庫名;Data Source=伺服器名(默認為:MERRYCHINA)" '這是連接SQL資料庫的語句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
'Exit Function
'MyErr:
'Set rs = Nothing
'Set Conn = Nothing '釋放相關的系統資源
'MsgBox Err.Description, vbInformation, "系統提示" '顯示出錯信息
End Function
Private Sub Form_Load()
Dim SQL As String
Dim rs As ADODB.Recordset
Dim X As Long
On Error GoTo Err_box
SQL = " select * from 用戶表"
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
rs.MoveFirst
For X = 1 To rs.RecordCount
Combo1.AddItem rs.Fields("用戶名").Value
rs.MoveNext
Next X
Combo1.ListIndex = 0
End If
rs.Close
Exit Sub
Err_box:
End Sub
Private Sub Command1_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
If Text1.Text = "" Then
MsgBox "請輸入口令!", 16
Text1.SetFocus
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "請選擇登錄用戶!", 16
Combo1.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM 用戶表 WHERE 用戶名='" & Combo1.Text & "' AND 密碼='" & Text1.Text & "' "
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
Form1.Show '想要打開的主窗體
MsgBox "恭喜兄弟,登錄成功!", 64, "提示"
Unload Me
Else
MsgBox "口令不對,請重新輸入!", 16, "提示"
Text1.SetFocus
End If
End Sub
'**********************************************************************
'說明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0
' 2) 在窗體中加Texe1.text(文本框控制項),Combo1.text(組合框控制項),Command1(命令按鈕)各一個
' 3) 在SQL Server2000中創建資料庫，新建表"用戶表",表中包含"ID,姓名,密碼"等欄位,然後將以上代碼復制,OK搞定
4) 以上方式無需載入ADO控制項,方便!
>密碼和帳號對的時候跳轉到form2,在form2的的文本框text1中出現text1的帳號。
這個你只要設置一個全局變數，然後對的時候把帳號放到全局變數里，然後在打開form2時顯示這個全局變數到text1里就行了。
㈡ 用C#做的登陸界面，要連sql資料庫的，請問怎麼寫。要詳細代碼。請註明注釋。
connectionstring="data
source=.\sqlexpress;
initial
catalog=cecdom;
integrated
security=true;user
id=sa;password=lsyuan"；
這是一個連接字元串的例子，你的連接字元串中沒有伺服器名，即「data
source
」那一段。
如果不熟悉可以使用向導創建連接。
後面的sqlcommand
是存儲過程，注意檢查參數是否對應。
㈢ 登陸界面連接sql server資料庫用MD5類的Hash演算法加密
說原理就行了。一般來說用戶注冊之後，把用戶提交的密碼，用MD5加密，資料庫保存加密之後的密文，可以不保存原始的明文。下次用戶登錄，輸入密碼之後，用MD5加密，然後用加密之後的密文和資料庫的密文匹配。如果一致的話就允許登錄。驗證的過程不需要驗證明文，密文一致就行了。資料庫被人盜了別人也很難破解原始的明文。