使用两个do循环向数据库中正确插入数据

Question

我试图通过VBA的方式将数据从Excel插入到SQL数据库中。我使用Excel中的结构如下：

我使用下面的代码：

Private Sub CommandButton1_Click() 

Dim i     As Integer 
Dim p     As Integer 
Dim product   As String 
Dim version   As String 
Dim opt    As String 
Dim visible   As String 
Excel.Worksheets("Blad2").Select 

i = 3 
Do Until IsEmpty(Cells(i, 1)) 

opt = ActiveSheet.Cells(i, 1) 

    p = 3 
    Do Until IsEmpty(Cells(1, p)) 

     product = ActiveSheet.Cells(1, p) 
     version = ActiveSheet.Cells(2, p) 
     visible = ActiveSheet.Cells(i, p) 

     Debug.Print product & version & opt & visible 

    p = p + 1 
    Loop 

i = i + 1 
Loop 

End Sub 

运行脚本的结果如下：

product#1 version#1 option#1 0 
    product#1 version#2 option#1 1 
    option#1 

虽然我希望它导致：

product#1 version#1 option#1 0 
    product#1 version#2 option#1 1 
    product#1 version#1 option#2 0 
    product#1 version#2 option#2 0 

有人可以帮我吗？

Answer 1

这是应该对这种输入工作：

带来这样的：

product1 version1 option1 0 
product1 version2 option1 1 
product1 version1 option2 0 
product1 version2 option2 0 

---

Option Explicit 

Public Sub TestMe() 

    Dim k   As Long 
    Dim i   As Long 
    Dim p   As Long 
    Dim product  As String 
    Dim version  As String 
    Dim opt   As String 
    Dim visible  As String 

    With ActiveSheet 
     i = 3 
     Do Until IsEmpty(.Cells(i, 1)) 
     p = 3 
     k = 0 
      Do Until IsEmpty(.Cells(1, p)) 
       opt = .Cells(i, 1) 
       product = .Cells(1, p) 
       visible = .Cells(i, p) 
       version = .Cells(2, 3 + k) 
       k = k + 1 

       Debug.Print product & " " & version & " " & opt & " " & visible 
       p = p + 1 
      Loop 
      i = i + 1 
     Loop 
    End With 
End Sub 

在一般情况下，可以考虑使用为好名字变量and using Long instead of Integer。

Answer 2

我可能失去了一些东西，但似乎变量visible是stucked有3排.Cells(3, p)，这就是为什么它只是将方案1，不顾第一个循环。

尝试visible = ActiveSheet.Cells(i, p)

编辑来改变它：你说的是它不工作，但似乎当我测试了它，我得到正确的结果。

当SQL字符串被执行是这里的问题时，有可能。