Question

我需要在数据库中插入数据。该查询是正确的，但是以某种方式代码未插入记录。

我相信插入代码后需要有一些声明。

Sub AbcdefghRollbackUserData()

  Worksheets("Rollback").Activate

Dim sSql, OPER_CODE_V, PROF_CODE_V, PERI_CODE_V, PERI_TYPE_V, ENTITY_CODE_V As String
Dim oQt As QueryTable
Dim sConn As Variant
Dim i, LastRow As Integer

LastRow = Worksheets("Rollback").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To LastRow
OPER_CODE_V = Cells(i, 1).Value
PROF_CODE_V = Cells(i, 2).Value
PERI_CODE_V = Cells(i, 3).Value
PERI_TYPE_V = Cells(i, 4).Value
ENTITY_CODE_V = Cells(i, 5).Value

  sConn = Array( _
    "OLEDB;Provider=MSDASQL.1;Persist Security Info=True;User ID=AbcdefghDATA;Data Source=AbcdefghINT;Extended Properties=""DSN=ABCD_TST.world;UID=AbcdefghDATA;" _
    , _
    "PWD=Abcdefgh;DBQ=ABCD_TST;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI" _
    , "=F;CSR=F;FWC=F;FBS=64000;TLO=O;"";Initial Catalog=(Par défaut)")


  sSql = "INSERT INTO OPER_PROFILES_PERIMETERS (OPER_CODE, PROF_CODE, PERI_CODE, PERI_TYPE, ENTITY_CODE) VALUES ('A012345', 'USER', 'DEFAULT', 'DEFAULT', 'ABCDEFGH')"


 'Set oQt = ActiveSheet.QueryTables.Add( _
  '  Connection:=sConn, _
   ' Destination:=Worksheets("Abcdefgh").Range("A1"), _
    'Sql:=sSql)

' oQt.Refresh
' ActiveWorkbook.Connections("Connection").Delete

 Next i

 MsgBox ("Users have been associated / rollback to the entity")
  End Sub

有人可以帮我而不是Set oQt = ActiveSheet.QueryTables.Add

我需要一条语句来插入记录。

用于在数据库中插入记录的SQL查询不起作用-SQL连接

0 个答案: