提示WA_PSN已存在,请问如何解决
Private Sub Command1_Click()
Dim cn As Connection
Dim cmd As Command
Dim scnsql As String
Set cn = New Connection
Set cmd = New Command
scnsql = "dsn=ufdata;uid=;pwd=;"
cn.Open scnsql
With cmd
.ActiveConnection = cn
.CommandText = "SELECT WA_psn.* INTO WA_psn IN 'c:\shuiyuan1\gz.mdb' FROM WA_psn"
.Execute
End With
End Sub
我想每次运行就先删掉原来的WA_psn