VB6.0中如何删除access数据库中的记录

dodc1RecordSource = "Delete from b1 where ID='" & Text1Text & "'"

Adodc1RecordSource = "update from b1" 这个多余

你可以试试下面的语句：

update your_table set your_field=replace

用不着游标，你的特定字符如果无法显示，可以用char(x)表示。

有时候不需要出库，在数据库中修改一些内容，就需要用到下列语句。

sql语句为：UPDATE`table_name`SET`field_name`=replace(`field_name`,’from_str’,'to_str’)

代码说明：table_name——表的名字，field_name——字段名，from_str——需要替换的字符串，to_str——替换成的字符串。

目的是为了直接用sql *** 作数据库修改字段中的某些字串。也可以使用下列方法有条件的替换，比较麻烦，需要三步。SELECT出来符合的记录，然后进行字符串替换，再UPDATE，但这样需要三个步骤。

首先，添加一个公共模块（public recs as integer

public flag as integer ）

command1添加

command2修改

command3删除Private Sub Form_Load()

recs = Adodc1RecordsetRecordCount '求出当前记录数，recs是模块变量

Text4Text = recs

If recs > 0 Then '已有教师时

Adodc1RecordsetMoveLast '移到最后一个记录

Adodc1RecordsetMoveFirst '移到开头记录

End If

End Sub

Private Sub Form_Activate()

DataGrid1SetFocus '焦点移向DataGrid1控件

Call encomm '调用本窗体自定义的encomm过程

End Sub

Private Sub command3_Click() '添加教师记录

flag = 1 'flag=1表示添加 *** 作

Form2Show vbModal '调用edt1窗体

End Sub

Private Sub command2_Click() '修改教师记录

flag = 2 'flag=2表示修改 *** 作

Form2Show vbModal '调用edt1窗体修改当前教师记录

End Sub

Private Sub Command3_Click()

If MsgBox("确认要删除吗？", vbOKCancel + vbQuestion, "信息提示") = vbOK Then

Adodc1RecordsetDelete

If Adodc1RecordsetEOF Then

Adodc1RecordsetMoveLast

End If

End If

End Sub

Private Sub command5_Click() '重置，将设置条件框架中的所有输入清空

Text1Text = "": Text2Text = ""

Text3Text = ""

End Sub

Private Sub encomm()

'自定义子过程：判断Adodc1中是否存在记录，使相应命令按钮无效或有效

If recs = 0 Then

Command2Enabled = False: Command3Enabled = False

Else

Command2Enabled = True: Command3Enabled = True

End If

End Sub

Private Sub Form_Activate()

If flag = 2 Then '修改 *** 作

Text1Text = Trim(Form1Adodc1RecordsetFields("wno")) & ""

Text2Text = Trim(Form1Adodc1RecordsetFields("wname")) & ""

Text3Text = Trim(Form1Adodc1RecordsetFields("wyears")) & ""

End If

Else

Text1 = "": Text2 = "": Text3 = ""

End Sub

Private Sub command4_Click() '取消 *** 作

Unload Me

End Sub

Private Sub command1_Click()

If Trim(Text1Text) = "" Then

MsgBox "加数据项不能为空，请重新设置", vbOKOnly, "信息提示"

Text1SetFocus

Exit Sub

End If

If flag = 1 Then '添加 *** 作

recs = recs + 1

Form1Adodc1RecordsetAddNew '添加一个记录

End If

Form1Adodc1RecordsetFields("wno") = Trim(Text1Text)

Form1Adodc1RecordsetFields("wname") = Trim(Text2Text)

'End If

' If Trim(Text1(2))Text <> "" Then

' edtAdodc1RecordsetFields("tbirthday") = Format(Trim(Text1(2)Text), "yy-mm-dd")

' End If

Form1Adodc1RecordsetFields("wyears") = Trim(Text3Text)

Form1Adodc1RecordsetUpdate '保存记录

Unload Me '释放窗体

End Sub

上面的代码是连接数据库,不说了

看下面的数据库 *** 作

PreparedStatement

pstmt

=

ConnrsdeleteorderprepareStatement("DELETE

FROM

TORDER

WHERE

tPRODUCTID=

AND

tID=

");

pstmtset(1,

tproductid);

pstmtset(2,

tusername);

pstmtexecuteUpdate();

PrepareStatement

是Statement的子类,为了防止SQL注入时采用的,一般推荐使用PrepareStatement

pstmtset(1,)

1代表你上面写的SQL语句出现的第一个问号,

代表你要将第一个问号用什么代替

比如你说

tproductid

tusername

都是字符串变量,那你可以这样写

pstmtset(1,tproductid);

pstmtset(2,tusername);

然后上面的SQL语句就会成为

DELETE

FROM

TORDER

WHERE

tPRODUCTID='tproductid'

AND

tID='tusername

';

去执行了!

我的建议是直接拷贝到UltraEdit里

使用替换硬回车或软回车的方法 查找 ^p 或 ^l 将其替换为空 就可以自动消除所有空行了

还有一种办法是拷入word里 在Ctrl+H中高级选项替换。

只有思路 就是说这样

你存路径 也 存 存入路径的时间

你存的时候 建个文件夹可以写当天的日期 那天的都存在这里

你删除的时候 可以只删除那个文件夹就行了 会比删文件省事

定期删除的话 你可以做一个文本框一个按钮 然后文本框里面输入过期时间

比这个时间小的 全部删除 写到sql语句 用按钮的单击事件

以上就是关于VB6.0中如何删除access数据库中的记录全部的内容，包括:VB6.0中如何删除access数据库中的记录、SQL怎么删除特定字符、各位大虾，请问如何在VB里通过text文本框进行数据库的删除与添加小弟在此拜谢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！