Ú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
- Honor Magic6 Pro - kör közepén számok
- Vezetékes FEJhallgatók
- exHWSW - Értünk mindenhez IS
- Milyen GPS-t vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen légkondit a lakásba?
- Magisk
- iPad topik
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Canon MILC: EOS R és M topik
- További aktív témák...
- Lenovo ThinkStation P720 Workstation: 2db Xeon proci + 128GB RAM + Quadro RTX4000 8GB + 512GB SSD
- Lenovo ThinkStation P720 Workstation: 2db Xeon proci + 64GB RAM + Quadro P4000 8GB + 512GB SSD + Win
- HP Pavilion x360 14-ek Convertible - ÚJ - 14" TOUCH notebook - i5-1235U, 16GB, 512SSD, Win11
- DJI AVATA Pro-View Combo drón (DJI goggles 2) - 2 akku, Motion Controller 2 - 1 év garancia
- LETISZTULT PC ÁTLAG FELADATOKRA - AMD R5 5600G - 16GB DDR4 RAM - 500GB NVME SSD