vba批量写入mysql临时表_VBA里面插入临时表报错，但是执行的SQL是没有问题的，哪位高手能解答啊，急！！！...

以下是我在宏里面的详细代码SubInputUCCData()DimcnnAsNewADODB.ConnectionDimrstAsNewADODB.RecordsetDimstrCnnAsString,strCnn2AsStringstrCnn="Provider=SQLOLEDB.1;Password=sele...

以下是我在宏里面的详细代码

Sub InputUCCData()

Dim cnn As New ADODB.Connection

Dim rst As New ADODB.Recordset

Dim strCnn As String, strCnn2 As String

strCnn = "Provider=SQLOLEDB.1;Password=select;Persist Security Info=True;User ID=reader;Initial Catalog=CreadUP4;Data Source=172.18.40.60"

Dim strBeginDate As String, strEndDate As String, strSQL As String, strSQL2 As String, strCustomer As String

On Error Resume Next

Sheets(1).Select

Cells.Select

Selection.ClearContents

Range("A1").Select

strBeginDate = InputBox("请输入开始:", "开始时间", Format((Date - 30), "yyyy-mm-dd"))

strEndDate = InputBox("请输入结束日期:", "日期选择", Format(Date, "yyyy-mm-dd"))

On Error GoTo err

If cnn.State = adStateOpen Then cnn.Close

cnn.ConnectionString = strCnn

strSQL = "exec usp_queryprice '" & strBeginDate & "','" & strEndDate & "'"

cnn.Open

rst.Open strSQL, cnn, adOpenStatic, adLockReadOnly, -1

With Sheets(1).QueryTables.Add(rst, Sheets(1).Range("A1"))

.Refresh

End With

If rst.RecordCount = 0 Then

MsgBox "Havn't Related Record!", vbCritical, "Input Data Error"

Exit Sub

End If

rst.Close

cnn.Close

Exit Sub

err:

MsgBox "Open Record Error,Please Contact IT Staff!", vbCritical, "Error"

End Sub

展开