🚀 go-pugleaf

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