🚀 go-pugleaf

> WHERE Stores_Account = ''?'''

Do not enclose ? in quotes - it becomes string value in this case.

//------------------------------------------
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)

"Dale Williams" <dwilliams@yf.com> ???????/???????? ? ???????? ?????????:
news:418900fa$1@newsgroups.borland.com...
> Everyone:
>
> I have a fairly simple test program to pass a parameter to an SQL
> statement but doesn't work.  The app. only takes the results and binds
> them results to a data grid.
>
> When I run the program I don't receive any errors.  I just receive a
> empty datatable.
>
> If I use the following statement and don't setup a parameter, I receive
> data from the query and everything is fine.
>    cmd := System.Data.OleDb.OleDbCommand.Create('SELECT * FROM INSAS_REC
> WHERE Stores_Account = ' + ''''test'''', cnn);
>
>
> Here is the problem code:
>
> test := 'SHIP';
>
>    cnn :=
> System.Data.OleDb.OleDbConnection.Create('provider=connxoledb;Persist
> Security Info=True;prompt=no;Data
> Source=c:\AlphaYF.CDD;Location=RMS;User
> ID=connx;Password=*****;Mode=ReadWrite;');
>
>    cmd := System.Data.OleDb.OleDbCommand.Create('SELECT * FROM INSAS_REC
> WHERE Stores_Account = ''?''', cnn);
>
> cmd.Parameters.Add('a1', OleDbType.Char, 8).Value := test;
> da  := System.Data.OleDb.OleDbDataAdapter.Create(cmd);
>
> dt  := System.Data.DataTable.Create();
>
> da.Fill(dt);
>
> self.DataGrid1.DataSource := dt;
> self.DataGrid1.DataBind();
>
> Thanks for the help,
> Dale Williams