数据连接问题??

Question

我编写一个登录的小程序,点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 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序
请问怎么解决???

Answer 1

你在odbc程序里需要手动建立数据库的连接。

Answer 2

你的这个变量（Connstring）都没有赋值诶，当然不行了！！
需要写连接字符串，给你个例子（以sql server为例）
Connstring="Provider=SQLOLEDB;User ID=你的用户名;Password=你的密码;Data Source=sql server所在的机器名称（或者ip）;Initial Catalog=数据库名称"

Answer 3

管理工具－odbc－系统－添加－sqlserver－完成。后面就是具体的数据库名，用户名密码等内容。

Answer 4

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 连接源怎么写的贴出来！！

Answer 5

例如，
Connstring="Provider=SQLOLEDB.1;Persist Security Info=True;" & _
           "Password=1234;" & _
           "User ID=sa;" & _
           "Initial Catalog=uvPlatformDB;" & _
           "Data Source=ntcti1"