C chrisn Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-28 #1 SQL2000+delphi中怎么才能动态创建存储过程 由delphi中动态创建,不知道行不行.
王 王公子 Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-28 #6 procedure TUserMonitorFrm.BitBtn2Click(Sender: TObject); var DynamicSql:string; begin adocommand1.ConnectionString :='这不用我的例子吧'; adocommand1.CommandType :=cmdtext; adocommand1.CommandText :='create proc testsp '+#13+#10 +' as '+#13+#10 +'select *from sysobjects'; adocommand1.Execute end; 运行后,你到SQL那边去看一下,别忘了按F5刷新啊
procedure TUserMonitorFrm.BitBtn2Click(Sender: TObject); var DynamicSql:string; begin adocommand1.ConnectionString :='这不用我的例子吧'; adocommand1.CommandType :=cmdtext; adocommand1.CommandText :='create proc testsp '+#13+#10 +' as '+#13+#10 +'select *from sysobjects'; adocommand1.Execute end; 运行后,你到SQL那边去看一下,别忘了按F5刷新啊
王 王公子 Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-28 #7 procedure TUserMonitorFrm.BitBtn2Click(Sender: TObject); var DynamicSql:string; begin adocommand1. adocommand1.CommandType :=cmdtext; adocommand1.CommandText :='create proc testsp '+#13+#10 +' as '+#13+#10 +'select *from sysobjects'; adocommand1.Execute end;
procedure TUserMonitorFrm.BitBtn2Click(Sender: TObject); var DynamicSql:string; begin adocommand1. adocommand1.CommandType :=cmdtext; adocommand1.CommandText :='create proc testsp '+#13+#10 +' as '+#13+#10 +'select *from sysobjects'; adocommand1.Execute end;