hersey1017 发表于 2007-5-28 22:56:00

请教vba中的数据库连接问题

本帖最后由 作者 于 2007-5-29 12:35:19 编辑 <br /><br /> <p>我要再vba中连接我创建好的数据库，数据库是用Acess做成的。可是都连接不上。高手帮忙看下面代码，哪里出错了？小女子感激不尽！</p><p>Private Sub UserForm_Initialize()<br/>strPath = ThisDrawing.Application.VBE.ActiveVBproject.FileName&nbsp;&nbsp; '获得当前工程路径<br/>Set adoCon = New Connection<br/>adoCon.CursorLocation = adUseClient<br/>adoCon.Open "Provide=Microsoft.Jet.OLEB.4.0;Data Source=" &amp; Left(strPath, Len(strPath) - 8) &amp; "sixsteel.mdb;"<br/>Set adoRs = New Recordset<br/>adoRs.Open "六角钢管", adoCon, adOpenDynamic, adLockOptimistic<br/>If adoRs.RecordCount &gt; 0 Then<br/>&nbsp;&nbsp; adoRs.MoveLast<br/>&nbsp;&nbsp; adoRs.MoveFirst<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ExchangeData False<br/>&nbsp;End If<br/>End Sub</p><p>其中ExchanggeData是我定义的一个函数。</p>

laoliu09 发表于 2007-5-30 00:21:00

<p>Left(strPath, Len(strPath) - 7)</p><p>调试是很重要的哦！</p>
页: [1]
查看完整版本: 请教vba中的数据库连接问题