请问,关于数据库连接的问题
xisi 2005-03-05 02:16:35 请问各位大虾们
我编了一个关于验证密码的界面,就是连不上数据库,我用的是Jet OLEDB连接,数据库存在D:\db1.mdb已经设置好了OleDbCommand,和OleDbConnection验证可以连接.就是编译后,连接不了.
具体代码如下:希望大虾们帮我改一改.谢谢
OleDbCommand1.Connection.Open()
Dim sqlstr As String
Dim islogin As Boolean
Dim rightgroup As String
Dim connlogin As System.Data.OleDb.OleDbConnection
'New System.Data.OleDb.OleDbConnection
'Dim sqlstr As System.Data.OleDb.OleDbCommand1
sqlstr = "SELECT Name, Password FROM biao1 WHERE Name='" & Me.TextBox1.Text & "'"
Dim cmdlogin As New System.Data.OleDb.OleDbCommand(sqlstr, connlogin)
Try
connlogin.Open()
Dim myReader As System.Data.OleDb.OleDbDataReader = cmdlogin.ExecuteReader()
Try
If myReader.HasRows = False Then
MessageBox.Show("错误的用户名", "警告!", MessageBoxButtons.OK)
Else
myReader.Read()
If myReader.GetString(2) = Me.TextBox2.Text Then
IsLogin = True
rightgroup = myReader.GetInt32(0)
Name = myReader.GetString(1)
Me.Close()
frmtwo2.Show()
Hide()
Else
MessageBox.Show("密码错误", "警告!", MessageBoxButtons.OK)
End If
End If
Finally
myReader.Close()
connlogin.Close()
connlogin = Nothing
End Try
Catch ex As Exception
MessageBox.Show("数据连接失败,请与管理员联系!", "提示:", MessageBoxButtons.OK)
End Try
OleDbCommand1.Connection.Close()