MSFlexGrid - kako sacuvati izmene

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Na Form1 imam MSFG u koji upisujem podatke(brojeve), i tako popunjavam tabelu u bazi (Access). Veza je preko ADO kontrole.
Kako sacuvati izmene koje su unete u MSFG?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nisam nikad radio u VB sa bazama, ali predpostavljam da je isto kao i u ostalim jezicima gde mozes da koristis ADO.

Porbaj da pozoves metod Post ADO komponente koja cita podatke iz baze. Ako zelis da otkazes promene, pozovi Cancel metod.

Ako radis sa transakcijama onda posle Post moras pozvati i Commit metod transakcije.

Ako sam pogresio negde, ispravice me neko ko ima vise iskustva u VB

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Mora da se koristi update metoda...

probaj ovako neku varijantu

Adodc1.Recordset.Update
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1

trebalo bi da ti apdejtuje recordsete grida, osvezi, i onovo poveze flexgrid sa datasorsom...

poz

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Na ovaj nacin pristupam bazi ("Tabela"):

Private Sub Form_Load() Adodc1.RecordSource = "Tabela" Set MSFlexGrid1.DataSource = Adodc1 End Sub

Ovako cuvam promene samo u prvom redu FlexGrida, a treba mi da sacuvam promene u celom FlexGridu(10 kolona i 20 redova):

Private Sub ZapamtiPromene()  i = 1 Adodc1.Recordset("Kolona1") = MSFlexGrid1.TextMatrix(i, 1) Adodc1.Recordset("Kolona2") = MSFlexGrid1.TextMatrix(i, 2) Adodc1.Recordset("Kolona3") = MSFlexGrid1.TextMatrix(i, 3) End Sub Private Sub cmdSave_Click() Call ZapamtiPromene Adodc1.Recordset.Update End Sub