如何用VB.net连接数据库做一个简单的登陆窗口？

Label1.Caption = "融通系统外挂程序"

If Dir(App.Path &"/hjw.mdb") <>"" Then

Set mydata = OpenDatabase(App.Path &"\hjw")

Set myrs1 = mydata.OpenRecordset("user", dbOpenTable)

Else

Set mydata = CreateDatabase(App.Path &"\hjw", dbLangGeneral, dbVersion40)

mydata.Execute "create table ku (建立日期 text(100),库名 text(100),功能 text(100))"

mydata.Execute "create table system (店号 integer,建立日期 text(100),文件路径 text(100),软件版本 text(100),路径1 text(50),路径2 text(50),路径3 text(50),路径4 text(50))"

kuname = "system"

kugn = "文件信息"

Me.showlist1

mydata.Execute "create table user (user text(50),passwd text(50),name text(50),quanx integer)"

kuname = "user"

kugn = "用户信息"

Me.showlist1

Private Sub cmdOK_Click()

txtUserName.SetFocus

If Trim(txtUserName.Text = "") Then

MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

Else

sql = "select * from user where user = '" &txtUserName.Text &"'"

'Debug.Print sql

'Set mrc = ExecuteSQL(sql, MsgText)

Set myrs2 = mydata.OpenRecordset(sql)

If myrs2.EOF = True Then

MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

Else

If Trim(myrs2.Fields(1)) = Trim(txtPassword.Text) Then

UserName = myrs2.Fields(2)

myrs2.Close

Me.Hide

' UserName = Trim(txtUserName.Text)

'Debug.Print UserName

MDIform1.Show

Else

MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"

txtPassword.SetFocus

txtPassword.Text = ""

End If

End If

End If

End Sub

首先在部件-控件里找到Microsoft

ADO

DataControl

6.0，打勾，然后在窗体上添加Adodc1。

2.

添加两个文本输入框text1,text2，分别用来接收用户输入用户名和密码。

3、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮，打开ADO的属性页，选择“使用连接字符串”，单击“生成”按钮，打开数据链接属性对话框，在“提供程序”页中选择Microsoft

Jet

4.0

OLE

DB

Provider，单击“下一步”，在“连接”页中，输入数据库名称XXXX.mdb（前提是将数据库文件和工程文件保存在同一目录下），单击“测试连接”，如果连接成功，单击“确定”即可。

4、将以下代码添加到登录按钮：

Private

Sub

Command1_Click()

Adodc1.RecordSource

=

"select

*

from

数据表名称

where

username='"

&

Text1.Text

&

"'"

Adodc1.Refresh

If

Adodc1.Recordset.EOF

Then

MsgBox

"没有这个用户，请重新输入正确的用户名",

,

"错误提示"

Else

If

Text2.Text

=

Adodc1.Recordset.Fields("password")

Then

MsgBox

"登录成功！",

,

"错误提示"

Else

MsgBox

"你的密码错误,请输入正确的用户密码！",

,

"错误提示"

End

If

End

If

End

Sub

---