Ú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?

• #1825 martonx veterán Gülredy #1824

  Új Válasz 2012-08-16 11:49:56 #1825

  Ú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

  

  martonx

  veterán

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

  strSQL = "INSERT INTO valuta (a,b,c)" - itt adod meg, hogy mely sql mezőkbe akarsz értéket beszúrni.
  strSQL = strSQL & "VALUES (" cells(sor,oszlop).text ")" - kell két and jel természetesen, csak a billentyűzetem szar.

  Az egészet pedig egy for vagy while ciklussal annyirszor futtatod ahány sorod van.

• #1815 martonx veterán Gülredy #1812

  Új Válasz 2012-08-02 13:58:34 #1815

  Ú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

  

  martonx

  veterán

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

  azért marad egy sorban, mert egyben adjuk át neki az összefűzött értékeket.

• #1814 Gülredy tag Gülredy #1813

  Új Válasz 2012-08-02 13:24:03 #1814

  Ú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 #1813 üzenetére

  Már tárgytalan!

• #1811 martonx veterán Gülredy #1810

  Új Válasz 2012-08-01 23:25:17 #1811

  Ú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

  

  martonx

  veterán

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

  fileba = ""
  For i = 0 To lista.ListCount - 1
  lista.Selected(i) = True
  fileba = fileba & lista.List(lista.ListIndex) & ";"
  Next
  Print #1, fileba

  Annyiból nem tökéletes, hogy a legutolsó ;-t le kell majd hagynod a végéről. De valamit te is csinálj

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