VB中如何使用SQL语句与数据库表格 *** 作

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

这就是一个删除按钮的代码，希望对你有帮助

我这里有一个自己写的简易程序，能够进行添加、删除、修改功能的小程序，发给你看看吧，你就学会了。你先把你的邮箱给我。

－－－－－－－－－－－－－－－－

如果你要模块化的那就算了，VB这东西太垃圾了。

vbnet我以前写的代码还分数据模块什么的。

VB6就没有了。你还是等等看看别人回答吧。

可以的，给你vbscript的代码吧，相信肯定能看懂

<%

'建立excel连接

set excelconn=servercreateobject("adodbconnection")

strAddr = ServerMapPath("文件名xls")

'输出源文件名

ResponseWrite "源文件："&strAddr&"<BR>"

excelconnopen "Provider=MicrosoftJetOLEDB40;Extended Properties=Excel 80;Data Source=" & strAddr

'建立excel记录集

set excelrs=servercreateobject("adodbrecordset")

sql="select from [Sheet1$]" '此处[Sheet1$]是数据表名

excelrsopen sql,excelconn,1,1

Do Until excelrsEof

responsewrite(excelrs(0) & "|" & excelrs(1) & "|" & excelrs(2) & "|" & excelrs(3) & "<br>")

excelrsMoveNext

Loop

excelrsclose()

set excelrs=nothing

excelconnClose()

set excelconn=nothing

%>

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你要吧代码稍微修改一下的，呵呵，祝你成功！

以上就是关于VB中如何使用SQL语句与数据库表格 *** 作全部的内容，包括:VB中如何使用SQL语句与数据库表格 *** 作、vb *** 作数据库标准方式、VB数据库 *** 作等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！