cara merubahnya ?

maksud saya, dengan sintaks Data2.RecordSource= "select * from B where KODE ='" 
& Trim(CDbl(Label1) ) & "'"
itu berarti Label1 (field KODE bertipe Teks) yg harus diubah ke Numerik, karena 
Label1 kan di konek kan ke DATA1 (A) dengan field KODE yg bertipe Teks .

----- Original Message ----- 
From: rukawa kaede 
To: [email protected] 
Sent: Tuesday, July 24, 2007 1:56 PM
Subject: re: [Programmer-VB] membaca variabel desimal ke string



tipe data Numeric kmu ubah menjadi Text


----- Pesan Asli ----
Dari: yongki <[EMAIL PROTECTED]>
Kepada: vb - indo <[EMAIL PROTECTED]>; Programmer - VB 
<[email protected]>; indo prog vb <[EMAIL PROTECTED]>
Terkirim: Selasa, 24 Juli, 2007 11:55:49
Topik: [Programmer-VB] membaca variabel desimal ke string



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.




--------------------------------------------------------------------------------
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo! 
Answers

 

Kirim email ke