Hi!
I'm trying to do a Insert using Parameters but get the following error:
[FirebirdDA.SaveData] Dynamic SQL Error SQL error code =3D -104 Token =
unknown - line 1, char 181 @=20
Have also tried using Stored Procedure and get similar error.
Can anyone tell me what I'm doing wrong?
You can se the code below.
Michael H=E5kansson
------------------------------------
mic...@fr...
070-545 28 99
------------------------------------
strInsert =3D "INSERT INTO VEHICLE (VEHICLEVIN, VEHICLETACO, =
VEHICLETACODATE, VEHICLEREGNR, VEHICLEMODEL, VEHICLEYEAR, VEHICLECOLOR, =
VEHICLEGSM, VEHICLEGSMVOICE, VEHICLEPULS, VEHICLEISPOOL, VEHICLEREQUEST, =
VEHICLERESPONSE, VEHICLESERVICE, VEHICLESERVED, VEHICLECONTROL, =
VEHICLECONTROLLED, VEHICLEINFO, RADIOID, USERID, LOCATIONID, BRANDID, =
TYPEID, FUELTYPEID, MOBIBOXID, MOBIBOXIDPREV, USERIDCRE) VALUES =
(@VEHICLEVIN, @VEHICLETACO, @VEHICLETACODATE, @VEHICLEREGNR, =
@VEHICLEMODEL, @VEHICLEYEAR, @VEHICLECOLOR, @VEHICLEGSM, =
@VEHICLEGSMVOICE, @VEHICLEPULS, @VEHICLEISPOOL, @VEHICLEREQUEST, =
@VEHICLERESPONSE, @VEHICLESERVICE, @VEHICLESERVED, @VEHICLECONTROL, =
@VEHICLECONTROLLED, @VEHICLEINFO, @RADIOID, @USERID, @LOCATIONID, =
@BRANDID, @TYPEID, @FUELTYPEID, @MOBIBOXID, @MOBIBOXIDPREV, @USERIDCRE)"
insertParams(1) =3D New FbParameter("@VEHICLEVIN", FbType.VarChar, =
"VEHICLEVIN")
insertParams(2) =3D New FbParameter("@VEHICLETACO", FbType.Integer, =
"VEHICLETACO")
insertParams(3) =3D New FbParameter("@VEHICLETACODATE", =
FbType.TimeStamp, "CUSTOMERADDRESS")
insertParams(4) =3D New FbParameter("@VEHICLEREGNR", FbType.VarChar, =
"VEHICLEREGNR")
insertParams(5) =3D New FbParameter("@VEHICLEMODEL", FbType.VarChar, =
"VEHICLEMODEL")
insertParams(6) =3D New FbParameter("@VEHICLEYEAR", FbType.VarChar, =
"VEHICLEYEAR")
insertParams(7) =3D New FbParameter("@VEHICLECOLOR", FbType.VarChar, =
"VEHICLECOLOR")
insertParams(8) =3D New FbParameter("@VEHICLEGSM", FbType.VarChar, =
"VEHICLEGSM")
insertParams(9) =3D New FbParameter("@VEHICLEGSMVOICE", FbType.VarChar, =
"VEHICLEGSMVOICE")
insertParams(10) =3D New FbParameter("@VEHICLEPULS", FbType.Double, =
"VEHICLEPULS")
insertParams(11) =3D New FbParameter("@VEHICLEISPOOL", FbType.SmallInt, =
"VEHICLEISPOOL")
insertParams(12) =3D New FbParameter("@VEHICLEREQUEST", =
FbType.TimeStamp, "VEHICLEREQUEST")
insertParams(13) =3D New FbParameter("@VEHICLERESPONSE", =
FbType.TimeStamp, "VEHICLERESPONSE")
insertParams(14) =3D New FbParameter("@VEHICLESERVICE", FbType.Date, =
"VEHICLESERVICE")
insertParams(15) =3D New FbParameter("@VEHICLESERVED", FbType.Date, =
"VEHICLESERVED")
insertParams(16) =3D New FbParameter("@VEHICLECONTROL", FbType.Date, =
"VEHICLECONTROL")
insertParams(17) =3D New FbParameter("@VEHICLECONTROLLED", FbType.Date, =
"VEHICLECONTROLLED")
insertParams(18) =3D New FbParameter("@VEHICLEINFO", FbType.VarChar, =
"VEHICLEINFO")
insertParams(19) =3D New FbParameter("@VEHICLEISPOOL", FbType.SmallInt, =
"VEHICLEISPOOL")
insertParams(20) =3D New FbParameter("@RADIOID", FbType.Integer, =
"RADIOID")
insertParams(21) =3D New FbParameter("@USERID", FbType.Integer, =
"USERID")
insertParams(22) =3D New FbParameter("@LOCATIONID", FbType.Integer, =
"LOCATIONID")
insertParams(23) =3D New FbParameter("@BRANDID", FbType.Integer, =
"BRANDID")
insertParams(24) =3D New FbParameter("@TYPEID", FbType.Integer, =
"TYPEID")
insertParams(25) =3D New FbParameter("@FUELTYPEID", FbType.Integer, =
"FUELTYPEID")
insertParams(26) =3D New FbParameter("@MOBIBOXID", FbType.Integer, =
"MOBIBOXID")
insertParams(27) =3D New FbParameter("@USERIDCRE", FbType.Integer, =
"USERIDCRE")
myCmdBuilder =3D New FbCommandBuilder(myDataAdapt)
myDataAdapt.InsertCommand =3D New FbCommand(strInsCommand, myConn, =
myTrans)
myDataAdapt.InsertCommand.CommandType =3D cmdType
Dim i As Integer
For i =3D 0 To insertParams.Length - 1
myDataAdapt.InsertCommand.Parameters.Add(insertParams(i))
Next
myDataAdapt.InsertCommand.UpdatedRowSource =3D UpdRowSource
insertedRows =3D updatedDataSet.GetChanges(DataRowState.Added)
If (Not (insertedRows) Is Nothing) Then
rowsAffected =3D rowsAffected + myDataAdapt.Update(insertedRows, =
SourceTable)
End If
myTrans.Commit()
myTrans.Dispose()
Return rowsAffected
|
