客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
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;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论