. .balik-balik ang ReceiptNo ug Qty, pero iba ang StockNo. .
ayaw iapil sa imo Select query ang StockNo nga field.
. .balik-balik ang ReceiptNo ug Qty, pero iba ang StockNo. .
ayaw iapil sa imo Select query ang StockNo nga field.
Dim RSS As New ADODB.Recordset
Dim ERROR As New ADODB.Recordset
Dim SQL As String
If NEWEDIT = 1 Then
SQL = "INSERT INTO DUPLICATED VALUES ('" & Me.txtMOBILE.Text & "','" & Me.TXTTRACE.Text & "','" & Me.TXTAMOUNT.Text & "','" & Me.TXTLOAD.Text & "','" & Format(DTPICKER1.Value, "DD/MM/YYYY") & "')"
RSS.Open SQL, CONN, adOpenDynamic, adLockPessimistic
MsgBox "SUCCESSFULLY SAVED "
'End If
Else
SQL = "UPDATE DUPLICATED SET TRACE =" & Val(Me.TXTTRACE.Text) & ",LOADAMOUNT =" & Val(Me.TXTAMOUNT.Text) & ",LOAD ='" & Val(Me.TXTLOAD.Text) & "',DATE=" & Format(DTPICKER1.Value, "DD/MM/YYYY") & " WHERE MOBILES='" & Val(txtMOBILE.Text) & "'"
ERROR.Open "[DUPLICATED]", CONN, adOpenForwardOnly, adLockReadOnly
MsgBox "Stock was updated successfully." & SQL
'ERROR.Close
End If
'Form_Load
SQL = "UPDATE DUPLICATED SET TRACE ='" & Val(Me.TXTTRACE.Text) & "',LOADAMOUNT ='" & Val(Me.TXTAMOUNT.Text) & "',LOAD ='" & Val(Me.TXTLOAD.Text) & "',DATE='" & Format(DTPICKER1.Value, "DD/MM/YYYY") & "' WHERE MOBILES='" & Val(txtMOBILE.Text) & "'"
..single quotation. . . i.compare sa imo INSERT INTO . .
i suggest utroha imo coding style bro. . samok na pagtrace ang imo sql
Similar Threads |
|