- A Mátrix Androidot futtat, a Samsung kezében a csatlakozó
- Az AVX és AVX2 emulálásával kedvez az ARM-os gépeknek a Windows 11 frissítése
- 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
- Vezeték nélküli fejhallgatók
- Apple MacBook
- Azonnali notebookos kérdések órája
- Philips LCD és LED TV-k
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Kompakt vízhűtés
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Projektor topic
- A Mátrix Androidot futtat, a Samsung kezében a csatlakozó
Ú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
- BONTATLAN Új iPhone 17 PRO MAX Silver - Ezüst 256-512GGB Független 1év Apple G Azonnal átvehető.Deák
- MUNKAGÉP Dell Precision 7520 / 16gb ram / 512gb SSD / Nvidia 4gb dedikált / MAGYAR Bill
- Gamer pc eladó! 2070 Super/i5-10600KF/16GB RAM/Be Quiet
- Ryzen 7 5800X / 2x 500GB SSD / 32GB DDR4 3000MHz / RX 9060 XT + Előretelepített Eredeti Win11 PRO
- új iPhone 17 Pro 512GB cosmic orange kozmosznarancs független Apple 1 év garancia
- GYÖNYÖRŰ iPhone 13 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3576, 90% Akkumulátor
- Bomba ár! Lenovo ThinkPad T480s - i5-8GEN I 8GB I 256GB I 14" FHD I HDMI I Cam I W11 I Gari!
- GYÖNYÖRŰ iPhone 11 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3263, 100% Akkumulátor
- Xiaomi 11T 128GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Dell Latitude E5440 - i5-4GEN I 4GB I 320GB I 14" I HDMI I Cam I W10 I Gari!
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest