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]
