实时错误[Microsoft][ODBC 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序
laoxie_198发的帖子见下面:问题是在运行时
实时错误未发现数据源名称并且未指定默认驱动程序
出错关键处
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
这是我在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
提示运行时错误'-2147467259(80004005)'sql server不存在或拒绝访问
查资料应该是如下原因????
SQL被中断了,重新启用SQL服务
自动化错误（错误 440）
当访问 Automation 对象时，发生了特定类型的错误。此错误有以下原因和解决方法：
当执行某个方法时，或是得到或设置对象变量的属性时，发生了此错误。创建此对象的应用程序会报告此错误。 检查 Err 对象的属性以决定错误的来源和性质。同样地，也可以在访问语句前，直接使用 On Error Resume Next 语句，然后在访问语句后检查错误。
详细信息，可选取有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。
页:
[1]