🚀 go-pugleaf

Whoops:
The Below Statement is wrong
>   QueryOperations->Parameters->ParamBYName("Unit4")->Value = UserDeclared4 = "HY01";

when it should be:

QueryOperations->Parameters->ParamBYName("Unit4")->Value = UserDeclared4;

It was a copy paste mistake into the Post.

Heinz.




"Heinz Ketchup" <heinz_like_the_ketchup@h0tmail.n0spam.c0m.n0spam> wrote:
>
>Hi Mark and Viatcheslav,
>
>Here is my method. It's rather basic, as I was just trying to test your example. So here it is.
>
>
>void TStatus6DatabaseModule::FetchUnitHeatRateDetails(TADOQuery* QueryOperations)
>{
>
>AnsiString FlexibleSQLStatement;
>AnsiString UserDeclared1, UserDeclared2, UserDeclared3, UserDeclared4;
>
>   UserDeclared1 = "GN01";
>   UserDeclared2 = "CB03";
>   UserDeclared3 = "RD09";
>   UserDeclared4 = "HY01";
>
>   QueryOperations->Close();
>   QueryOperations->SQL->Clear();
>
>   FlexibleSQLStatement += "SELECT UNIT, LONGNAME, A, B, C, D ";
>   FlexibleSQLStatement += "FROM emc.allUnits ";
>   FlexibleSQLStatement += "WHERE UNIT = :Unit1 ";
>   FlexibleSQLStatement += "OR UNIT = :Unit2 ";
>   FlexibleSQLStatement += "OR UNIT = :Unit3 ";
>   FlexibleSQLStatement += "OR UNIT = :Unit4 ";
>
>   QueryOperations->Parameters->ParseSQL(FlexibleSQLStatement,true);
>   QueryOperations->Parameters->ParamByName("Unit1")->Value = UserDeclared1;
>   QueryOperations->Parameters->ParamByName("Unit2")->Value = UserDeclared2;
>   QueryOperations->Parameters->ParamByName("Unit3")->Value = UserDeclared3;
>   QueryOperations->Parameters->ParamBYName("Unit4")->Value = UserDeclared4 = "HY01";
>
>   QueryOperations->Open();
>
>}
>
>I hope this helps?
>
>Error Message is:
>Project DataModuleTestingProject.exe raised exception class EOleException with message 'No value give for one or more required parameters'. Process stopped. Use Step or Run to continue.
>
>The error message isn't overly helpful, but I'm assuming that the Variables Unit1, Unit2, Unit3, and Unit4 are not being properly bound?
>
>Thanks for all your help guys.
>
>Heinz
>
>
>
>
>"Mark Guerrieri" <mguerrieri@cmsgrp.com> wrote:
>>Ah yes, I missed that- the column and table names can not be parameters- you
>>need to dynamically add them to your SQL string.
>>
>>Mark
>>
>>"Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
>>news:40bd7880@newsgroups.borland.com...
>>> SELECT ?, ?
>>>
>>> Most (if not all) DBMS will not allow parameters at this place. Enclose
>>also
>>> column names into quotes - Date is probably keyword. Use TADODataSet and
>>set
>>> CommandText property.
>>>
>>> //------------------------------------------
>>> Regards,
>>> Vassiliev V. V.
>>> http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
>>> ADO.Net
>>> http://www.oledbdirect.com - The fastest way to access MS SQL Server,
>>> MS Jet (Access) and Interbase (through OLEDB)
>>>
>>> "Heinz Ketchup" <heinz_like_the_ketchup@h0tmail.no_spam.c0m.no_spam>
>>> �������/�������� � �������� ���������:
>>> news:40bb4d03$1@newsgroups.borland.com...
>>> >
>>> > Thanks Mark,
>>> >
>>> > The first method works fine for me.
>>> >
>>> > Although I did try your second method, and it didn't seem to work.
>>> > Is there something special that changes in the SQL Query?
>>> >
>>> > i.e.
>>> > C++ Code
>>> > DynamicFlexSQLStmt = "SELECT :Var1, :Var2 ";
>>> > DynamicFlexSQLStmt += "FROM mySQLTable ";
>>> > DynamicFlexSQLStmt += "WHERE Date >= :StartDate ";
>>> > DynamicFlexSQLStmt += "AND Date <= :EndDate ";
>>> >
>>> > TADOQuery1->Parameters->ParseSQL(DynamicFlexSQLStmt, true);
>>> > TADOQuery1->Parameters->ParamByName("Var1")->Value = "Date";
>>> > etc...
>>> >
>>> > Debugging the DynamicFlexSQLStmt
>>> > DynamicFlexSQLStmt = "SELECT ?, ? FROM mySQLTable WHERE Date >= ? AND
>>Date
>>> <= ?"
>>> > It starts when the ParseSQL statement command is executed,
>>> > and remains that way after all the ParamByName statements are called
>>> >
>>> > I get an error "No Value given for one or more required Parameters"
>>> >
>>> > Any thoughts?
>>> > And THANKS A LOT for the your reply!
>>> > You've helped a whole heaps load!
>>> >
>>> > Heinz.
>>> >
>>> >
>>> >
>>> > "Mark Guerrieri" <markg11@comcast.net> wrote:
>>> > >>
>>> > >> AnsiString DynamicFlexSQLStmt = "SELECT Date " + ""... (Whatever I
>>add
>>> for
>>> > >Column Selections)
>>> > >>
>>> > >> I cannont use TADOQuery1->SQL->Add(":MyFlexibleSQLStmt");
>>> > >> TADOQuery1->SQL->Parameters->ParamByName("MyFlexibleSQLStmt")->Value
>>=
>>> > >DynamicFlexSQLStmt;
>>> > >>
>>> > >
>>> > >Try this-
>>> > >
>>> > >AnsiString DynamicFlexSQLStmt = "SELECT Date " + ""... (Whatever I add
>>> for
>>> > >Column Selections)
>>> > >TADOQuery1->SQL->Text = DynamicFlexSQLStmt;
>>> > >
>>> > >I do this all the time and it works fine.  I don't bother with
>>> parameters,
>>> > >I just build the values right into the SQL statement.  If you need
>>> > >parameters, add this:
>>> > >
>>> > >TADOQuery1->Parameters->ParseSQL(DynamicFlexSQLStmt, true);
>>> > >TADOQuery1->Parameters->ParamByName("ParamName")->Value = ParamValue;
>>> > >
>>> > >Mark
>>> > >
>>> > >
>>> >
>>>
>>>
>>
>>
>