How to insert Data into SQL Server
The code below works very well against Ms Access VBA but the same code does not insert anything against Ms SQL Server, any assistance will be highly appreciated. It seams like SQL does not like the command UPDATE I still think it wants a reference or Primary ID number while access accept without problems. The primary ID number cannot be there until the record is created, so in place of UPDATE is there something that need to be done to insert the processed data into the SQL table????
Regards
Chris
Dim JSONS As Object
lngStatus = CommRead(intPortID, strData, 14400)
Set rs = db.OpenRecordset("tblEfdReceipts")
If lngStatus > 0 Then
Set JSONS = JsonConverter.ParseJson(strData)
Z = 2
ElseIf lngStatus < 0 Then
Beep
MsgBox "Please note that there is no data to read", vbOKOnly, "The Comm Port has no data"
' Handle error.
On Error Resume Next
End If
' Process data.
For Each Item In JSONS
With rs
.AddNew
rs![TPIN] = Item("TPIN")
rs![TaxpayerName] = Item("TaxpayerName")
rs![Address] = Item("Address")
rs![ESDTime] = Item("ESDTime")
rs![TerminalID] = Item("TerminalID")
rs![InvoiceCode] = Item("InvoiceCode")
rs![InvoiceNumber] = Item("InvoiceNumber")
rs![FiscalCode] = Item("FiscalCode")
rs![TalkTime] = Item("TalkTime")
rs![Operator] = Item("Operator")
rs![Taxlabel] = Item("TaxItems")("TaxLabel")
rs![CategoryName] = Item("TaxItems")("CategoryName")
rs![Rate] = Item("TaxItems")("Rate")
rs![TaxAmount] = Item("TaxItems")("TaxAmount")
rs![TotalAmount] = Item("TaxItems")("TotalAmount")
rs![VerificationUrl] = Item("TaxItems")("VerificationUrl")
rs![INVID] = Me.InvoiceID
rs.Update
End With
Z = Z + 1
Next
rs.Close
Set rs = Nothing
Set db = Nothing
Set JSONS = Nothing
Regards
Chris
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
The method you are using is analogous to an INSERT operation
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Its done now , thank you so much for pointing me to the right direction.
Regards
Chris
Regards
Chris