Maaf belum sempat lihat langsung dalam file.
Pokok permasalahannya adalah bagaimana cara Anda menyusun query.
Setiap field yang nilai blank di worksheet :
1. harus jadi 0 ketika dimasukkan ke field db bertipe numerik
2. boleh tetap nullstring '' jika field db bertipe text (string)
Coba pada blok kondisi dalam for each teks1 blabla
diubah jadi :
select case teks1.column
case 4,5 'tipe datetime
teks1="#" & format$(teks1,"YYYY-MM-DD") & "#"
case 3,11 'tipe string
teks1="'" & teks1 & "'"
case else 'numerik'
teks1=clng(0 & teks1)
end select
teks=teks & "," & teks1
kemudian bagian replace teks yag tadinya berbunyi :
teks=replace( blabla )
diganti menjadi :
teks=mid$(teks,2)
Wassalam,
Kid.
2012/12/19 Heru Safrudin <[email protected]>
> **
>
>
> **
> Dear Mr. Kid
> Sebelumnya cara dibawah sudah saya coba semua, tapi masih error (type
> mismatch)
>
>
> ----- Original Message -----
> *From:* Mr. Kid <[email protected]>
> *To:* [email protected]
> *Sent:* Monday, December 17, 2012 5:51 PM
> *Subject:* Re: [belajar-excel] Data mismatch dimana ya?
>
>
>
> Pak Heru,
>
> 1. Bagaimana jika data di worksheetnya yang diganti dengan 0 ?
> >> Jadi semua kolom yang harusnya berisi numerik, jika blank diganti 0
>
> 2. atau baca nilai cell lalu periksa isinya, jika harusnya kolom bertipe
> numerik, maka ganti jadi 0.
> >> ops ini yang coba dilakukan ya...
> 'If TEKS1.Column = 6 Then
> ' If TEKS1 = "" Then TEKS1 = 0
> 'End If
> coba letakkan hasil usaha di atas sebelum IF lainnya dalam loop tersebut.
>
> Wassalam,
> Kid.
>
>
> 2012/12/17 Heru Safrudin <[email protected]>
>
>> **
>>
>>
>> saya coba kasih validasi masih mismatch
>>
>> 'If TEKS1.Column = 6 Then
>> ' If TEKS1 = "" Then TEKS1 = 0
>> 'End If
>>
>>
>> Pada 17 Desember 2012 14:55, Mr. Kid <[email protected]> menulis:
>>
>> **
>>>
>>>
>>> Pak Heru,
>>>
>>> Ada ketidak sesuaian tipe data antara query dengan struktur tabel di
>>> database-nya.
>>> Berikut bunyi query Insert Into -nya :
>>> Insert Into P1 (
>>> REF,JOB,MACHINE,START,STOP,DOWNTIME,GLD,PK,QTY,KA,REMARK )
>>> select '1534','200001','A1','02-01-2012','02-01-2012','','150','
>>> 792','19858','30.2',''
>>>
>>> Berikut tipedata tabelnya :
>>> REF Long JOB Long MACHINE Text (50) START datetime STOP datetime
>>> DOWNTIME Long GLD Long PK Long QTY Long KA Long REMARK Text (50)
>>> Semua data yang dimasukkan ke database adalah berupa tipe data string
>>> dan proses konversi ke tipe data milik table diserahkan ke db engine nya.
>>> Pada saat inputan berupa NULLSTRING ('') dan harus masuk ke field
>>> bertipe numerik Long (lihat field Downtime), maka nullstring tidak
>>> dapat dikonversi oleh db engine.
>>> Inilah yang menyebabkan data type mismatch.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>> On Mon, Dec 17, 2012 at 1:26 PM, Heru Safrudin <[email protected]>wrote:
>>>
>>>> **
>>>>
>>>>
>>>>
>>>> Dear Mr. Kid
>>>>
>>>> Dimanakan letak data mismatchnya ya? (terlampir)
>>>>
>>>>
>>>> --
>>>> Regards,
>>>>
>>>> Heru Safrudin
>>>>
>>>>
>>>
>>
>>
>> --
>> Regards,
>>
>> Heru Safrudin
>>
>>
>>
>
>
