VB中怎么对数据库进行添加删除修改的 *** 作

Private Sub Command1_Click()

For i = 0 To 5

Text1(i)Text = ""

Next i

Adodc1RecordSource = "select from " & s1 & " order by 编号"

Adodc1Refresh

If Adodc1RecordsetRecordCount > 0 Then

Adodc1RecordsetMoveLast

Text1(0)Text = "G" + Format((Val(Right(Trim(Adodc1RecordsetFields("编号")), 4)) + 1), "0000")

Else

Text1(0)Text = "G0001"

End If

End Sub

Private Sub Command2_Click()

If Adodc1RecordsetEOF = False Then

c = MsgBox("您确认要删除该记录吗？", vbOKCancel, "删除提示信息")

If c = vbOK Then

Adodc1RecordsetDelete

Adodc1RecordSource = "select from 人员表"

Adodc1Refresh

End If

Else

MsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"

End If

End Sub

Private Sub Command3_Click()

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

MsgBox "请选择需要改动的记录信息！", vbOKOnly, "错误提示"

Else

c = 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, "修改信息提示"

conClose

Adodc1RecordSource = "select from 人员表"

Adodc1Refresh

End If

End If

End If

End Sub

Private Sub Command4_Click()

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

Adodc1Refresh

If Adodc1RecordsetRecordCount > 0 Then

MsgBox "该信息已存在，信息保存不成功", 64, "保存信息提示"

Else

cc = MsgBox("您确定要保存该信息吗？", 33, "信息保存提示")

If cc = vbOK Then

If Text1(1)Text = "" Or Text1(2)Text = "" Or Text1(3)Text = "" Or Text1(4)Text = "" Or Text1(5)Text = "" Then

MsgBox "请确认，人员的姓名、年龄、学历、年级和入学时间不能为空", 48, "保存信息提示"

Else

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

conExecute ("insert into 人员表 values('" & Text1(0)Text & "','" & Text1(1)Text & "','" & Text1(2)Text & "','" & Text1(3)Text & "','" & Text1(4)Text & "', '" & Text1(5)Text & "')")

MsgBox "信息修改成功", 64, "修改信息提示"

conClose

Adodc1RecordSource = "select from 人员表"

Adodc1Refresh

End If

Else

End If

End If

Set DataGrid1DataSource = Adodc1

End Sub

给你段代码参考下，这个就是添加，删除，修改的代码。不过我用的是SQL2000你要吧代码稍微修改一下的，呵呵，祝你成功！

在数据库里把编号设置为索引或唯一。添加相同数据时数据库会报错。根据数据库的错误80040E2F access是 80040E21 if hex(errnumber)=80040e2f then msgbox "您输入的编号重复，请重新输入" exit subendif

对于数据库表记录唯一性编号的问题，简单的解决方法有：1、在表中增加一个“自增”的主键字段，如果你使用的是ACCESS，那直接在字段属性里选择“自动增加”（好像是这个词吧）就可以了；如果是SQL SERVER，那在字段属性里将“标识”设置为TRUE，就可以了。使用这种方法的好处就是编号为系统自动产生，你不用担心它的唯一性问题；但缺点也很明显，如果你要使用DTS等数据传输功能时，自增字段的存在会让你的数据库逻辑连接产生错乱或根本没办法导入。2、你也可以使用“日期时间”做为你的逻辑编号，因为日期时间都是唯一的，比如：insert into t (nID,nName,) values (GetDate(),'xxx')这样做的好处就是方便以后使用DTS或SSIS等功能时，方便数据的导入导出

VBNET的程序很容易反编译的，所以写到类中好像并不安全

建议

1用户登录所使用的账户的权限一定要控制好

2可以把连接字符串硬编码到exe或者dll中，然后用NET的混淆软件加密混淆（一定要选择加密字符串）

3使用其他的技术使用户间接 *** 作数据库。可以在服务器远程建立一个服务器（接受Sockets连接），或者建立一个动态网页。让用户连接到这些客户端，发送一些指令，对数据库的查 *** 作由这个服务器上的程序代它完成，然后把结果给用户

以上就是关于VB中怎么对数据库进行添加删除修改的 *** 作全部的内容，包括:VB中怎么对数据库进行添加删除修改的 *** 作、vb数据库如何限制不能输入同一编号、VB.NET 的winform程序数据库安全问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！