vb如何删除access数据库指定记录

通过SQL语句删除：

SQL 有专门的删除查询，格式为：

Delete from [表名称] where [条件]

例如删除女同学的成绩：Delete from 成绩单 where [性别]= "女"

以上是SQL的用法，如果在vb中使用，就在前面加上“DoCmdRunSQL”就可以了。

DoCmdRunSQL "Delete from 成绩单 where [性别]= '女' "

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序  。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

清空数据一般用truncate语句，但是按照目前说法，如果是只清空某张表用一句就可以，如果要清空多张表则需要用存储过程来解决。

如果清空单表：

truncate table 表名;

清空多张表，比如全库里的所有表：

declare @tablename varchar(30)

declare @sql varchar(2000)

declare cur_t cursor for

select name from dbosysobjects where xtype= 'U ' and status> =0 

open cur_t

fetch next from cur_t into @tablename

while @@FETCH_STATUS = 0

begin

   set @sql='truncate table '+ @tablename +''

   exec (@sql)

   fetch next from cur_t into @tablename

end

close cur_t

deallocate cur_t

注意：以上语句谨慎使用，否则数据被清空恢复起来很麻烦。

呵呵，以前就帮人家解决过这个，请看下面的代码，有注释的！

Private Sub CommandButton5_Click()

Dim Conn As New ADODBConnection '定义ADODB连接对象

Dim ConnStr As String '定义连接字符串

Dim xiao As String

xiao = ComDataText

'对于SQL 2008，如果以IP方式访问服务器，必须要启动SQL Server Browser服务，如果是Express版本，要以“IP(计算机名)\实例名”方式访问

ConnStr = txtDataText

Dim Records As New ADODBRecordset '定义ADODB对象的记录集

Dim Sheet As Worksheet '定义工作表

Set Sheet = ThisWorkbookWorksheets("Sheet2") '给变量Sheet赋值，注意：是工作簿中索引为1的那个表（通常一个新的工作簿Sheet1的索引为1）

'SheetName = "Data" '把Sheet名称改为Data

SheetCellsClear '清空表中原有的数据

'连接状态是打开就不在进行Open *** 作

ConnOpen ConnStr

Dim SQLStr As String '要执行的SQL语句

SQLStr = "select from Shift_Code where Club='" + xiao + "'" '可以执行更复杂的SQL语句

RecordsOpen SQLStr, Conn, adOpenStatic, adLockBatchOptimistic '读取SQL查询结果到Records记录集

'RecordsOpen

Dim i, j, TotalRows, TotalColumns As Integer

j = 0

TotalRows = RecordsRecordCount

TotalColumns = RecordsFieldsCount

'下面的循环把表头（即列名）写到Excel表的第一行

For i = 0 To TotalColumns - 1

Sheet2Cells(1, i + 1) = RecordsFields(i)Name

Next

'下面的循环把查询结果写到Excel表中

Do While Not RecordsEOF

For i = 0 To TotalColumns - 1

Sheet2Cells(j + 2, i + 1) = RecordsFields(i)Value

Next

RecordsMoveNext

j = j + 1

Loop

RecordsClose '关闭记录集

ConnClose '关闭连接

Set Records = Nothing '清空对象

Set Conn = Nothing '清空对象

End Sub

有什么不懂的话Hi我！

以上就是关于vb如何删除access数据库指定记录全部的内容，包括:vb如何删除access数据库指定记录、怎样清空数据库表格的内容却保留表格的列结构、Excel VBA 连接SQL数据库后的 *** 作。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！