hummm... inputan yg ada di textbox mungkin melebihi ukuran field di database. coba cek deh.. cara menanggulangi biar ga terjadi lg, bgmn klo set maxlength dari textbox2 tersebut agar sesuai dengan length di database..
- aNd WhAtEvEr yOu Do, dO iT hEaRtiLy aS FoR ThE LoRd ^^- --- On Wed, 2/4/09, Jemmy Last <[email protected]> wrote: From: Jemmy Last <[email protected]> Subject: [BinusNet] Tanya VB To: [email protected] Date: Wednesday, February 4, 2009, 8:52 PM Guys , g mo tny knp y kalo g mo ngesave data pst ada error yg tulisannya : String or binary data would be truncated ,padahal slm ini gpp . Private Sub Command2_Click( ) Dim MSQL As String MSQL = " insert into SO_Commercial ( Tanggal,NO_SO, CustomerName, Item,Qty, TotalAmount, DateLine) " & " values( '" & DTPicker1.Value & "','" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & DTPicker2.Value & "')" conn.Execute MSQL Adodc1.RecordSource = " Select * from SO_Commercial where NO_SO='" & Text1.Text & "'" Adodc1.Refresh End Sub G bth jwbnnya tq [Non-text portions of this message have been removed] [Non-text portions of this message have been removed]
