编写一个存储过程实现对表数据的删除 修改和添加！(sql server数据库)

1、使用账户和密码，连接到自己的数据库。

2、 找到自己的数据库->可编程性->存储过程。

3、 打开存储过程的子菜单，显示的存储过程如图所示。可以找到详细信息。

4、 选中存储过程，右键菜单中选择修改。

5、存储过程或者函数 显示代码如图所示，即可以修改。

6、或者右键菜单中选择编写存储过程脚本为->ALERT到->新增编辑器窗口，同样可以修改。

'连接数据库，先要用引用ADO组件

dim cnn as new AdodbConnection

cnnopen (这里面属性若干，有数据库路径以及表名称，百度一下即可)

dim sql as string 

'添加数据

sql = "inser into 表 (姓名,学号，所选科目) values('ycc',1795,'信息管理')"

cnnexecute sql

'删除数据

sql = "delete from 表 where 表_id = 123456"

cnnexecute sql

'断开

cnnclose

set cnn=nothing

使用ADO，首先用ADOConnection对象建立连接，然后使用ADOQuery对象对数据库进行 *** 作。

ADOQuery对象 *** 作：

查询：先使用close；再设置SQLtext为SQL查询语句内容；最后使用OPEN方法打开

添加：Append或Insert；FieldByName（'字段名'）Value

:=

字段内容；Post；

修改：Edit；FieldByName（'字段名'）Value

:=

字段内容；Post；

删除：定位到指定记录（使用循环）；Delete；

编号是不是由数据库自动生成的，系统是不会把你删除的ID（自动编号）赋给新的记录（想一下如果你删除的第一条记录会怎么样），这时如果担心排序问题，就在SQL查询语句后面增加

Order

by

卡号

Refresh

方法：更新集合中的对象以便反映来自并特定于提供者的对象。

Update

方法：保存对

Recordset

对象的当前记录所做的所有更改。

", vbOKCancel, "删除提示信息")

If c = vbOK Then

Adodc1RecordsetDelete

Adodc1RecordSource = "select from 人员表"

Adodc1RefreshEnd IfElseMsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"End IfEnd SubPrivate Sub Command3_Click()

If Text1(0)Text = "" Or Text1(1)Text = "" Then

MsgBox "请选择需要改动的记录信息！", vbOKOnly, "错误提示"Elsec = MsgBox("确定要修改该记录吗？", vbOKCancel, "提示信息")

If c = vbOK Then '如果确认修改的话进行修改 *** 作

If Text1(1)Text = "" Then

MsgBox "姓名不能为空值!", 48, "修改"Else'连接所要修改的数据库

conOpen "Provider=SQLOLEDB1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"

'开始修改数据库

conExecute ("UPDATE " & s1 & " SET 姓名='" & Text1(1)Text & "',年龄=" & Text1(2)Text & ",学历='" & Text1(3)Text & "',年级=" & Text1(4)Text & ", 入学时间='" & Text1(5)Text & "' where 编号='" & Trim(Text1(0)) & "'")

MsgBox "信息修改成功", 64, "修改"conCloseAdodc1RecordSource = "select from 人员表"

Adodc1RefreshEnd IfEnd IfEnd IfEnd SubPrivate Sub Command4_Click()

Adodc1RecordSource = "select from 人员表 where 编号='" + Text1(0)Text + "'"

Adodc1Refresh

If Adodc1RecordsetRecordCount > 0 Then

MsgBox "该信息已存在，信息保存不成功", 64, "保存"Elsecc = MsgBox("您确定要保存该信息吗？", 33, "信息保存提示")

以上就是关于编写一个存储过程实现对表数据的删除 修改和添加！(sql server数据库)全部的内容，包括:编写一个存储过程实现对表数据的删除 修改和添加！(sql server数据库)、VB中如何向SQL数据库中的表添加和删除数据、delphi怎么实现对sql数据库记录进行添加,删除,修改呀! 急!!等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！