mas wahyu pesan over flow itu kemungkinan karena tipe data di tabel
cust. maksudnya gini, mungkin field utk menampung txtTglLahir &
txtTgl tipenya datetime, trus utk menampung txtTotal tipenya numeric
(integer, single, double ato whatever lah).
coba kalo strSave diubah gini :
strSave = "Insert into cust values('" & txtKdCust.Text & "','" &
txtNama.Text & "','" & txtAlamat.Text & "','" & txtRT.Text & "','" &
txtRW.Text & "','" & txtKel.Text & "','" & txtKec.Text & "','" &
txtArea.Text & "','" & txtTelpon.Text & "','" & txtTempat.Text
& "',datevalue('" & txtTglLahir.Text & "'),'" & cmbJns.Text & "','"
& cmbAgama.Text & "','" & cmbStatus.Text & "','" &
cmbPendidikan.Text & "','" & cmbKota.Text & "','" & cmbPropinsi.Text
& "'," & txtTotal.Text & ", datevalue('" & txtTgl.Text & "'),'" &
txtKeterangan.Text & "')"
semoga berhasil...
--- In [email protected], Wahyu Gunawan
<[EMAIL PROTECTED]> wrote:
>
> Dear All,
>
> saya mempunyai database DbKasir dengan tabel cust. yang ingin
saya tanyakan adalah saya melakukan perintah simpan data sebagaimana
dibawah ini :
>
> Set CN = New ADODB.Connection
> CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist
Security Info=False;Data Source=" & App.Path
& "\Db\DbKasir.mdb;Mode=readwrite"
> CN.Open
>
> strSave = "Insert into cust values('" & txtKdCust.Text & "','" &
txtNama.Text & "','" & txtAlamat.Text & "','" & txtRT.Text & "','" &
txtRW.Text & "','" & txtKel.Text & "','" & txtKec.Text & "','" &
txtArea.Text & "','" & txtTelpon.Text & "','" & txtTempat.Text
& "','" & txtTglLahir.Text & "','" & cmbJns.Text & "','" &
cmbAgama.Text & "','" & cmbStatus.Text & "','" & cmbPendidikan.Text
& "','" & cmbKota.Text & "','" & cmbPropinsi.Text & "','" &
txtTotal.Text & "','" & txtTgl.Text & "','" & txtKeterangan.Text
& "')"
> CN.Execute strSave, , adCmdText
>
> tapi setelah saya jalankan, keluar peringatan Over Flow.
>
>
>
> ---------------------------------
> New Yahoo! Messenger with Voice. Call regular phones from your PC
and save big.
>
> [Non-text portions of this message have been removed]
>
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
