Datanya kepanjangan kali tuh, dicoba execute SQL di SQL database server dulu atau di debug dgn cara save per column dengan value.
Best regards, sandi -------Original Message------- From: Jemmy Last Date: 02/04/09 07:52:34 To: [email protected] Subject: [BinusNet] Tanya VB 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] ------------------------------------ "We cannot all do great things.But we can do small things with great love." - Mother Teresa --------------------------------------------------------- BinusNet founded on Dec 28, 1998 Owner : Johan Setiawan Moderator BinusNet : Suryadi Liawatimena & Surya Iskandar Stop or Unsubscribe: send blank email to binusnet-unsubscr...@yahoogroups com Questions or Suggestions, send e-mail to [email protected] Yahoo! Groups Links [Non-text portions of this message have been removed]
