Arsip: [ASK] : Input Database

more 12 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 12 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 12 years ago
akbaaar
gw ga ngerti gan, tapi gw paham konsep lo gmana, gw pake mysql, thanks kawan
ada lagi yang mau nambahin?

more 12 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 12 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
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- konsep pembuatan notification
by binyo in Lain-lain more 13 years ago - menjumlahkan data
by bogem in OOT more 17 years ago - import data XML
by delphi1st in Tip n Trik Pemrograman more 18 years ago - Mengatur Nilai Awal & Akhir Range
by koi1 in Tip n Trik Pemrograman more 15 years ago - gmn y cara memanggil prosedur timer
by vj_edogawa in Tip n Trik Pemrograman more 16 years ago - List Tabel pada database SQL Server 2000
by ranum in Tip n Trik Pemrograman more 16 years ago - midas.dll?
by novlog in Hal umum tentang Pascal Indonesia more 19 years ago - manggil form
by ags606 in Hal umum tentang Pascal Indonesia more 17 years ago - Delphi oh Delphi
by Butani in OOT more 18 years ago - fast report masih ga bisa
by h412fi in Reporting more 16 years ago