Try, intead of Open, ExecSQL... Open attempts to open the query and return a record set... ExecSQL is used for queries that don't return a record set.
http://docwiki.embarcadero.com/VCL/XE/en/ADODB.TADOQuery.ExecSQL
Could you post the code that you are using for the queries you can run? As far as i know, it SHOULD be very similar code.
procedure CleanDB; var AConnection : OleVariant; SQLQry : string; begin //Create new connection object AConnection := ADO.CreateADOQuery; //Run Scripts SQLQry := 'SELECT * from Provinces;'; //specify the connection string AConnection.connectionstring := HIDDEN; //disable prompt for login //AConnection.LoginPrompt := false; AConnection.SQL := SQLQry; AConnection.Open; AConnection.Close; end;
We are running a simple select statement in here that works. But I want to be able to run a series of inserts or possibly delete statements on the database.
What happens when you replace
SQLQry := 'SELECT * from Provinces;';
with
SQLQry := 'DELETE * from Provinces;';
It SHOULD be pretty straight forward... Are there error messages that come up?
I get this error:
Commandtext does not return a result set
Maybe I am using the wrong method?
