Question

VB Adodc1.Refresh问题

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from sk193mm7270"
Adodc1.RecordSource = "select * into 成品201211 from sk193mm7270"
Adodc1.Refresh
End Sub

当我点击按钮的时候

提示有问题

但是，表确实建立了。

向大神求解！





Answer 1

你的adodc是怎么配置的？
建议使用ADODB试试，代码如下：

Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Private Sub Command1_Click()
' On Error Resume Next
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=主机名或者IP地址"
cn.CursorLocation = adUseClient
cn.Mode = adModeReadWrite
cn.Open
cmd.ActiveConnection = cn
cmd.CommandType = adCmdText

cmd.CommandText = "select * into tmp2 from TbaCustomers"
cmd.Execute
End Sub
我上机测试过了，不过只能运行一次，因为有重名的表存在，再次运行会报错的

追问

我VB跟小白差不多吧，我vb里没有ADODB控件。

追答

在菜单里选【工程】-【引用】，如下图：

 

弹出对话框，如下，打上勾

这样ADODB就添加好了

Answer 2

Adodc1.RecordSource = "select * from cs"
Adodc1.Refresh
Adodc1.Recordset.ActiveConnection.Execute "select * into cs1 from cs"
执行创建或删除应该使用Adodc1.Recordset.ActiveConnection.Execute而不是Adodc1.RecordSource，虽然帖子很旧了，但是知识点附上