UC知道ConnSqlServer 对象
来源：百度知道 编辑：UC知道 时间：2024/05/27 14:30:53
ConnSqlServer 有什么用能给一个例子吗？
Private Sub Command1_Click()
On Error Resume Next
'连接到AtuoCAD应用程序
Dim acadApp As AcadApplication
Set acadApp = GetObject(, "AtuoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AtuoCAD.Application")
If Err Then
MsgBox Err.Description
Exit Sub