Új hozzászólás Aktív témák

• Gülredy tag

  #1827

  #1826 Gülredy

  2012-08-16 12:18:46

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Gülredy

  tag

  #1826 Gülredy

  #1826 Gülredy

  For i = 1 To 20

  strSQL = "INSERT INTO valuta (b)"
  strSQL = strSQL & "VALUES (" & Cells(20, a).Text & ")"
  Next i

  Valahogy így?

  A második sorra Application defined or Object Defined error-t nyom!

  Már rájöttem mit rontottam el nem tudom miért a-t írtam oszlop indexnek

  Most így néz ki eddig, működni működik csak az a baj hogy csak az utolsó számot írja bele de azt 20x!
  Tehát beleraktam a program végét is (az exportálást) a for ciklusba, így beírja 20x de csak az utolsó számot! Nekem meg pl az A oszlop 20. eleméig mindet bele kellene íratni.

  For i = 1 To 20

  strSQL = "INSERT INTO valuta (b)"
  strSQL = strSQL & "VALUES (" & Cells(20, 1).Text & ")"

  Debug.Print strSQL

  cn.Execute strSQL, lngRecsAff, adExecuteNoRecords

  Debug.Print "Records affected: " & lngRecsAff
  Next i

  Mit rontok el szerinted?

Új hozzászólás Aktív témák