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

• #1827 Gülredy tag Gülredy #1826

  Új Válasz 2012-08-16 12:18:46 #1827

  Ú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

  Privát üzenet küldése

  

  Gülredy

  tag

  válasz Gülredy #1826 üzenetére

  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