向sql数据库中插入数据的问题!
当从excel里向sql数据库中插入数据时,当表已有时,程序报错说“表已经存在”,且不继续执行?
怎样保证数据不被重复插入呢?
代码如下:
Private Sub cmdselectinto_Click()
Dim cn As ADODB.Connection
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;" And _
"User ID=sa;Initial Catalog=china_MD_ELP;Data Source=(LOCAL)"
strSQL = "SELECT * INTO XLImport7 FROM " & _
"OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _
"'Excel 8.0;Database=D:\lq\Project\YntMD007_単品ExcelDB保存機能追加\Program\単品ExcelDB保存機能追加03.xls', " & _
"[lq$])"
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
cn.close
Set cn = Nothing
End Sub