数据连接问题??

gxlxxiaojun 2004-11-19 01:56:03
我编写一个登录的小程序,点Command1(确定)按钮
Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strsql As String
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open Connstring
strsql = "select * from 1 where a='" & Text1.Text & "'"
rst.Open strsql, cnn, adOpenStatic, adLockReadOnly
If rst.EOF = True And rst.BOF = True Then
MsgBox "用户名或密码错误!", 48 + vbOKOnly, "提示信息"
Else
Set rst = Nothing
Set cnn = Nothing
MsgBox "登录成功!", 48 + vbOKOnly, "提示信息"
Exit Sub
运行时出现以下的错误:
[Microsoft][ODBC 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序
请问怎么解决???
...全文
101 7 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wch_212 2004-11-19
CNN的CONNECTIONSTRING是什么
  • 打赏
  • 举报
回复
cangwu_lee 2004-11-19
例如,
Connstring="Provider=SQLOLEDB.1;Persist Security Info=True;" & _
"Password=1234;" & _
"User ID=sa;" & _
"Initial Catalog=uvPlatformDB;" & _
"Data Source=ntcti1"
  • 打赏
  • 举报
回复
莫情莫钱 2004-11-19
学习; 了
  • 打赏
  • 举报
回复
lndlwwh830 2004-11-19
If rst.EOF = True And rst.BOF = True Then
MsgBox "用户名或密码错误!", 48 + vbOKOnly, "提示信息"
Else
Set rst = Nothing '你把这去了看看
Set cnn = Nothing ’你把这去了看看

MsgBox "登录成功!", 48 + vbOKOnly, "提示信息"
Exit Sub
还有你的 cnn 连接源怎么写的贴出来!!
  • 打赏
  • 举报
回复
aiur2000 2004-11-19
管理工具-odbc-系统-添加-sqlserver-完成。

后面就是具体的数据库名,用户名密码等内容。
  • 打赏
  • 举报
回复
creazyfish 2004-11-19
你的这个变量(Connstring)都没有赋值诶,当然不行了!!
需要写连接字符串,给你个例子(以sql server为例)
Connstring="Provider=SQLOLEDB;User ID=你的用户名;Password=你的密码;Data Source=sql server所在的机器名称(或者ip);Initial Catalog=数据库名称"
  • 打赏
  • 举报
回复
aiur2000 2004-11-19
你在odbc程序里需要手动建立数据库的连接。
  • 打赏
  • 举报
回复
发帖
VB基础类

7634

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2004-11-19 01:56
社区公告
暂无公告