Arsip: masukin data ke var dari database

 
user image
more 14 years ago

adhisyanda

kk,, aq mu nanya gmn ya caranya masukin data dari database ke variable... misalnya ada field nama d database.. mu aq masukin ke var yg berbentuk array.. gmn y caranya??? txh b4... plz help me...
user image
more 14 years ago

DelphiExpert

perlu diperjelas lagi var berbentuk array seperti apa yg dimaksud...? apakah utk menampung value 1 field aja (nama) atau utk menampung value semua field?
user image
more 14 years ago

adhisyanda

misalnya nama var nya nama:array of string; aq mu ngambil datanya dari field nama.. jd smua yg ada di field nama entar aq tampung di var nama... gtu kk...
user image
more 14 years ago

n3o_cybertech


var
ArrNama: array of string;
begin
with Query1 do
begin
Close;
SQL.Text('SELECT * FROM adm_pegawai');
Open;
SetLength(ArrNama,RecordCount-1);
while not Eof do
 ArrNama[RecNo] := FieldByName('nama').AsString;
end;
end;
kira2 bgitu sih,klo msih error ya coba perbaiki sndiri dlu ya...:D
user image
more 14 years ago

adhisyanda

kk,, qo wkt aq run malah form nya g mau keluar sama skali?? awal nya ada error tp dah aq perbaiki... tp ttp g jln.. conection nya aq pake ado DB nya aq pke mysql procedure TForm1.FormActivate(Sender: TObject); var i:integer; begin n:=1; with ADOQuery1 do begin SetLength(Nama,RecordCount-1); while not Eof do begin Nama[RecNo] := FieldByName('user').AsString; inc(n); end; end; end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=1 to n do begin StringGrid1.Cells[1,i]:=nama[i]; end; end; var nama nya aq pake sbg var global. plz help me kk...
user image
more 14 years ago

heriy4nt0

di dalam looping :
while not eof do
begin
.........
Next;   //---------> tambahkan next di baris terakhir sebelum keluar looping while
end;
n = 1?? ..array dynamic dimulai dari 0 jadi n:=0;
user image
more 14 years ago

adhisyanda

malah jd error kk,,,,, gmn dung???
user image
more 14 years ago

adhisyanda

sry doubl post.. error messagenya "raised exception class ...." plz help me kk expertise....
user image
more 14 years ago

heriy4nt0

procedure TForm1.FormActivate(Sender: TObject);--------->>gunakan OnShow (jangan OnActive) var i:integer; begin n:=1;----------------->>seharusnya n=0 with ADOQuery1 do begin SetLength(Nama,RecordCount);-->recordcount tidak perlu dikurang 1 while not Eof do begin Nama[n] := FieldByName('user').AsString;-->>bukan nama[Recno] inc(n); next; --->> tambahkan next end; end; end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin StringGrid.rowcount := n+1; for i:=0 to n do begin StringGrid1.Cells[1,i+1]:=nama[i]; end; end;
user image
more 14 years ago

adhisyanda

msh ttp g bisa kk... error report nya msh ttp kaya yg td.... :cry: :( :cry: :( :cry:
more ...
  • Pages:
  • 1
  • 2
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com