这样写对吗?
CREATE PROCEDURE quote
@newsid varchar(50),
@CardNO varchar(50),
@tmpfulltime varchar(50),
@link varchar(50)
ASif exists (select * from quote where NewsID=@newsid and prCardNO=@CardNO)
update quote set Link=@link,pastedate=getdate() where NewsID=@newsid and prCardNO=@CardNO
else
insert into quote (ID,NewsID,Link,prCardNO) values (@tmpfulltime,@newsid,@link,@CardNO)
GO
CREATE PROCEDURE quote
@newsid varchar(50),
@CardNO varchar(50),
@tmpfulltime varchar(50),
@link varchar(50)
ASif exists (select * from quote where NewsID=@newsid and prCardNO=@CardNO)
update quote set Link=@link,pastedate=getdate() where NewsID=@newsid and prCardNO=@CardNO
else
insert into quote (ID,NewsID,Link,prCardNO) values (@tmpfulltime,@newsid,@link,@CardNO)
GO
你的exists(select * ....)改为exists(select 1 ....) 要好一点点点点CREATE PROCEDURE quote
@newsid varchar(50),
@CardNO varchar(50),
@tmpfulltime varchar(50),
@link varchar(50)
ASif exists (select 1 from quote where NewsID=@newsid and prCardNO=@CardNO)
update quote set Link=@link,pastedate=getdate() where NewsID=@newsid and prCardNO=@CardNO
else
insert into quote (ID,NewsID,Link,prCardNO) values (@tmpfulltime,@newsid,@link,@CardNO)
GO
Dim rs As ADODB.Recordset Cmd.ActiveNonnection = "DSN=MySamples;UID=sa"
Cmd.CommandText = "MyNextProc"
Cmd.CommandType = adCmdStoredProcSet rs = Cmd.Execute()
While Not rs Is Nothing
If (Not rs.EOF) Then
Debug.Print rs(0)
End If
Set rs = rs.NextRecordset()
Wend