🚀 go-pugleaf

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)";
> >
> >
>