Arsip: [ASK] : Input Database

more 10 years ago
akbaaar
Halo semua master delphi.. :)
Gw punya masalh nih, belum dapet caranya gmana.
Jadi misalkan gw punya dua tabel, misal tabel kota dan tabel provinsi. Di dalam tabel kota, terdapat field idkota, nmkota, dan idprov(fk). Di dalam tabel provinsi, terdapat terdapat field idprov dan nmprov.
Nah, misal tabel provinsi berisi 1(sebagai idprov) dan Jawa Barat(sebagai nmprov)
dan tabel kota berisi 1(sebagai idkota), Bandung(sebagai nmkota) dan 1(sebagai idprov)
Sekarang, pada saat menjalankan aplikasi, saya ingin menambahkan nama kota,
misalkan saya menambahkan kota Sukabumi, dan pada saat memasukkan nama provinsi, dengan memilih di ComboBox, saya ingin menampilkan Nama Provinsinya..
Nah bagaimana caranya agar pada saat saya memilih Provinsi, input di database pada field idprov di tabel kota berisi idprov(fk)?
Jadi gitu gan masalahnya, mohon maaf kalo penjelasannya agak panjang :D
Mohon bantuannya ya :)

more 10 years ago
cartrun
buat nama provinsi asumsikan di tampilin di ednmprovinsi dan asumsikan km menggunakan database paradox.
programnya.
if tbprovinsi.locate('idprov',combobox1.text,) then
ednmprovinsi.text:= tbprovinsi.fieldbyname('nmprov').assting;
end;
buat input database lngsung z gan.
misal.
begin
tbkota.append;
tbkota.fieldbyname('idkota').assting:= edidkota.text;
tbkota.fieldbyname('nmkota').assting:= ednmkota.text;
tbkota.fieldbyname('idprov').assting:= combobox1.text;
tbkota.post;
end;

more 10 years ago
akbaaar
gw ga ngerti gan, tapi gw paham konsep lo gmana, gw pake mysql, thanks kawan
ada lagi yang mau nambahin?

more 10 years ago
kepiss
Maksudnya gak begitu ngerti....
var
id:String;
begin
with AdoQuery1 do
begin
close;
SQL.Clear;
SQL.add('select idprov from table_provensi where nmprov="'+combobox1.tex+'"');
open;
id:=Fields[0].AsString;
end;
end;
nilai id itu sudah id provinsi yang dicombobox

more 10 years ago
tomxpatra
@akbaaar: Halo semua master delphi.. :) Gw punya masalh nih, belum dapet caranya gmana. Jadi misalkan gw punya dua tabel, misal tabel kota dan tabel provinsi. Di dalam tabel kota, terdapat field idkota, nmkota, dan idprov(fk). Di dalam tabel provinsi, terdapat terdapat field idprov dan nmprov. Nah, misal tabel provinsi berisi 1(sebagai idprov) dan Jawa Barat(sebagai nmprov) dan tabel kota berisi 1(sebagai idkota), Bandung(sebagai nmkota) dan 1(sebagai idprov) Sekarang, pada saat menjalankan aplikasi, saya ingin menambahkan nama kota, misalkan saya menambahkan kota Sukabumi, dan pada saat memasukkan nama provinsi, dengan memilih di ComboBox, saya ingin menampilkan Nama Provinsinya.. Nah bagaimana caranya agar pada saat saya memilih Provinsi, input di database pada field idprov di tabel kota berisi idprov(fk)? Jadi gitu gan masalahnya, mohon maaf kalo penjelasannya agak panjang :D Mohon bantuannya ya :)Query buat nge load data nama propinsi buat dulu procedure load data
procedure TFmain.loaddataprovensi;
var
id:String;
begin
ComboBox1.clear; //nge clear isi ComboBox
with AdoQuery1 do
try
Close;
SQL.TEXT:='select nmprov from table_provensi ORDER BY nmprov ASC';
open;
IF not ISEMPTY then
while not EOF do
begin
ComboBox1.Items.Add(Fields[0].AsString);
next;
end;
except
on E:Exception do
ShowMessage('Kesalahan, Pesan : '+E.Message);
end;
end;
kemudian, coba definisikan function berikut
function getIDprovinsi(vNamaProv:string);
var
retVal:string;
begin
retVal:='';
with AdoQuery1 do
try
Close;
SQL.TEXT:='select idprov from table_provensi WHERE nmprov='+''''+vNamaProv+'''';
open;
IF not ISEMPTY then
retVal:=Fields[0].AsString);
finally
result:=retVal;
end;
end;
nah loaddataprovensi; bisa dijalankan saat event oncreate form
untuk getIDprovinsi(vNamaProv:string) dipanggil saat combobox onchange, atau saat mau simpan data boleh boleh aja.
kelemahannya kalau nama provinsinya sama bisa bisa berabe soalnya ente tidak jelas apakah nmprov itu sifatnya unique ?
mudah mudahan membantu :Dmore ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- programmer delphi semarang stress dah 3 tahun nganggur
by indobrainsoft in OOT more 14 years ago - nilai max query
by yayaretina in MySQL more 16 years ago - Parser & Interpreter, ada yg pernah bikin?
by DelphiExpert in Tip n Trik Pemrograman more 16 years ago - ambil tanggal & jam milik komputer server
by imunk in Enginering more 17 years ago - Cara uninstall komponen delphi hlp plz
by purnomo2007 in Hal umum tentang Pascal Indonesia more 13 years ago - Tanya SQL di Ms.Access??
by gold3n_b0y in Hal umum tentang Pascal Indonesia more 16 years ago - Cara buat program password
by tn in Tip n Trik Pemrograman more 14 years ago - tanya Fast Report [Lagi...]
by irmains in Reporting more 13 years ago - TIP: Meningkatkan Proses Startup IDE Delphi 2005
by deLogic in Tip n Trik Pemrograman more 17 years ago - BANYOLAN ALA PROGRAMMER
by MrMixer in Tip n Trik Pemrograman more 15 years ago