Arsip: [ASK] : Input Database

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

more 8 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 8 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
- 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
- backup n upload database
by yayaretina in MySQL more 14 years ago - barcode reader
by anaconda in Hal umum tentang Pascal Indonesia more 13 years ago - ADO pada Delphi
by shindo in Hal umum tentang Pascal Indonesia more 13 years ago - baru gabung trus juga baru berkecimpung di dunia delphi
by waterbomm in Hal umum tentang Pascal Indonesia more 14 years ago - image nya ga bisa ngesave??
by afre_N in MySQL more 13 years ago - ambil tanggal & jam milik komputer server
by imunk in Enginering more 15 years ago - Posisi Alligment Center di TEDIT
by DeulleDo-X in Hal umum tentang Pascal Indonesia more 13 years ago - tolong donk!belajar database enaknya dari mana dulu??
by rully in Lain-lain more 13 years ago - ShellExecute vs WinExec!!!!
by diqshu in Tip n Trik Pemrograman more 14 years ago - jumlah komponen maksimal dalam sebuah project
by d4mnf1y32 in Hal umum tentang Pascal Indonesia more 8 years ago