Løkke med data fra access

kan du ikke lige nævne hvilken klasse DB er ?

var
i:integer;
begin
DB.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=imdb.mdb;Persist Security Info=False';

DB.Close;
DB.CommandText := 'Select * from buddies where user=''' + Split[1] + '''';
DB.Open;

for i := 0 to DB.RecordCount do
begin
socket.SendText(#5 + '0666' + #5 + DB.Fields.FieldByName('buddy').AsString + #5);
DB.Next;
end;
end;

men det er en ret dum måde at gøre det på. Det ville være smarte hvis du først gemte de buddies som var det i en list, og så sendte hele listen på engang istedet for at belaste socket forbindelsen med det loop.

Lyder smart DKN hvordan ville du sætte det op??

Den sender stadig kun en:

if Split[0] = '0665' then
begin
DB.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=imdb.mdb;Persist Security Info=False';

DB.Close;
DB.CommandText := 'Select * from buddies where user=''' + Split[1] + '''';
DB.Open;

for ii := 0 to DB.RecordCount do
begin
socket.SendText(#5 + '0666' + #5 + DB.Fields.FieldByName('buddy').AsString + #5);
DB.Next;
end;
end;

Clienten der modtager:

if Split[0] = '0666' then
begin
showmessage('Du modtager en adresseliste fra server');
ListItem := form1.ListView1.Items.Add;
ListItem.ImageIndex := 0;
ListItem.Caption := Split[1];
end;

Og min database [Buddies - Tabel]

user    buddy
admin    jaxo
admin    danic
admin    gæst
danic    gæst
danic    jaxo
danic    admin
jaxo    admin
jaxo    danic
jaxo    gæst

Den sender kun Jaxo, nå jeg logger ind med admin..

Den sender kun Gæst nå jeg logger ind med danic..

send lige din db, så kan jeg se det lidt bedre

Ok

if Split[0] = '0665' then
begin
DB.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=imdb.mdb;Persist Security Info=False';

DB.Close;
DB.CommandText := 'Select * from buddies where user=''' + Split[1] + '''';
DB.Open;

for ii := 0 to DB.RecordCount do
begin
socket.SendText(#5 + '0666' + #5 + DB.Fields[1].AsString + #5);
DB.Next;
end;
end;

kan ikke se rettelserne :)??

socket.SendText(#5 + '0666' + #5 + DB.Fields.FieldByName('buddy').AsString + #5);

er lavet om til:
socket.SendText(#5 + '0666' + #5 + DB.Fields[1].AsString + #5);

Ser ikke helt rigtigt ud til at virke..
Det virker så'n første gang..
kan du lave et eksempel hvor den sender det hele afsted på en gang

var der stadig ik lige en af jer der kunne fortælle mig hvilken klasse DB er ? Syntes ikke lige jeg har nogle DB klasser der har de metoder der.

Var
St:Tstringlist;

if Split[0] = '0665' then
begin
DB.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=imdb.mdb;Persist Security Info=False';

DB.Close;
DB.CommandText := 'Select * from buddies where user=''' + Split[1] + '''';
DB.Open;
St:=Tstringlist.create;
for ii := 0 to DB.RecordCount do
begin
St.add(DB.Fields[1].AsString);
DB.Next;
end;
socket.SendText(#5 + '0666' + #5 +st.text + #5);
st.free;
end;

Hvordan modtaget clienten det, og sætter det på en ViewList1

Var
St:Tstringlist;
i:integer;

if Split[0] = '0666' then
begin
showmessage('Du modtager en adresseliste fra server');
St:=Tstringlist.create;
st.text := split[1];
for i := 0 to st.count-1 do
begin
ListItem := form1.ListView1.Items.Add;
ListItem.ImageIndex := 0;
ListItem.Caption := St.strings[I];
end;
st.free;
end;

Clienten laver fejl:
List index out of bounds

Min database [Buddies - Tabel]

user    buddy
admin    jaxo
admin    danic
admin    gæst
danic    gæst
danic    jaxo
danic    admin
jaxo    admin
jaxo    danic
jaxo    gæst

Nå jeg logger ind med admin bliver min ListView1 sådan her:

Jaxo
Danic
Gæst
Gæst

Logger jeg ind med Danic bliver den:

Gæst
Jaxo
Admin
Admin

Altså to af den sidste

Vi klare det med
for ii := 0 to DB.RecordCount do
til
for ii := 0 to DB.RecordCount -1 do

Takker DKN.. Du får lige lidt flere points for den rigtig gode hjælp..

Topsite: Kunne du stadig ik lige svare på hvilken komponent du benytter ? Kunne godt tænke mig at kigge lidt på det selv :)

Hæhæ ;)
det er det der er indbygget i delphi 6 pro+

mm så er det jo herligt man sidder med Delphi 5 pro :)

hæhæ :) køb en upgrade den er ikke så dyr...

koster den ik 3k ?

Borland.com

hehe ja, men 399$ er også lidt mere end jeg vil gi for den upgrade, specielt når jeg ikke har noget desideret at bruge de nye features til .. tror jeg venter en version mere :)