delphi 中如何执行SqlParameter形式的SQL语句

01.procedure TForm1.Button1Click(Sender: TObject);
 02.begin
 03.  ADOConnection1.Open('xj','123456');
 04.  ADOQuery1.Close;
 05.  ADOQuery1.SQL.Clear;
 06.  ADOQuery1.SQL.Add('insert into UserInfo(UserName,  UserPwd,  Address,  RoleID,  IsDel,  CreateDate) values(:UserName,  :UserPwd,  :Address,  :RoleID,  :IsDel,  :CreateDate)');
 07.  ADOQuery1.Parameters.Clear;
 08.  ADOQuery1.Parameters.CreateParameter('UserName',ftString,pdInput,50,'aaa');
 09.  ADOQuery1.Parameters.CreateParameter('UserPwd',ftString,pdInput,50,'aaa1');
 10.  ADOQuery1.Parameters.CreateParameter('Address',ftString,pdInput,50,'aaa2');
 11.  ADOQuery1.Parameters.CreateParameter('RoleID',ftInteger,pdInput,50,1);
 12.  ADOQuery1.Parameters.CreateParameter('IsDel',ftInteger,pdInput,50,0);
 13.  ADOQuery1.Parameters.CreateParameter('CreateDate',ftDateTime,pdInput,50,null);
 14.  ADOQuery1.ExecSQL;
 15.  ADOConnection1.Close;
 16.end;

　　也可以通过预编译执行SQL：

View Code

 1 01.procedure TForm1.Button1Click(Sender: TObject);
 2  02.begin
 3  03.  
 4  04.  ADOConnection1.Open('xj','123456');
 5  05.  ADOQuery1.Close;
 6  06.  ADOQuery1.SQL.Clear;
 7  07.  ADOQuery1.SQL.Add('insert into UserInfo(UserName,  UserPwd,  Address,  RoleID,  IsDel,  CreateDate) values(:UserName,  :UserPwd,  :Address,  :RoleID,  :IsDel,  :CreateDate)');
 8  08.  ADOQuery1.Prepared:=True;//预编译置为True 
 9 09.  {
10  10.  ADOQuery1.Parameters.Clear;
11  11.  ADOQuery1.Parameters.CreateParameter('UserName',ftString,pdInput,50,UserInfo.UserName);
12  12.  ADOQuery1.Parameters.CreateParameter('UserPwd',ftString,pdInput,50,UserInfo.UserPwd);
13  13.  ADOQuery1.Parameters.CreateParameter('Address',ftString,pdInput,50,UserInfo.Address);
14  14.  ADOQuery1.Parameters.CreateParameter('RoleID',ftString,pdInput,50,UserInfo.RoleID);
15  15.  ADOQuery1.Parameters.CreateParameter('IsDel',ftString,pdInput,50,UserInfo.IsDel);
16  16.  ADOQuery1.Parameters.CreateParameter('CreateDate',ftString,pdInput,50,UserInfo.CreateDate);
17  17.  }
18  18.//不用创建Parameter，而是直接给Parameter赋值，通常都采用这种方法，预编译能够优化SQL语句，提高执行效率。 
19 19.  ADOQuery1.Parameters[0].Value:='aaaun';
20  20.  ADOQuery1.Parameters[1].Value:='aaapwd';
21  21.  ADOQuery1.Parameters[2].Value:='aaaadress';
22  22.  ADOQuery1.Parameters[3].Value:='1';
23  23.  ADOQuery1.Parameters[4].Value:='0';
24  24.  ADOQuery1.Parameters[5].Value:='2008-9-18';
25  25.  ADOQuery1.ExecSQL;
26  26.  ADOConnection1.Close;
27  27.
28  28.  
29  29.end;