VB6.0删除指定ID记录 - 编程论坛

#2

cwa99582020-07-10 16:43

delete * from 用户表 where ID=val(text1)

#3

YWG2020062020-07-10 17:27

回复 2楼 cwa9958

语法错误啊

#4

chen35232020-07-10 22:04

我先用查询语句
SQL="SELECT * from 用户表 where ID=' " & val(text1) & "'"

Adodc1.recordsource=SQL
Adodc1.refresh
，然后Adodc1.Recordset.Ddlete

#5

cwa99582020-07-11 08:00

    Dim cn As New ADODB.Connection
    Dim cnStr As String, rsStr As String

    cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\用户信息.mdb;Jet OleDb:DataBase Password=1234"

    rsStr = "delete * from 用户表 where ID=" & val(text1)
    cn.Open cnStr
    cn.Execute rsStr

    cn.Close

#6

ZHRXJR2020-07-11 12:04

应该比较简单
1、使用ADO对象删除,Access 2007 以上版本数据库

程序代码：

Private Sub Command1_Click()
If Val(Text1.Text) < 1 Then
    MsgBox "你没有输入需要删除的ID号，请填写！", 16, "无法删除！"
    Exit Sub
End If
Dim cn As New ADODB.Connection, RS As New ADODB.Recordset
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\用户信息.accdb;Jet OLEDB:Database Password=;"
RS.Open "Select * From 用户表 where ID=" & Val(Text1.Text) & "", cn, 3, 2
RS.Delete   '删除指定记录
RS.Close
cn.Close
    MsgBox "数据表用户表中ID=" & Val(Text1.Text) & "的记录已经删除！", 64, "删除成功！"
End Sub

2、使用ADO控件删除,Access 2007 以上版本数据库

程序代码：

Private Sub Command2_Click()
If Val(Text1.Text) < 1 Then
    MsgBox "你没有输入需要删除的ID号，请填写！", 16, "无法删除！"
    Exit Sub
End If
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\用户信息.accdb;Jet OLEDB:Database Password=;"
Adodc1.RecordSource = "Select * From 用户表 where ID=" & Val(Text1.Text) & ""
Adodc1.Recordset.Delete   '删除指定记录
Adodc1.Recordset
    MsgBox "数据表用户表中ID=" & Val(Text1.Text) & "的记录已经删除！", 64, "删除成功！"
End Sub

[此贴子已经被作者于2020-7-11 12:24编辑过]

#7

YWG2020062020-07-11 16:32

回复 4楼 chen3523

测试成功，非常感觉你的帮助。

#8

YWG2020062020-07-11 16:51

回复 6楼 ZHRXJR

感谢你的帮助，测试没能通过，可能是我的VB是精简版的原因。