Does anyone know why this wont work? Its giving an error near 'Long' in
the CommandText. Failing that - does anyone know the proper why I can do
named parameters using the raw ado objects?
procedure TForm1.Button1Click(Sender: TObject);
var
conn, cmd, prm, rs: variant;
begin
conn := CreateOleObject('ADODB.Connection');
conn.Open('Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=td_test_bt;Data Source=VOYAGER');
cmd := CreateOleObject('ADODB.Command');
cmd.ActiveConnection := conn;
cmd.CommandText :=
'Parameters [ref] Long;' +
'SELECT * FROM Staff WHERE name=[name]';
cmd.CommandType := adCmdText;
prm := cmd.CreateParameter('[ref]', adInteger, adParamInput);
prm.Value := 15;
cmd.Parameters.Append(prm);
rs := cmd.Execute;
ShowMessage(rs.Fields['full_name']);
end;
--
Vi de ud�delige inviterer dere til � sl� dere sammen med oss
---------------------------------------------------------------------------
New Zealand Delphi Users group - Database List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
