我建立了三个表,学生(学号,姓名),课程(课号,名称),成绩(学号,课号,分数),现想通过调用过程达到给定一个学号删除这个学生信息,包括成绩表的信息,
SQL中建立了过程
CREATE PROCEDURE Deletestuandsc
(
@sno int
)ASBEGIN TRANSACTIONDECLARE @scError int,@stuError intDELETE FROM "sc" WHERE sno=@sno
SELECT @scError=@@ERRORDELETE FROM stu WHERE sno=@sno
SELECT @stuError=@@ERRORIF @scError = 0 AND @stuError = 0 COMMIT TRANSACTION
ELSE
ROLLBACK TRANSACTION
先需要在VB中实现,用adodc控件,一个按纽,一个文本框,一张dategrid,请大家帮我实现一下,谢谢啦
SQL中建立了过程
CREATE PROCEDURE Deletestuandsc
(
@sno int
)ASBEGIN TRANSACTIONDECLARE @scError int,@stuError intDELETE FROM "sc" WHERE sno=@sno
SELECT @scError=@@ERRORDELETE FROM stu WHERE sno=@sno
SELECT @stuError=@@ERRORIF @scError = 0 AND @stuError = 0 COMMIT TRANSACTION
ELSE
ROLLBACK TRANSACTION
先需要在VB中实现,用adodc控件,一个按纽,一个文本框,一张dategrid,请大家帮我实现一下,谢谢啦
反正VB调用SQL也简单的, 先引用和定义ADODB再连接数据库, 之后就是SQL语句了, 这个你不会陌生的吧
Dim adoconn As New ADODB.Connection 'Connection 对象代表了打开与数据源的连接。
Dim adocomm As New ADODB.Command 'Command 对象定义了将对数据源执行的指定命令。
adoconn.ConnectionString = Adodc1.ConnectionString 'Adodc1为窗体中的ADO控件,并已成功连接数据库
adoconn.Open
Set adocomm.ActiveConnection = adoconn '指示指定的 Command对象当前所属的 Connection对象。
adocomm.CommandText = "Deletestuandsc" '设置Command对象源。
adocomm.CommandType = adCmdStoredProc '通知提供者CommandText属性有什么,它可能包括Command对象的源类型。设置这个属性优化了该命令的执行。
adocomm.Parameters(1) = "1"
adocomm.Execute
Dim cmd As ADODB.Command
cnn.Open
Set cmd = New ADODB.Command
cmd.ActiveConnection = cnn
cmd.CommandText = "Deletestuandsc"
cmd.CommandType = adCmdStoredProc
cmd.Parameters(1) = dd 'dd这里是你要传的学号
cmd.Execute这是我的程序写法,你测试一下,应该没有问题的。