iya maksudnya tabel.... Trim(str(CDbl(Label1)) ) udah saya coba jalanin tp tetep keluar error seperti tadi, pake str(CDbl(Label1)) dan CDbl(Label1) aja juga ga bisa, tetep keluar error seperti tadi.
apa karena field KODE pada tabel A bertipe Text dan field KODE pada tabel B bertipe Numeric ? terus gimana caranya biar tabel A bisa konek dgn tabel B dgn menggunakan sintaks select (sql) ? ----- Original Message ----- From: Andy Zazz To: [email protected] Sent: Tuesday, July 24, 2007 12:40 PM Subject: Re: [indoprog-vb] membaca variabel desimal ke string Maksudnya tabel kali ya bukan database... ngelihat errornya kelihataannya ada di, Data2.RecordSource= "select * from B where KODE ='" & Trim(CDbl(Label1) ) & "'" kamu pake fungsi cdbl trus kamu trim... jadi menurutku harusnya nggak usah pake trim cdbl. atau kalo mau juga ubah dulu cdbl(label1)) ke string, baru di trim Trim(str(CDbl(Label1)) ) yongki <[EMAIL PROTECTED]> wrote: salam para programmer..... tu de poin aja ya, saya punya 2 database yaitu : database A berisi field KODE (text, 10) dan field NAMA (text, 30) database B berisi field USER (text, 30), field TANGGAL (date) dan field KODE (numeric, 5.1) nah 2 database ini punya relasi berdasarkan field KODE. Isi database A : ------------------------------------------------ | Kode | Nama | ------------------------------------------------ | 100 | Transprotasi | | 100.1 | Bahan Bakar | | 200 | Biaya Lain2 | | 200.1 | Konsumsi Tamu | Isi database B : ------------------------------------------------------ | User | Tanggal | Kode | ------------------------------------------------------ | Anton | 07/14/07 | 100.1 | | Andi | 07/20/07 | 200.1 | | Anita | 07/20/07 | 100 | lalu saya buat 1 program yg berisi 2 DATA , 2 DBGrid dan 1 label. masing2 DATA konek ke 2 database berbeda tadi (DATA1 konek ke A dan DATA2 konek ke B) masing2 DBGrid konek ke 2 DATA berbeda tadi (DBGrid1 konek ke DATA1 dan DBGrid2 konek ke DATA2) dan label konek dengan DATA1 (A) dengan field KODE syntaks : ------------- Private Sub Label1_Change() Data2.RecordSource="select * from B where KODE ='" & Trim(CDbl(Label1)) & "'" Data2.Refresh End Sub nah, kasusnya sewaktu di compile, ternyata keluar pesan error Run-Time error '3464': Data type mismatch in criteria expression mohon solusinya dari rekan2. Thanks sebelumnya. [Non-text portions of this message have been removed] --------------------------------- Moody friends. Drama queens. Your life? Nope! - their life, your story. Play Sims Stories at Yahoo! Games. [Non-text portions of this message have been removed] [Non-text portions of this message have been removed]
