一、界面設計
各控制項名稱屬性分別為：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」
『貳』 求一個vb6.0+SQL資料庫操作實例
這個貌似我以前寫的一個系統初始化的程序
『叄』 如何用VB編程將數據存儲到SQL資料庫中
記得引用微軟的控制項Microsoft ActoveX Date Objects 2.6 Library
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr As String
Dim sqlstr As String
constr = "driver={sql server};server=你的伺服器;uid=用戶名;pwd=密碼;database=資料庫"
con.ConnectionString = constr
con.Open
sqlstr = "insety into table (field,field1) values('" & text1.text & "','" & text2.text & "')"
SQLconn.Execute sqlstr
『肆』 在VB中，怎樣對SQL資料庫裡面的數據進行操作
要保存數據到資料庫，VB自帶的功能是無法完成的，除非你用普通的文件保存數據。
用ADO相對簡單，對於你的問題只要一個Connection對象。用它連接資料庫，用它的Execute方法來執行更新數據的SQL語句。
如果你的輸入跟資料庫欄位直接對應，也可以使用數據綁定的辦法，用ADODC控制項獲取數據，並將文本框跟ADODC綁定。
『伍』 VB6.0中連接打開SQL資料庫的關鍵性語句是什麼可以舉例說明一下
VB6 訪問SQL 資料庫一般有 ADO,DAO,ODBC 幾中方式，主要根據實際情況決定採用那種方式。
如：
1、在窗體中放置data 數據控制項,採用 ODBC 方式訪問 SQL 資料庫，可以這樣設置
ConStr="ODBC;Driver={SQL Server};Server=伺服器名稱（本地電腦名）;
Uid=sa;Pwd=;
DataBase=資料庫名;LoginTimeOut=0「
設置 Data1 連接屬性
With Data1
.DatabaseName = ""
.Connect = ConStr
.RecordSource = 」Select * From 數據表「 '取得數據源的SQL語句
.Refresh
End With
這樣就可以連接資料庫了 。
2、在程序中利用 ADO 的方式
Dim myCon As New ADODB.Connection
Dim snRes As New ADODB.Recordset
Dim ConStr$
ConStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa; Password=;
Data Source =伺服器名;Initial Catalog=資料庫名;"
'建立數據連接
myCon.Open ConStr
『建立數據集
snRes.Open "Select * From 表名",myCon, adOpenStatic, adLockReadOnly
這里打開數據記錄集時，可以選擇多種參數,可以參考一下幫助文件...