- Nagyon nem szokványos módon ment tönkre egy ASML gép Kínában...
- Fájlformátumok a gyakorlatban: ProRes, H.265, AV1
- "3D-s" hővezető csövekkel jön a Cooler Master legfrissebb CPU-hűtője
- Olcsóbb fajtájúnak ígérkező Team Group SSD a PCI Express 5.0-s halmazban
- Több memóriát kapott az RTX PRO 5000 új kiadása
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- DUNE médialejátszók topicja
- Fejhallgató erősítő és DAC topik
- Milyen házat vegyek?
- OLED TV topic
- Androidos tablet topic
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- "3D-s" hővezető csövekkel jön a Cooler Master legfrissebb CPU-hűtője
- Különleges és kompakt Maxsun deszka jön az AMD platformon
- Akciókamerák
Új hozzászólás Aktív témák
-
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 iMit rontok el szerinted?
-
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.
-
Új hozzászólás Aktív témák
- Elektromos autók - motorok
- Luck Dragon: Asszociációs játék. :)
- Kertészet, mezőgazdaság topik
- Víz- gáz- és fűtésszerelés
- AliExpress tapasztalatok
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Háztartási gépek
- Elemlámpa, zseblámpa
- További aktív témák...
- Lenovo ThinkPad P14s Ryzen 5 PRO5650u 32GB RAM 512GB SSD 4GB dedikált VGA Érintőkijelző
- Apple iPhone 15 Pro, 128Gb, független, fekete, 1 év garancia
- AMD Ryzen 5 5600X 6-Core 3.7GHz AM4
- Bomba ár! HP ProBook 430 G3 - i3-6GEN I 4GB I 128SSD I HDMI I 13,3" HD I Cam I W10 I Garancia!
- Bomba ár! HP ProBook 430 G5 - i3-7GEN I 4GB I 128GB SSD I HDMI I 13,3" FHD I Cam I W11 I Garancia!
- HIBÁTLAN iPhone 13 Pro 128GB Alpine Green -1 ÉV GARANCIA - Kártyafüggetlen, MS2978
- HIBÁTLAN APPLE WATCH ULTRA 2 NATURAL TITANIUM 49MM -1 ÉV GARANCIA - MS3714, 100% AKKUMULÁTOR
- Apple iPhone SE 2020 64GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
- Dell és HP szerver HDD caddy keretek, adapterek. Több száz darab készleten, szállítás akár másnapra
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest