vb登陸界面連接sql

A. 求vb做登陸界面，實現與sql的連接並管理資料庫

Option Explicit
Dim cnt As Integer

Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\db1.mdb"
'app.path是一個相對路徑需要把程序和資料庫放到同一根目錄中 上面的意思是連接資料庫microsoft-4.0:需要用到工程引用Microsoft a****x- 2.5這里不寫全了你可以看下

If Trim(Text1.Text) = "" Then
MsgBox "用戶名不能為空，請重新輸入！"
Text1.SetFocus
Else
sql = "select * from 用戶許可權 where 用戶名稱='" & Trim(Text1.Text) & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "沒有這個用戶,請重輸入！", vbOKOnly + vbExclamation, ""
Text1.Text = ""
Text1.SetFocus '將游標放到text1中
Else
username = Text1.Text
If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then '如果記錄集中欄位的第2項=text2那麼

Unload Me '關閉我
倉庫管理系統.Show '打開倉庫管理系統窗體
Else
MsgBox "密碼不正確,請重輸入！", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2.Text = ""
End If
End If
End If
cnt = cnt + 1 '每點一次確定cnt+1
If cnt = 3 Then
Unload Me
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
cnt = 0 'cnt初始次數為0
End Sub
代碼如上需要倆個text來個cmd裡面的username要在模塊中定義意思是記錄當前登陸的用戶

B. VB連接SQL資料庫做用戶登錄窗口

我的密碼登陸窗源碼：你自己改改就可以了。源碼絕對可用

Private Sub cmdOK_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"

If Trim(text1.Text) = "" Then
MsgBox "用戶名不能為空，請重新輸入！"
text1.SetFocus
Else
sql = "select * from 用戶表 where user_ID='" & Trim(text1.Text) & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "沒有這個用戶,請重輸入！", vbOKOnly + vbExclamation, ""
text1.Text = ""
text1.SetFocus
Else
username = text1.Text
If Trim(rs_login.Fields(1)) = Trim(text2.Text) Then

Unload Me
圖書館理系統.Show
Else
MsgBox "密碼不正確,請重輸入！", vbOKOnly + vbExclamation, ""
text2.SetFocus
text2.Text = ""
End If
End If
End If
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
End Sub

Private Sub Form_Load()
cnt = 0

End Sub

C. vb6.0登錄界面連接和調用資料庫

我一般把許可權用字元串來代替:
dim admin as string=1111111111111'全部許可權
dim guset as string = 010000001011111 '用mid取出來許可權。0是對某個功能沒許可權，1是有許可權
初始化界面時，判斷0或1,給預顯示和隱藏按鈕
在執行功能時判斷為1還是0給預相應的許可權。

D. 用vb製作用戶登陸界面還要用SQL資料庫連接 ，求大神！！！

已發2.RAR

E. vb做登錄界面怎麼連接資料庫

PrivateSubForm_Load()'此段代碼的主要作用是當窗體打開時就連接資料庫
DimconnAsNewADODB.Connection
DimconnectionstringAsString
connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"DATE.mdb;PersistSecurityInfo=False"'資料庫路徑
conn.Openconnectionstring

EndSub

PrivateSubCommand1_Click()

StaticnAsInteger
Ifn>=3Then
MsgBox"輸入密碼次數大於3次，不允許繼續登陸"
End
EndIf
Setconn=NewADODB.Connection
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False;DataSource=DATE.mdb;JetOLEDB:DatabasePassword="
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
IfTrim(Text1.Text)=""Then'檢測用戶名正確與否
MsgBox"用戶名不能為空，請重新輸入！",vbOKOnly+vbExclamation,"錯誤"
Text1.SetFocus
Else
sql="select*from驗證WHERE用戶名='"&Trim(Text1.Text)&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox"用戶名不存在，請重新輸入！",vbOKOnly+vbExclamation,"錯誤"
Text1=""
Text1.SetFocus
Else'檢測密碼正確與否
IfTrim(rs_login.Fields(2))=Trim(Text2)Then
rs_login.Close
UnloadMe
Form2.Show
Else
n=n+1
MsgBox"第"&n&"次密碼錯誤，請重新輸入！",vbOKOnly+vbExclamation,"錯誤"
Text2.SetFocus
EndIf
EndIf
EndIf
EndSub

PrivateSubCommand2_Click()
MsgBox"您已成功退出！",vbOKOnly+vbExclamation,"提示"
UnloadMe
EndSub

