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

概述procedure TForm1.Button1Click(Sender: TObject);begin ADOConnection1.Open(‘xj‘,‘123456‘); ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(‘insert into UserInfo(UserName, UserPwd,

procedure TForm1.button1Click(Sender: TObject);begin  ADOConnection1.Open(‘xj‘,‘123456‘);  ADOquery1.Close;  ADOquery1.sql.Clear;  ADOquery1.sql.Add(‘insert into UserInfo(Username,UserPwd,Address,RoleID,IsDel,CreateDate) values(:Username,:UserPwd,:Address,:RoleID,:IsDel,:CreateDate)‘);  ADOquery1.Parameters.Clear;  ADOquery1.Parameters.CreateParameter(‘Username‘,ftString,pdinput,50,‘aaa‘);  ADOquery1.Parameters.CreateParameter(‘UserPwd‘,‘aaa1‘);  ADOquery1.Parameters.CreateParameter(‘Address‘,‘aaa2‘);  ADOquery1.Parameters.CreateParameter(‘RoleID‘,ftInteger,1);  ADOquery1.Parameters.CreateParameter(‘IsDel‘,0);  ADOquery1.Parameters.CreateParameter(‘CreateDate‘,ftDateTime,50,null);  ADOquery1.Execsql;  ADOConnection1.Close;end;

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

procedure Takhbdsp.button1Click(Sender: TObject);begin  ADOConnection1.Open(‘xj‘,:CreateDate)‘);  ADOquery1.Prepared:=True;//预编译置为True  {  ADOquery1.Parameters.Clear;  ADOquery1.Parameters.CreateParameter(‘Username‘,50,UserInfo.Username);  ADOquery1.Parameters.CreateParameter(‘UserPwd‘,UserInfo.UserPwd);  ADOquery1.Parameters.CreateParameter(‘Address‘,UserInfo.Address);  ADOquery1.Parameters.CreateParameter(‘RoleID‘,UserInfo.RoleID);  ADOquery1.Parameters.CreateParameter(‘IsDel‘,UserInfo.IsDel);  ADOquery1.Parameters.CreateParameter(‘CreateDate‘,UserInfo.CreateDate);  }//不用创建Parameter，而是直接给Parameter赋值，通常都采用这种方法，预编译能够优化SQL语句，提高执行效率。  ADOquery1.Parameters[0].Value:=‘aaaun‘;  ADOquery1.Parameters[1].Value:=‘aaapwd‘;  ADOquery1.Parameters[2].Value:=‘aaaadress‘;  ADOquery1.Parameters[3].Value:=‘1‘;  ADOquery1.Parameters[4].Value:=‘0‘;  ADOquery1.Parameters[5].Value:=‘2008-9-18‘;  ADOquery1.Execsql;  ADOConnection1.Close;end;

总结

以上是内存溢出为你收集整理的delphi 中如何执行SqlParameter形式的SQL语句全部内容，希望文章能够帮你解决delphi 中如何执行SqlParameter形式的SQL语句所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。