🚀 go-pugleaf

G'Day Vassiliev,

How's it go'n over there ?

Well, I have changed to ADOQuery but still end up with the same problem.

The command I'm issuing is:

cmdStr = "INSERT INTO MACHINE(Serial_Number,Model_Code,EqptNo) VALUES ('" + ADODataSetLocal->FieldValues["Serial_Number"] + "','" + ADODataSetLocal->FieldValues["Model_Code"] + "','" + ADODataSetLocal->FieldValues["EqptNo"] + "')";

Make any sense out of it ?

Pete



"Vassiliev V.V." <news@vassilievvv.mtu-net.ru> wrote:
>Could you send here the value of str (not code, but string that is assigned
>to CommandText)?
>You may have, for example, superfluous "," or ";". Check also that you
>insert as much values as you have columns in MACHINE table.
>
>----------------------------------------------------------------
>Regards,
>Viatcheslav V. Vassiliev
>http://www.oledbdirect.com
>The fastest way to access MS SQL Server and MS Jet (MS Access) databases.
>
>
>"Peter Moscatt" <pgmoscatt@optushome.com.au> �������/�������� � ��������
>���������: news:3da5fb5b$1@newsgroups.borland.com...
>>
>> G'Day Vassiliev,
>>
>> Gave it a try but still have the same error occuring.
>>
>> Pete
>>
>>
>>
>> "Vassiliev V.V." <news@vassilievvv.mtu-net.ru> wrote:
>> >Place eoExecuteNoRecords into ExecuteOptions property of
>ADODataSetRemote.
>> >If this does not help, provide command text, like
>> >
>> >str = "INSERT INTO MACHINE VALUES ('" +
>> >ADODataSetLocal->FieldValues["Serial_Number"] + "','TO30',1,'1','" +
>> >ADODataSetLocal->FieldValues["Model_Code"] + "','1','0.0.0.0','" +
>> >ADODataSetLocal-FieldValues["EqptNo"] + "',1)";
>> >
>> >ADODataSetRemote->CommandText = str;
>> >
>> >Write here the value of str.
>> >
>> >----------------------------------------------------------------
>> >Regards,
>> >Viatcheslav V. Vassiliev
>> >http://www.oledbdirect.com
>> >The fastest way to access MS SQL Server and MS Jet (MS Access) databases.
>> >
>> >"Peter Moscatt" <pgmoscatt@optushome.com.au> �������/�������� � ��������
>> >���������: news:3da0fa4c$1@newsgroups.borland.com...
>> >>
>> >> I am trying to write data to an Access database using the code shown
>below
>> >but get a runtime error saying "Current provider does not support
>returning
>> >multiple recordsets from a single expression."
>> >>
>> >> The provider is set to: Microsoft.Jet.OLEDB.4.0
>> >>
>> >> How do I get around this problem ?
>> >>
>> >> Pete
>> >>
>> >> ADODataSetRemote->CommandText = "INSERT INTO MACHINE VALUES ('" +
>> >ADODataSetLocal->FieldValues["Serial_Number"] + "','TO30',1,'1','" +
>> >ADODataSetLocal->FieldValues["Model_Code"] + "','1','0.0.0.0','" +
>> >ADODataSetLocal->FieldValues["EqptNo"] + "',1)";
>> >
>> >
>>
>
>