Saya udah coba, tp ko masi eror ya..
Bener spt ini?
db.Execute "INSERT INTO tbl_sample(st, nam, ket, sen, by) " & _
"VALUES(" & rsXL.Fields("st").Value & "," & _
"'" & rsXL.Fields("nam").Value & "'" & "," & _
"'" & rsXL.Fields("ket").Value & "'" & "," & _
"#" & rsXL.Fields("sen").Value & "#" & "," & _
"'" & rsXL.Fields("by").Value & "'" & _
");"
Hs,
Indra
Pada tanggal 23/12/12, Mr. Kid <[email protected]> menulis:
> Pak Slamet,
>
> Gimana kabarnya ? Moga-moga baik selalu.
>
> Untuk tipe data datetime perlu didahului dan diakhiri dengan karakter # dan
> usahakan penulisan datetime-nya dalam format YYYY-MM-DD agar tidak terjebak
> oleh regional setting komputer setempat.
>
> Wassalam,
> Kid.
>
> 2012/12/22 Slamet <[email protected]>
>
>> **
>>
>>
>> Dear Mr Kid
>>
>> Untuk data type Date bagaimana yaa?
>>
>> Terima kasih
>>
>> On 12/22/2012 9:53 PM, Mr. Kid wrote:
>>
>>
>>
>> Pak Indra,
>>
>> Kasus ini adalah tentang tipe data (seperti kasus Pak Heru beberapa waktu
>> lalu).
>> Pada baris VBA berikut ini :
>> db.Execute "INSERT INTO tbl_sample(st, nam, ket) " & _
>> "VALUES(" & rsXL.Fields("st").Value & "," & rsXL.Fields("nam").Value &
>> ","
>> & "'" & rsXL.Fields("ket").Value & "'" & ");"
>>
>> bagian rsXL.Fields("nam").Value bertipe text jadi butuh didahului dan
>> diakhiri dengan petik satu (')
>> seperti bagian rsXL.Fields("ket").Value yang berbunyi & "'" &
>> rsXL.Fields("ket").Value & "'"
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>
