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

• #1332 dani850430 csendes tag

  Új Válasz 2010-12-18 16:12:39 #1332

  Ú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

  

  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 BindingCollection

  Private Sub Command1_Click()
  cn.Close
  End Sub

  Private 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 Sub

  Az 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