用ADO完成这些工作好象的确有问题,我也正在头疼,起码ADO不支持DDL指令
建议使用DAO来完成,查询可以交给ADO完成,
另外这样 就有execute 方法,不知道能不能完成,我还没试
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ".\data\xj.mdb"
rs.Open history, cnn cnn.Execute
建议使用DAO来完成,查询可以交给ADO完成,
另外这样 就有execute 方法,不知道能不能完成,我还没试
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ".\data\xj.mdb"
rs.Open history, cnn cnn.Execute
dim cn as new adodb.connect
然后
用RS执行就行了~~
例:
dim ss as string
ss="select * from dual"
rs.open ss ,cn
rs.close
Adodc1.recordsource=sSQL
Adodc1.refresh
dim cn as new adodb.connection '声明对象
cn.execute " " 'SQl语句
虽然形式简单,但功能却强大异常--甚至比标准SQl还厉害。如想细看可参见 “电脑报2002合订本下“16页文章。