| End
/* Must raise a default error context in which to return the PRINT */
/* statement */
/* (if none present) since PRINT statements are a severity level of */
/* 0. */
IF (@P2Num > 0) AND (@E2Num = 0) RAISERROR ("RAISERROR.PError2",
11, 2)
IF @P2Num > 0
BEGIN
SELECT @iLoop = 0
WHILE @iLoop < @P2Num
BEGIN
SELECT @iLoop = @iLoop + 1
SELECT @PrintText = ''''PRINT.Resultset.2: Line '''' +
CONVERT(char(2), @iLoop)
PRINT @PrintText
End
End
IF @E2Num > 0
BEGIN
SELECT @iLoop = 0
WHILE @iLoop < @E2Num
BEGIN
SELECT @iLoop = @iLoop + 1
SELECT @iErrNum = @iLoop + 202000
RAISERROR ("RAISERROR.Resultset.2", 11, 2)
End
End
/* Return & Output ************************************ */
select @SetRtn = -1
RETURN @SetRtn
GO
运行完毕后，若不存在任何错误，请关闭“查询分析器”，然后继续下面的操作。否则可能是你的Sql Server 2000没有安装正确或Copy时出了问题。
打开VB6.0，新建一个工程，默认有一个窗体Form1（若没有请添加一个新的窗体，命名为Form1），在该窗体中添加一个CommandButton。保存该工程。
上一页 [1] [2] | 
