实时错误[Microsoft][ODBC 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序
<p><strong><font face="Verdana" color="#000000">laoxie_198发的帖子见下面:</font></strong></p><p><strong><font face="Verdana" color="#000000">问题是在运行时</font></strong></p><p><strong><font face="Verdana" color="#000000">实时错误未发现数据源名称并且未指定默认驱动程序</font></strong></p><p>出错关键处</p><p>sjklj = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=hbcad"<br/>sjk.Open sjklj</p><p>问Data Source=hbcad有这种数据库的连接吗?????????????????</p><p>Private Sub UserForm_Layout()<br/>Dim sjk As New ADODB.Connection<br/>Dim sjklj As String<br/>Dim dwzd As New ADODB.Recordset<br/>Dim dwjs As Double<br/>Dim zd() As String<br/>sjklj = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=hbcad"<br/>sjk.Open sjklj<br/>dwzd.Open "select aa=count(dwid) from tyname", sjk, adOpenDynamic, adLockBatchOptimistic<br/>If Not dwzd.EOF Then<br/> dwjs = dwzd.Fields("aa")<br/>End If<br/>dwzd.Close<br/>dwzd.Open "select * from tyname", sjk, adOpenDynamic, adLockBatchOptimistic<br/>ReDim zd(dwjs) As String<br/>i = 0<br/>Do While Not dwzd.EOF<br/> i = i + 1<br/> zd(i) = dwzd.Fields("dwname")<br/> dwzd.MoveNext<br/>Loop<br/>For j = 0 To i<br/> ListBox1.List(j) = zd(j + 1) '此处总是提示“无法获取list属性、属性阵列索引无效<br/>Next j</p><p>End Sub</p> <p>这是我在ODBC里设置好的数据源连接。它等同于：</p><p> Dim cn As New ADODB.Connection</p><p>Dim sqllj, gdeolj, gdeovlj, gdv3lj As String</p><p> sqllj = "provider=sqloledb.1;password= ;persist security info=true;user id=sa;initial catalog=wzlz ;data source=hbxx"；</p><p><br/> cn.Open sqllj</p><p></p> laoxie_198发表于2007-10-23 19:34:00static/image/common/back.gif这是我在ODBC里设置好的数据源连接。它等同于： Dim cn As New ADODB.ConnectionDim sqllj, gdeolj, gdeovlj, gdv3lj As String sqllj = \"provider=sqloledb.1;password= ;persist<p>提示运行时错误'-2147467259(80004005)'sql server不存在或拒绝访问</p><p>查资料应该是如下原因????</p><p>SQL被中断了,重新启用SQL服务</p> <h1><a name="vamsgoleautomationerror"></a>自动化错误（错误 440）</h1><p class="ALNSR"><object id="hhobj_1" type="application/x-oleobject" height="12" width="36" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11" style="LEFT: 10px; WIDTH: 36px; TOP: 40px; HEIGHT: 12px;"><param value="953" name="Width"/><param value="318" name="Height"/><param value="ALink" name="Command"/><param value="" name="Item1"/><param value="vamsgOLEAutomationErrorC" name="Item2"/><param value="请参阅" name="Button"/></object> <object id="hhobj_2" type="application/x-oleobject" height="12" width="24" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11" style="LEFT: 66px; WIDTH: 24px; TOP: 40px; HEIGHT: 12px;"><param value="635" name="Width"/><param value="318" name="Height"/><param value="ALink" name="Command"/><param value="" name="Item1"/><param value="vamsgOLEAutomationErrorS" name="Item2"/><param value="特性" name="Button"/></object></p><p class="T">当访问 <a href="javascript:hhobj_3.Click()">Automation 对象</a>时，发生了特定类型的错误。此错误有以下原因和解决方法： </p><ul><li class="LB1">当执行某个<a href="javascript:hhobj_4.Click()">方法</a>时，或是得到或设置<a href="javascript:hhobj_5.Click()">对象变量</a>的<a href="javascript:hhobj_6.Click()">属性</a>时，发生了此错误。创建此对象的应用程序会报告此错误。 <p class="LT1">检查 <b>Err</b> 对象的属性以决定错误的来源和性质。同样地，也可以在访问语句前，直接使用 <b>On Error Resume Next </b>语句，然后在访问语句后检查错误。 </p></li></ul><p class="T">详细信息，可选取有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。 </p>
页:
[1]