VBA如何访问Access？

idoo 发表于 2006-9-18 09:13:00

使用AutoCAD VBA如何访问Access数据库？（如何打开，关闭，和定义Access查询的条件？）

lijizhi007 发表于 2006-9-21 23:47:00

是啊,有谁会啊,请教了

wy_26 发表于 2006-9-26 13:13:00

1 VB编辑器菜单工具-〉引用，把ActiveX Data Objects 2.8选上，然后确定
2 编写连接代码
'指定数据库文件路径返回一个数据库连接对象Connection
 Function GetConnection(DBPath As String) As Connection      Dim conn As New Connection         With conn     .Provider = "Microsoft.Jet.OLEDB.4.0"     .ConnectionString = DBPath     .Open     End With     Set GetConnection = conn End Function
sub test() 
dim conn as Connection
dim rs as RecordSet
dim SqlCmd as new Command
Set conn = GetConnection("F:\CAD\CadDataBase\CadDataBase.mdb")    With SqlCmd    .ActiveConnection = conn    .CommandType = adCmdStoredProc '命令类型为存储过程，adCmdText是普通SQL语句    .CommandText = "Validate" '指出在ACCESS中建立的查询的名称     End With
rs = SqlCmd.Execute , Array(id,pwd) '给定查询所需要的参数 msgbox rs.Feilds("userName").value
rs.close
conn.close
end sub

idoo 发表于 2006-9-29 14:12:00

研究中……

页: [1]

明经CAD社区's Archiver

VBA如何访问Access？