Arsip: bantu masukin data dari strng grid ke database access donk !

more 12 years ago
jajang
pgi delphier ?
saya dah berhasil nich masukin data ke stringgrid ?
tapi saya masih merasa bingung gimana yach cara'ya masukin data dari string grid itu ke database yang saya punya, saya pake databse access ?
thank's b4

more 12 years ago
n3o_cybertech
ya isi dari Stringgrid itu tinggal dibuatin aja querynya bukan???
ex :
var
i: integer;
begin
//baris stringgrid paling atas asumsinya adalah title per column
for i:=0 to sgTrans.RowCount - 1 do
begin
with Query1 do
begin
Close;
SQL.Text := 'INSERT INTO namatabel(field1,field2)VALUES(' + QuotedStr(sgTrans.Cells[0,i + 1]) + ',' + QuotedStr(sgTrans.Cells[1,i + 1]) + ')';
ExecSQL;
end;
end;
end;
begitu kira2 konsep mudahnya...klo samplenya gak jalan jangan marah yee... :D
more 12 years ago
jajang
gghi saya punya code diawah ini
[color=red]procedure TfPenyewaanFilm.dbeJumlahExit(Sender: TObject);
var i : Integer;
var b : Integer;
begin
for i := 1 to sgPenyewaan.RowCount+1 do
b := sgPenyewaan.RowCount-1; //b itu jumlah recordcount
i := 1; //i itu jumlah penjumlahan tambah 1 pada recordcount
MessageDlg(IntToStr(b),mtInformation,[mbOk],0);
while i <= b do
begin
sgPenyewaan.Cells[0,b] := dbeNoSewa.Text;
sgPenyewaan.Cells[1,b] := dbeKodeFilm.Text ;
sgPenyewaan.Cells[2,b] := dbeJudulFilm.Text ;
sgPenyewaan.Cells[3,b] := dbeHarga.Text;
sgPenyewaan.Cells[4,b] := dbeQty.Text;
sgPenyewaan.Cells[5,b] := dbeJumlah.Text;
Inc(i);
end;
sgPenyewaan.RowCount := sgPenyewaan.RowCount + 1;
end;[/color][/code:1:7113cd409e]
artinya : saya pnya 5 dbEdit, ketika saya on exit di dbejumlah secara otomatis dya akan tambah ke sgpenyewaan "stringgrid", code di atas sudah jalan..
tapi yang membuat saya bingung kan semua data yang saya masukin ke strng grid itu ga berhasil ?
saya pke code :
procedure TfPenyewaanFilm.btnPinjamClick(Sender: TObject);
var i : Integer;
var b : Integer;
begin
for i := 1 to sgPenyewaan.RowCount+1 do
b := sgPenyewaan.RowCount-1;
i := 1;
while i <= b do
begin
RunSQL(dmRental.quSewa, 'INSERT INTO t_sewa (kode_sewa,kode_film,qty_sewa,jumlah_sewa) VALUES ('+
QuotedStr(sgPenyewaan.Cells[0,b])+','+
QuotedStr(sgPenyewaan.Cells[1,b])+','+
QuotedStr(sgPenyewaan.Cells[4,b])+','+
QuotedStr(sgPenyewaan.Cells[5,b])+') ');
Inc(i);
end;
end;
aritnya : saya pengen tambah data yang sudah ada di stringgrid dimasukin tadi ke db access tapi ketika saya klick pinjam,, error,, mohon bantuanya ?
thanks' b4[code:1:7113cd409e]

more 12 years ago
alvonz
@jajang bukannya udah dibahas thread ini?kok bikin lagi dengan topik yang sama

more 12 years ago
jajang
@alvonz: @jajang bukannya udah dibahas thread ini?kok bikin lagi dengan topik yang samaitu memang sudah di bahas tapi, kan cara masukin data ke string grid sedang kan ini dari stringgrid'ya sendiri ke database, , maaf saya juga sebelum bertanya suka seach di tread yang dulu, tapi g ada ! saya g mungkin bertanya klo dah ada jawabn'ya ?

more 12 years ago
mas_kofa
procedure TfPenyewaanFilm.btnPinjamClick(Sender: TObject);
var i : Integer;
var b : Integer;
begin
for i := 1 to sgPenyewaan.RowCount+1 do
b := sgPenyewaan.RowCount-1;
i := 1;
while i <= b do
begin
RunSQL(dmRental.quSewa, 'INSERT INTO t_sewa (kode_sewa,kode_film,qty_sewa,jumlah_sewa) VALUES ('+
QuotedStr(sgPenyewaan.Cells[0,b])+','+
QuotedStr(sgPenyewaan.Cells[1,b])+','+
QuotedStr(sgPenyewaan.Cells[4,b])+','+
QuotedStr(sgPenyewaan.Cells[5,b])+') ');
Inc(i);
end;
end;
b nya ganti i ....
more 12 years ago
n3o_cybertech
@jajang : tolong klo mo diskusikan hal yang sama agar terusin thread yang pernah dibuat aja jangan dikit2 buat thread baru kayak gini... :evil: thread merged dengan thread "simpan data dari stringgrid ke database access ?!" !!!

more 12 years ago
jajang
mas_kofa,
saya sudah ganti b sama i
jadi gini
if MessageDlg('Yakin Akan Di Pinjam', mtInformation,[mbYes,mbNo],0) = mrYes then
begin
b := sgPenyewaan.RowCount-1;
while i <= b do
begin
RunSQL(dmRental.quSewa, 'INSERT INTO t_sewa (kode_sewa,kode_film,qty_sewa,jumlah_sewa) VALUES ('','+
QuotedStr(sgPenyewaan.Cells[1,i])+','+
QuotedStr(sgPenyewaan.Cells[4,i])+','+
QuotedStr(sgPenyewaan.Cells[5,i])+') ');
Inc(i);
end;
end;
tapi ketika saya klik pinjam, dya ga ngelkuin apa",, gd error apa" tapi ga masuk ke database !
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Berbagi pengalaman aneh
by ichan29 in Bedah Kasus more 11 years ago - Senjata Perang yang Mantap
by n3o_cybertech in Tip n Trik Pemrograman more 13 years ago - buat aplikasi jd .exe
by tanyaku in Hal umum tentang Pascal Indonesia more 13 years ago - [tanya] hubungan reflexive
by grounders in Tip n Trik Pemrograman more 15 years ago - result
by muktaf in Tip n Trik Pemrograman more 13 years ago - read assembler di delphi dengan CPORTLIB
by w4rek in Enginering more 13 years ago - Tipe Data MySQL
by J4ckR1pp3r in MySQL more 14 years ago - bagaimana cara menggunakan DBImage buat masukin image JPG ?
by shindo in Hal umum tentang Pascal Indonesia more 13 years ago - mendapatkan kode rantai dari citra biner
by picastana in Enginering more 11 years ago - Windows API
by Chep_Rytheone in Hal umum tentang Pascal Indonesia more 15 years ago