• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

请问,关于数据库连接的问题

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()
...全文
130 点赞 收藏 11
写回复
11 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zjf_dl 2005-03-07
数据库中追加ASP.NET用户试试
回复
c1c_c1c 2005-03-07
用oledb之JET4.0无论如何也连接不了access的加密*.mdb.
不加密的,可以.
这恐怕是OLEDB的问题?!!!!
回复
尚和空四 2005-03-07
建议从头开始
看人生豪迈
大不了从头在来
回复
cushat 2005-03-06
检查当前用户是否有对C盘的读写权限
回复
hotnoodle 2005-03-06
winfrom 数据库连接字符串:connlogin.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\db1.mdb"

webfrom 数据库连接字符串: connlogin.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("网站中相应的目录\\db1.mdb")
回复
Seeko0 2005-03-06
http://tech.ccidnet.com/pub/article/c1138_a13850_p1.html
回复
hedonister 2005-03-05
Dim connlogin As System.Data.OleDb.OleDbConnection

连接没提供连接串啊,怎么连?
回复
Seeko0 2005-03-05
//没有设置连接字符串
connlogin.ConnectionString=?
所以不能打开数据库连接
回复
AllenTing 2005-03-05
看不出错。
回复
dicman 2005-03-05
connlogin在哪里初始化的?连接字符串的设置呢?
回复
hamadou 2005-03-05
是connection连接不了啊,还是登录时不对啊?
回复
相关推荐
发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2005-03-05 02:16
社区公告
暂无公告