① 怎麼用vb做一個連接sql的用戶登錄界面
思路簡單，具體操作參考相資料:
1、建立資料庫
2、用相關控制項連接資料庫
3、設計登錄界面
4、寫代碼：判斷用戶輸入的用戶名和密碼是否與資料庫里記錄的一致，是則同意登錄，打開程序主窗口，不是則不同意登錄，繼續重新登錄或退出程序。
② 如何用VB連接SQL資料庫做登錄
一、界面設計
各控制項名稱屬性分別為：label1 、text1 、label2、text2、commandok、cmdcancel
二、代碼設計如下：
1、首先添加一個模塊，寫上以下通用聲明和Sub main()：
Public conn As ADODB.Connection '通用（聲明）
Sub main()
Set conn = New ADODB.Connection '通用（main）
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1" '連接資料庫代碼
conn.Open
frmLogin.Show '首先顯示登錄界面。也可以在工程屬性中設置啟動對象為Sub main()或者frmlogin窗體
End Sub
2、在Frmlogin 代碼窗口，為cmdok控制項寫以下代碼：
Private Sub cmdok_Click()
If text1.Text = "" Then
MsgBox "用戶名不能為空！", vbOKOnly + vbInformation, "友情提示"
text1.SetFocus
Exit Sub '若用戶名文本框內為空，則出現提示框
End If
If text2.Text = "" Then
MsgBox "密碼不能為空！", vbOKOnly + vbInformation, "友情提示"
text2.SetFocus
Exit Sub '若輸入密碼文本框為空，也出現提示框
End If
Dim strSQl As String
strSQl = "select * from User1 where username='" & Trim$(text1.Text) & "' and pwd='" & Trim$(text2.Text) & "' "
3、書寫SQL代碼，查詢User1表中是否存在窗體中用戶輸入的信息。
Dim str As New ADODB.Recordset
Set str = New ADODB.Recordset
str.CursorLocation = adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly
With str
If .State = adStateOpen Then .Close
.Open strSQl
If .EOF Then
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已連續三次輸入錯誤，系統將自動關閉", vbOKOnly + vbCritical, "警告"
Unload Me '若用戶連續輸入3次錯誤密碼，則系統關閉
Else
MsgBox "對不起，用戶名不存在或密碼錯誤 ！", vbOKOnly + vbQuestion, "警告"
text1.SetFocus
text1.Text = ""
text2.Text = ""
End If
Else
Unload Me '若登錄成功，則隱藏當前窗體
Form2.Show '然後顯示Form窗體
End If
End With
End Sub
Private Sub cmdCancel_Click()
End '若單擊Cmdcel按鈕，則結束應用程序
End Sub
4、運行中存在的問題：
代碼中有Dim conn As adodb.connection，運行時顯示"用戶定義類型未定義"
解決方法：點擊「工程」--「引用」找到「Microsoft ActiveX Data Object 2.6」
③ VB+SQL怎麼編寫一個登陸界面啊
OptionExplicit
Dimerrpass%,password$
DimfinserAsBoolean
PublicFunctionSearchdata(用戶名AsString,密碼AsString)AsBoolean
Searchdata=False
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find"用戶名='"&用戶名&"'"
IfNotAdodc1.Recordset.EOFThen
IfTrim(Adodc1.Recordset.Fields("密碼"))=密碼ThenSearchdata=True
EndIf
EndFunction
PrivateSubComm11_Click()
finser=Searchdata(Trim(Text1.Text),Trim(Text2.Text))
IffinserThen
MsgBox"登錄成功!",vbOKOnly,"密碼登錄"
Form1.Show
Me.Show
Else
errpass=errpass+1
Iferrpass>=3Then
MsgBox"對不起,您沒有任何許可權登錄使用本系統",vbCritical,"密碼登錄"
Comm11.Enabled=False
Else
MsgBox"用戶名或密碼錯誤,請重新輸入",vbCritical,"密碼登錄"
Text1.SetFocus
EndIf
EndIf
EndSub
PrivateSubComm22_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&".yang_75.mdb"
Adodc1.RecordSource="select*frommei"
Adodc1.Refresh
'Text2.SetFocus
Text1.Text=""
Text2.Text=""
Text2.PasswordChar="*"
EndSub
PrivateSubForm_Unload(CancelAsInteger)
Adodc1.Recordset.Close
End
EndSub
④ 如何用VB連接SQL資料庫做登錄
使用ADODC控制項，設置adodc控制項的ConnectionString 屬性為"Provider=SQLOLEDB.1;Password=資料庫登錄密碼;Persist Security Info=True;User ID=資料庫登錄名;Initial Catalog=資料庫名稱;Data Source=伺服器名稱或IP地址" 然後設置Adodc1.CommandType=表名或者SQL數據源 Adodc1.RecordSource=表名或者SQL語句 adodc1.Refresh 以上就已經連接上一個指定的數據源了，接下來就可以進行各種操作啦
⑤ vb連接SQL資料庫後製作一個登陸界面。
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里就行了。
⑥ 如何用VB連接SQL資料庫做登錄
dim i as Integer
'用戶密碼檢查
Public Sub ck_userpass()
Dim ck_m As New SqlCommand
ck_m.Connection = sql_conn
ck_m.CommandText = "select count(uname) from jc_user where uname=@uname and upass=@upass"
ck_m.Parameters.AddWithValue("@uname", txtuser.Text)
ck_m.Parameters.AddWithValue("@upass", txtpass.Text)
sql_conn.Open()
Dim obj1 As Object = ck_m.ExecuteScalar
sql_conn.Close()
i = CType(obj1, Integer)
End Sub
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
ck_userpass()
If i = 0 Then
MessageBox.Show("用戶名或者密碼錯誤")
txtpass.Text = Nothing
txtpass.Focus()
Else
xx.show()
MessageBox.Show("驗證成功")
Me.Close()
End If
End Sub
⑦ vb和sql做系統登錄頁面
假設表bookbuyer在資料庫book中，bookbuyer表中的欄位username和password分別對應用戶名和密碼
在工程中添加兩個窗體（form1和form2），在form1上畫上text1和text2還有一個Commandbutton，點擊菜單欄上的工程>>>引用>>>勾選Microsoft Activex Data Objects 2.6 Library,再點擊確定。在Command1的Click事件中添加如下代碼。
Dim conn As New ADODB.Connection
cnstr = "Provider=SQLOLEDB;Data Source=你的IP地址或計算機名;DATABASE=book;UID=你的數sql資料庫用戶名;pwd=sql資料庫密碼"
conn.Open cnstr
sQl1 = "select * from book where username='" & Text1.Text & "'"
sQL2 = "select * from book where password='" & Text2.Text & "'"
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
rs1.Open sQl1, conn, 1, 3
rs2.Open sQL2, conn, 1, 3
If rs1.EOF = True Or rs2.EOF = True Then
MsgBox "密碼或用戶名錯誤！", vbExclamation, "登陸"
Else
Form2.Show
End If
rs1.Close
rs2.Close
這是我自己設計時使用的登錄代碼，有什麼不足的地方。。。。。。
⑧ 如何用VB連接SQL資料庫做登錄
VB連接SQL資料庫，可通過ADO數據對象和SQL結構化查詢語言實現。
ADO (ActiveX 數據對象)， 這項新的數據訪問技術的特性包括：更簡單的對象模型；與其它 Microsoft 和非 Microsoft
的技術更好的集成；為本地和遠程數據數據提供的通用介面；可遠程訪問的和斷開的記錄集；用戶可訪問的數據綁定介面；以及層次結構的記錄集。結構化查詢語言(Structured Query Language)簡稱SQL，是一種特殊目的的編程語言，是一種資料庫查詢和程序設計語言，用於存取數據以及查詢、更新和管理關系資料庫系統。
代碼示例：
Private Sub XPButton1_Click()
On Error GoTo finish '防錯代碼，防止意外而導致的退出
sql = "select * from 用戶管理 where 用戶名='" & Text1.Text & "' and 密碼='" & Text2.Text & "'"
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登錄資料庫用戶名(默認為sa);Password=登錄資料庫密碼;Initial Catalog=資料庫名;Data Source=伺服器名(默認為:MERRYCHINA)" '這是連接SQL資料庫的語句
cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
'以上使用最通用的方法來查詢資料庫中是否有匹配的記錄
If rs.EOF = True Then '如果沒有記錄則說明用戶或密碼為錯誤的
If pnum < 2 Then 'pnum就是密碼驗證次數，當次數超過3次，系統會自動保護退出
pnum = pnum + 1
MsgBox "用戶名或密碼錯誤!", vbInformation, "錯誤次數：" & pnum
rs.Close
cn.Close
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
Else
MsgBox "用戶名或密碼錯誤超過三次,系統會自動退出", vbInformation, "提示"
End
End If
Else
loginname = rs.Fields(0)
Form1.Show
rs.Close
cn.Close
End If
Exit Sub
finish:
MsgBox Err.Description
rs.Close
cn.Close
End Sub
注意cn.ConnectionString此句需依據實際的SQL資料庫建立連接獲得的字元串。