F. vb用戶登錄界面,用戶登陸的代碼,連接SQL Server資料庫的

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=001234;Initial Catalog=Mydatabase;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 A用戶表 ORDER BY ID"
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 "請輸入口令!", 64, "提示"
Text1.SetFocus
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "請選擇帳號!", 64, "提示"
Combo1.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM A用戶表 WHERE 姓名='" & Combo1.Text & "' AND 密碼='" & Text1.Text & "' "
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
Form1.Show
Unload Me
Else
MsgBox "口令不對,請重新輸入!", 64, "提示"
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中創建資料庫"MyDatabase",新建表"A用戶表",表中包含"ID,姓名,密碼"等欄位,然後將以上代碼復制,OK搞定

G. 如何用VB連接SQL資料庫做登錄

VB連接SQL資料庫，可通過ADO數據對象和SQL結構化查詢語言實現。

1. ADO (ActiveX 數據對象)， 這項新的數據訪問技術的特性包括：更簡單的對象模型；與其它 Microsoft 和非 Microsoft
   的技術更好的集成；為本地和遠程數據數據提供的通用介面；可遠程訪問的和斷開的記錄集；用戶可訪問的數據綁定介面；以及層次結構的記錄集。

2. 結構化查詢語言(Structured Query Language)簡稱SQL，是一種特殊目的的編程語言，是一種資料庫查詢和程序設計語言，用於存取數據以及查詢、更新和管理關系資料庫系統。

3. 代碼示例：

   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

4. 注意cn.ConnectionString此句需依據實際的SQL資料庫建立連接獲得的字元串。

H. vb中如何設計登錄界面怎麼連接資料庫

（1）新建資料庫並命名為denglu，在該資料庫中新建表User1,表包含的列為「ID,username,pwd」。
（2）設計登錄界面Frmlogin，以及登錄成功後要顯示的界面Form2,並連接到資料庫，使包含在資料庫中的合法用戶能成功登錄該程序，而不合法用戶則無法進入程序。

I. vb6.0製作登陸界面連接sql2000問題

你提供的是庫文件名，這個沒有用，你需要提供庫名及表名。
假設庫名為「圖書管理」，表名為「書籍信息」，表中有五列，列名為：序號、書名、類別、出版社、單價。序號設為標識列且為主鍵。
請你事先在「工程\引用」里勾選「Microsoft ActiveX Data Objects 2.0 Library」，以包含對ActiveX數據對象的引用。
增加5個文本框Text3~ Text7及兩個命令按鈕command2和command3。

Option Explicit
Dim myCnn As New ADODB.Connection '聲明一個連接對象。
Dim myRs As New ADODB.Recordset '聲明一個記錄集對象。
Dim myStr As String '聲明連接字元串。

Private Sub Form_Load()
command2. Enabled=False
'給連接字元串賦值，連接方式為：本地登錄，Windows驗證。
myStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=圖書管理;Data Source=."
myCnn.ConnectionString = myStr
End Sub

Private Sub command1_Click()
If Trim(Text1.Text) = "小李飛刀" and Trim(Text2.Text) = "1234567" Then
command2. Enabled=True
MsgBox "登錄成功！你可以進入資料庫檢索書籍信息了。"
Else
MsgBox "你輸入的用戶名或密碼不對，請核對後重新登錄！"
End If
End Sub

Private Sub command1_Click()
Dim StrSQL As String
StrSQL = "select * from 書籍信息 where 序號='" & Trim(Text3.Text) & "'"
myCnn.Open
myRs.Open StrSQL, myCnn, adOpenStatic, adLockReadOnly
If myRs.RecordCount = 1 Then
『在文本框中回顯圖書信息
Text4.Text=myRs("書名")
Text5.Text=myRs("類別")
Text6.Text=myRs("出版社")
Text7.Text=myRs("單價")
Else
MsgBox "庫中沒有你要檢索的圖書！"
End If
myRs.Close
myCnn.Close
End Sub

Private Sub command3_Click()
Set myRs = Nothing
Set myCnn = Nothing
End
End Sub

功能：
在Text1中輸入用戶名「小李飛刀」，在密碼框Text2中輸入密碼「1234567」，彈出對話框提示登錄成功。程序自動接入到資料庫。
然後在Text3中輸入你要檢索的書的序號，點擊命令按鈕command2，程序會搜索資料庫，然後將庫中相應的圖書信息（書名、類別、出版社、單價）回顯在文本框Text4~ Text7中。
點擊命令按鈕command3後，程序會關閉資料庫，並退出本程序。