Bro apa gak disini ya yg salah...
sql = "insert into sales_confirmasi values('" & txtNo_Sales & "',' &
> cbotanggal & ','" & txtkode_custumer & "','" & lbl1 & "','" &
> txtpo_custumer & "','"& txtterm_delivery & "','" & txtterm_payment &
> "','" & txtnote_payment & "','" & txtaccount_number & "','" &.....
seharusnya kalo nda salah..
sql = "insert into sales_confirmasi (field1,field2,field3) values('" &
txtNo_Sales & "',' &....dst
Moga2 bener yaaaa...hehe,...(newbie juga nihh..)
--- In [email protected], "sunardi_kss" <[EMAIL PROTECTED]> wrote:
>
> dear vb
> saya baru belajar sql server 2000, sebelumnya saya pake msaccess.
> tolong donk betulin scrip saya kok error. saya pake visual basic
> saya sudah buat ODBC pada server dan telah terkonek.
>
> sql = "select * from sales_confirmasi where no_sales='" & txtNo_Sales
> & "'"
> Set rs = cn.Execute(sql)
> If rs.EOF Then
> sql = "insert into sales_confirmasi values('" & txtNo_Sales & "',' &
> cbotanggal & ','" & txtkode_custumer & "','" & lbl1 & "','" &
> txtpo_custumer & "','"& txtterm_delivery & "','" & txtterm_payment &
> "','" & txtnote_payment & "','" & txtaccount_number & "','" &
> txtbank_details & "'," & Val(txtdisc_po.Text) & ",'" & txttax_ppn &
> "'," & Val(lblTotal_Amount.Caption) & ")"
> End If
> cn.Execute (sql)
>
> pesan errornya
> [Microsoft][ODBC SQL Server Driver][Sql Server]String or binary data
> would be truncated.
> mohon diperbaiki kesalahannya. terima kasih
>
