I get an error OutofBoundException

___________________
  Dim sCategory(-1, -1) As String
  Dim i, j As Integer
  
  sCategory(0, 0) = "heart"
  sCategory(0, 1) =  "心"
  sCategory(1, 0) = "Lungs"
  sCategory(1, 1) =  "肺"
    
For i = 0 To UBound(sCategory, 1)
    App.CatalogDB.SQLExecute "INSERT INTO Category (
Category, cCategory ) VALUES ( '" + sCategory(i, 0) +
"', '" + sCategory(i, 1) + "')"
  Next i
  
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to