1,217
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
trentliu 2002-05-11
- 打赏
- 举报
up
yzb_diablos 2002-05-11
- 打赏
- 举报
同意footballboy(郑创斌)
footballboy 2002-05-10
- 打赏
- 举报
'引用 Microsoft ADO Ext. 2.6 for DDL and Security
Private Sub Command1_Click()
Dim catalog1 As New ADOX.Catalog
catalog1.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\new.mdb"
End Sub
Private Sub Command1_Click()
Dim catalog1 As New ADOX.Catalog
catalog1.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\new.mdb"
End Sub
jason_li 2002-05-10
- 打赏
- 举报
忘记提醒你了先要引用ADO。步骤如下：
工程->引用->Microsoft ActiveX Data objects 2.6 library
工程->引用->Microsoft ActiveX Data objects 2.6 library
jason_li 2002-05-10
- 打赏
- 举报
Dim str As String
Set AdoCon = New ADODB.Connection
str = "Provider = Microsoft.Jet.OLEDB.4.0;" & " Data Source =文件名及路径.mdb"
AdoCon.Open str
Set AdoCon = New ADODB.Connection
str = "Provider = Microsoft.Jet.OLEDB.4.0;" & " Data Source =文件名及路径.mdb"
AdoCon.Open str
lovingkiss 2002-05-10
- 打赏
- 举报
我就帮着UP一下吧。
