🚀 go-pugleaf

Ok....  from what I understand, you are asking for the SQL command I am issuing which ends up with the error I have explained.

The command which I place into a string beforehand is:

INSERT INTO Machine(Serial_Number,Model_Code,EqptNo) VALUES (DataFromLocal("Serial_Number",DataFromLocal(...


Note:  I am placing values which I have retrieved from another SQL command from another database.  Basically, the program needs to open two seperate databases and transfer data from the local to the remote, if that data dosen't exist.

If you want I can send you the code and you can have a quick look through it.


Pete








"Vassiliev V.V." <news@vassilievvv.mtu-net.ru> wrote:
>Please send only string. It could look as follow:
>
>INSERT INTO MACHINE(Serial_Number,Model_Code,EqptNo) VALUES (1, 2, 3)
>
>Could you execute this command? You should at first look where error is - it
>may be in command text (it can be seen by examining cmdStr - without any
>ADODataSetLocal->FieldValues...) or when executing command. Also, if columns
>Serial_Number etc. are integer you should not quote their values. Could you
>execute query with parameters?
>
>----------------------------------------------------------------
>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:3da9f25c$1@newsgroups.borland.com...
>>
>> 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)";
>> >> >
>> >> >
>> >>
>> >
>> >
>>
>
>