Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

ListView problem

[es] :: Pascal / Delphi / Kylix :: ListView problem

[ Pregleda: 2403 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

vexx
Vukovar

Član broj: 6731
Poruke: 22
195.29.44.*



Profil

icon ListView problem14.03.2005. u 08:58 - pre 209 meseci
Programiram u VB-u 3-4 godine.Firma u kojoj radim se opredelila za Delphi.Sad sam u fazi
privikavnja.U VB-u sam se puno služio sa ListView kontrolom, pa sad to radim i u Delphiju.Provalio sam na koji način da ubacujem vrednosti u ListView, ali problem mi je kako da ih isčitam iz List-a i upišem u bazu.Upis u bazu nije problem.Evo koda u VB-u.Kako bi on izgledao u Delphiju?Unapred hvala.

Private Sub cmdSpremi_Click()
Dim iBrojac As Integer
Dim intg As Integer
Set rsUnos = New ADODB.Recordset
rsUnos.Open _
"Select * From tblUnos order by UnosID", cn, adOpenKeyset, adLockOptimistic
For iBrojac = 1 To ListView.ListItems.Count
With rsUnos
If .BOF = True And .EOF = True Then
intg = 0
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(1))
!Filter = (ListView.ListItems(iBrojac).SubItems(2))
!Firma2 = (ListView.ListItems(iBrojac).SubItems(3))
.Update
Else
.MoveLast
intg = !UnosID
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(1))
!Filter = (ListView.ListItems(iBrojac).SubItems(2))
!Firma2 = (ListView.ListItems(iBrojac).SubItems(3))
.Update
End If
End With
Next

For iBrojac = 1 To ListView.ListItems.Count
If ListView.ListItems(iBrojac).SubItems(2) = "duguje" Then
With rsUnos
.MoveLast
intg = !UnosID
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(3))
!Filter = "potrazuje"
!Firma2 = (ListView.ListItems(iBrojac).SubItems(1))
.Update
End With
Else
With rsUnos
.MoveLast
intg = !UnosID
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(3))
!Filter = "duguje"
!Firma2 = (ListView.ListItems(iBrojac).SubItems(1))
.Update
End With
End If
Next
Unload Me
End Sub
 
Odgovor na temu

sasas
Saša Slavnić
radim za neke švabe

Član broj: 35478
Poruke: 617
*.zaslon-telecom.si.



Profil

icon Re: ListView problem14.03.2005. u 09:17 - pre 209 meseci
Pomaže li ovo:

Code:

  rsUnos.Append;
  rsUnos.FieldByName('UnosID').AsInteger := 1;
  rsUnos.FieldByName('Firma1').Asstring := ListView.Items[1].SubItems[0];
  rsUnos.FieldByName('Filter').Asstring := ListView.Items[1].SubItems[1];
  rsUnos.FieldByName('Firma2').Asstring := ListView.Items[1].SubItems[2];
  rsUnos.Post;


ss.
When something is hard to do, then it's not worth doing.
 
Odgovor na temu

vexx
Vukovar

Član broj: 6731
Poruke: 22
195.29.44.*



Profil

icon Re: ListView problem15.03.2005. u 05:46 - pre 209 meseci
To sam i ja probao,ali nije radilo.Ali evo kako sam rešio.Baza je Adventage.

datamodule1.AdstblUnos.Append;
datamodule1.AdstblUnos.FieldByName('UnosID').Value:=intg+1;
datamodule1.AdstblUnos.FieldByName('Firma1').Value:=ListView.Items.Item [iBrojac].SubItems.Strings[1];
datamodule1.AdstblUnos.FieldByName('Filter').Value:='POTRAZUJE';
datamodule1.AdstblUnos.FieldByName('Firma2').Value:=ListView.Items.Item[iBrojac].Caption;
datamodule1.AdstblUnos.Post;
Ipak hvala!
 
Odgovor na temu

vexx
Vukovar

Član broj: 6731
Poruke: 22
195.29.44.*



Profil

icon Re: ListView problem15.03.2005. u 05:48 - pre 209 meseci
Pogrešan kod.Evo pravi.
datamodule1.AdstblUnos.Append;
datamodule1.AdstblUnos.FieldByName('UnosID').Value:=intg+1;
datamodule1.AdstblUnos.FieldByName('Firma1').Value:=ListView.Items.Item[iBrojac].Caption;
datamodule1.AdstblUnos.FieldByName('Filter').Value:=ListView.Items.Item[iBrojac].SubItems.Strings[0];
datamodule1.AdstblUnos.FieldByName('Firma2').Value:=ListView.Items.Item[iBrojac].SubItems.Strings[1];
datamodule1.AdstblUnos.Post;
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
213.244.208.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: ListView problem15.03.2005. u 10:33 - pre 209 meseci
For iBrojac = 1 To ListView.ListItems.Count

u delphiju je od 0 do ListView.Items.Count - 1...
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: ListView problem

[ Pregleda: 2403 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.