Új hozzászólás Aktív témák
-
dani850430
csendes tag
Sziasztok!
VB6.0-t használok. Adatbázisok tárgy keretében irtam egy progit, ami egy access adatbázisból szed ki adatok, és helyez el textboxokban, hogy aztán ezekkel számításokat végezzen a program.(tengely méretező program.) Ez igy néz ki:
Dim cn As New ADODB.Connection
Dim Qy As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim Ta As New BindingCollection
Dim Tav As New BindingCollection
Dim Szija As New BindingCollection
Dim Tt As New BindingCollection
Dim Szt As New BindingCollectionPrivate Sub Command1_Click()
cn.Close
End SubPrivate Sub Form_Load()
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0 ;User ID=;Data Source=" + App.Path + "\anyagok.mdb;"
cn.Open
Set Qy.ActiveConnection = cn
Qy.CommandText = "SELECT * FROM tengely"
rs.CursorLocation = adUseClient
rs.Open Qy, , adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Set Ta.DataSource = rs
Ta.Add Form1.Text6, "Text", "Tengely atmero"
Set Tav.DataSource = rs
Tav.Add Form1.Text7, "Text", "Tavolsag"
Set Szija.DataSource = rs
Szija.Add Form1.Text5, "Text", "Szijtarcsa atmero"
Set Tt.DataSource = rs
Tt.Add Form1.Text4, "Text", "Tengely tomeg"
Set Szt.DataSource = rs
Szt.Add Form1.Text3, "Text", "Szijtarcsa tomeg"
End SubAz lenne a kérdésem, hogy működik e dolog visszafele? Arra gondolok, hogy textboxok tartalmát kiirja egy adatbázisba. Mondjuk van 3 textboxom, amikbe a program futása során végzett számítások eredménye van. És ezeket szeretném egy adatbázis megfelelő oszlopaiba beirni. Illetve, ha ez megvan, hogyan tudom elérni, hogy az adatbázis sorait léptesse, illetve, hogy mentse el?
Előre is köszönöm a segítséget
Új hozzászólás Aktív témák
- Bivalyerős lett a Poco F6 és F6 Pro
- OLED TV topic
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- Álláskeresés, interjú, önéletrajz
- CADA, Polymobil, és más építőkockák
- Realme GT Master Edition - mestermunka
- Proxmox VE
- Futás, futópályák
- Háztartási gépek
- További aktív témák...
- Lenovo ThinkPad T490 14" FHD IPS i5-8365U 16GB DDR4 512GB NVMe ujjlolv., gar
- IPhone 13 256GB Green gyári független megkímélt akku 91%
- IPHONE SE 2.GEN 2020 64GB FÜGGETLNE NAGYON JÓ AKKU, GARANCIA, ÜZLETBŐL
- Nikon D7000 + Nikkor AF-s 18-200 VR ED G (7890 expo)
- Dell XPS 9320 13.4" FHD+ IPS i7-1260P 16GB 1TB NVMe ujjlolv IR kam., gar
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest