语言创新 VB 6.0与大型数据库的无“数据源”连接
资
salarysum = rsdbase(1) ’工资总和
……
rsdbase .Close
5. 存储过程creatable. sql
CREATE PROCEDURE dbo.creatable(@return_value integer output)
AS
Begin
Create table Workerdb..Worker
( code nchar(4) not null ,
name char(8) not null ,
year nchar(4) ,
month nchar(2) ,
day nchar(2) ,
salary numeric(18,2) ,
duty nchar(1) )
If @@error != 0
begin
select @return_value = 1
End
Else
Begin
select @return_value = 0
End
return
End
salarysum = rsdbase(1) ’工资总和
……
rsdbase .Close
5. 存储过程creatable. sql
CREATE PROCEDURE dbo.creatable(@return_value integer output)
AS
Begin
Create table Workerdb..Worker
( code nchar(4) not null ,
name char(8) not null ,
year nchar(4) ,
month nchar(2) ,
day nchar(2) ,
salary numeric(18,2) ,
duty nchar(1) )
If @@error != 0
begin
select @return_value = 1
End
Else
Begin
select @return_value = 0
End
return
End