ADOCommand元件之疑問 |
|
|
|
supermen
一般會員   發表：5 回覆：2 積分：1 註冊：2002-04-28 發送簡訊給我 |
SQL預存程序如下 CREATE procedure test1
@lan varchar(10)
as
insert 語言(語言名稱) values(@lan)
GO 以上為Delphi設定檔
object ADOCommand1: TADOCommand
CommandText = 'test1;1'
CommandType = cmdStoredProc
Connection = ADOConnection1
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
end
item
Name = '@lan'
Attributes = [paNullable]
DataType = ftString
Size = 10
end> 以下為我寫的程式碼
adostoredproc1.Parameters.ParamByName('@lan').value:=edit1.text;
adostoredproc1.Active:=true; compiler的訊息為:
project project1.exe raised exception class EDatabaseError with message 'ADOStoredProc1:CommandText does not return a result set'. Process stopped.Use STep or Run to continue. 請問要如何解決?
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
引言: SQL預存程序如下 CREATE procedure test1 @lan varchar(10) as insert 語言(語言名稱) values(@lan) GO 以上為Delphi設定檔 object ADOCommand1: TADOCommand CommandText = 'test1;1' CommandType = cmdStoredProc Connection = ADOConnection1 Parameters = < item Name = '@RETURN_VALUE' DataType = ftInteger Direction = pdReturnValue Precision = 10 end item Name = '@lan' Attributes = [paNullable] DataType = ftString Size = 10 end> 以下為我寫的程式碼 adostoredproc1.Parameters.ParamByName('@lan').value:=edit1.text; adostoredproc1.Active:=true; 上面這一行改成 ADOStoredproc1.ExecSQL; compiler的訊息為: project project1.exe raised exception class EDatabaseError with message 'ADOStoredProc1:CommandText does not return a result set'. Process stopped.Use STep or Run to continue. 請問要如何解決? |
發表時間：2002-04-28 19:07:27
IP:202.178.xxx.xxx 未訂閱
系統時間：2024-04-26 8:28:01
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |