实时错误[Microsoft][ODBC 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序

兰州人

laoxie_198发的帖子见下面:

问题是在运行时

实时错误[Microsoft][ODBC 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序

出错关键处

sjklj = "Provider=MSDASQL.1ersist Security Info=False;Data Source=hbcad"
sjk.Open sjklj

问Data Source=hbcad有这种数据库的连接吗?????????????????

Private Sub UserForm_Layout()
Dim sjk As New ADODB.Connection
Dim sjklj As String
Dim dwzd As New ADODB.Recordset
Dim dwjs As Double
Dim zd() As String
sjklj = "Provider=MSDASQL.1ersist Security Info=False;Data Source=hbcad"
sjk.Open sjklj
dwzd.Open "select aa=count(dwid) from tyname", sjk, adOpenDynamic, adLockBatchOptimistic
If Not dwzd.EOF Then
  dwjs = dwzd.Fields("aa")
End If
dwzd.Close
dwzd.Open "select * from tyname", sjk, adOpenDynamic, adLockBatchOptimistic
ReDim zd(dwjs) As String
i = 0
Do While Not dwzd.EOF
  i = i + 1
  zd(i) = dwzd.Fields("dwname")
  dwzd.MoveNext
Loop
For j = 0 To i
  ListBox1.List(j) = zd(j + 1) '此处总是提示“无法获取list属性、属性阵列索引无效
Next j

End Sub

laoxie_198

这是我在ODBC里设置好的数据源连接。它等同于：

 Dim cn As New ADODB.Connection

Dim sqllj, gdeolj, gdeovlj, gdv3lj As String

 sqllj = "provider=sqloledb.1;password= ;persist security info=true;user id=sa;initial catalog=wzlz ;data source=hbxx"；

 cn.Open sqllj

兰州人

laoxie_198发表于2007-10-23 19:34:00这是我在ODBC里设置好的数据源连接。它等同于： Dim cn As New ADODB.ConnectionDim sqllj, gdeolj, gdeovlj, gdv3lj As String sqllj = \"provider=sqloledb.1;password= ;persist

提示运行时错误'-2147467259(80004005)'[dbnetlib][connectionopen connect(1)]sql server不存在或拒绝访问

查资料应该是如下原因????

SQL被中断了,重新启用SQL服务

兰州人

自动化错误（错误 440）

   

当访问 Automation 对象时，发生了特定类型的错误。此错误有以下原因和解决方法：

• 当执行某个方法时，或是得到或设置对象变量的属性时，发生了此错误。创建此对象的应用程序会报告此错误。

  检查 Err 对象的属性以决定错误的来源和性质。同样地，也可以在访问语句前，直接使用 On Error Resume Next 语句，然后在访问语句后检查错误。

详细信息，可选取有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。