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 4 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 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
- mengkonversi data dari .txt ke .xls
by her1z_yu2n in Hal umum tentang Pascal Indonesia more 12 years ago - bantu untuk source code Sdk dengan delphi dong
by wary in Tutorial & Community Project more 13 years ago - Rave di vista ultimate
by EkoIndri in Tip n Trik Pemrograman more 13 years ago - bedain nomor dan abjad
by adokonax in Hal umum tentang Pascal Indonesia more 14 years ago - zeos connection u fastreport
by jonathan_giuliano in Reporting more 11 years ago - Class generator
by saysansay in Tip n Trik Pemrograman more 15 years ago - perintah ADOQuery yang mendeteksi posisi record
by sutomohd in MsSQL more 15 years ago - COM RS232 Help Me
by r_rafer in Network, Files, I/O & System more 13 years ago - error untuk TBlobStream
by lela in Hal umum tentang Pascal Indonesia more 15 years ago - Grumple.. Grumple...
by cyber_hecker in OOT more 15 years ago