路边 发表于 2005-9-7 07:26:00

请教：vba怎样与Access数据库联接？？

<P>怎样用vba读取Access数据库中的数据？？</P>

一万年 发表于 2005-9-7 09:24:00

随便一本vba的书上都应该有阿，找本书看看吧

zwd0077 发表于 2006-1-17 09:43:00

<P>&nbsp;&nbsp;&nbsp; Dim adocon&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; As Connection<BR>&nbsp;&nbsp;&nbsp; Dim adors&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; As Recordset<BR>&nbsp;&nbsp;&nbsp; Dim strpath&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; As String</P>
<P><BR>&nbsp;&nbsp;&nbsp; strpath = ThisDrawing.Application.VBE.activevbproject.FileName<BR>&nbsp;&nbsp;&nbsp; Set adocon = New Connection<BR>&nbsp;&nbsp;&nbsp; adocon.CursorLocation = adUseClient<BR>&nbsp;&nbsp;&nbsp; '指定数据库路径，注意数据库名为工程名+cehuixiangmu.mdb, 和工程同在一个目录<BR>&nbsp;&nbsp;&nbsp; adocon.Open "provider=microsoft.jet.oledb.4.0;data source=" &amp; Left(strpath, Len(strpath) - 4) &amp; "cehuixiangmu.mdb;"<BR>&nbsp;&nbsp;&nbsp; Set adors = New Recordset<BR>&nbsp;&nbsp;&nbsp; '数据库表名称为ptsten<BR>&nbsp;&nbsp;&nbsp; adors.Open "ptsten", adocon, adOpenDynamic, adLockOptimistic</P>
<P>&nbsp;&nbsp;&nbsp; '对数据库操作部分</P>
<P>&nbsp;&nbsp;&nbsp; '对数据库关闭部分<BR>&nbsp;&nbsp;&nbsp; adors.Close<BR>&nbsp;&nbsp;&nbsp; adocon.Close</P>
页: [1]
查看完整版本: 请教：vba怎样与Access数据库联接？？