Dim CRXReport As New Crpt1
Dim cnn1 As New ADODB.Connection
Dim datcmd1 As New ADODB.Command
Dim strCnn As String
Load Form2 strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\prtest.mdb;Persist Security Info=False;"
cnn1.Open strCnn
Set datcmd1.ActiveConnection = cnn1
datcmd1.CommandText = "Test"
datcmd1.CommandType = adCmdTable
CRXReport.Database.AddADOCommand cnn1, datcmd1
Form2.Show vbModal
Unload Form2
以上代码在 CRXReport.Database.AddADOCommand cnn1, datcmd1
出错,Runtime error 未启用创建功能? datcmd1.CommandText = "Test" 'Test是表名,这样写没错吧。
真的头都大了。各位高手帮忙。
Dim cnn1 As New ADODB.Connection
Dim datcmd1 As New ADODB.Command
Dim strCnn As String
Load Form2 strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\prtest.mdb;Persist Security Info=False;"
cnn1.Open strCnn
Set datcmd1.ActiveConnection = cnn1
datcmd1.CommandText = "Test"
datcmd1.CommandType = adCmdTable
CRXReport.Database.AddADOCommand cnn1, datcmd1
Form2.Show vbModal
Unload Form2
以上代码在 CRXReport.Database.AddADOCommand cnn1, datcmd1
出错,Runtime error 未启用创建功能? datcmd1.CommandText = "Test" 'Test是表名,这样写没错吧。
真的头都大了。各位高手帮忙。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货