VB ACCESS数据库清空？

一、VB ACCESS数据库清空？

窗体上画一command,数据库为a ,表名为b

Private Sub Command1_Click()

Dim msgQk

msgQk = MsgBox("清空数据库将清除所有数据！", 32 + vbOKCancel, "请选择")

If msgQk = 1 Then

Dim cnDel As New ADODB.Connection

Dim rDel As New ADODB.Recordset

Dim sqlDel1 As String

cnDel.Open "DBQ=" & App.Path & "\a.mdb;Driver={Microsoft Access Driver (*.mdb)};"

sqlDel1 = "delete * from b"

cnDel.Execute sqlDel1

MsgBox "数据库清空完成！", 32, "完成"

cndel.close

End If

End Sub

二、VB如何调用Access数据库？

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中ACCESS数据库选MICROSOFTjet4.0OLEDBProvider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

SQL查询语言主要结构为：

Select查询字段from表名Where查询条件语句[排序语句或分组语句]

查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。

SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT*FROMTabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。

三、如何用vb连接ACCESS数据库？

首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.

然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.

四、vb如何连接远程Access数据库？

Microsoft.Jet.OLEDB.4.0的Oledb的连接方式是比较老的连接方式，而07以后的Oledb连接方式将改成Microsoft.ACE.OLEDB.12.0。 改后的连接变成了Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\*.accdb;Persist Security Info=False;我已经验证过了

五、VB Access 数据库字段操作指南

VB Access 数据库字段操作指南

Visual Basic（VB）是一种广泛应用于开发 Windows 应用程序的编程语言，而Microsoft Access是一款流行的关系型数据库管理系统（DBMS）。在VB中，我们经常需要对Access数据库中的字段进行操作，包括创建、修改、删除字段等。本文将为您详细介绍如何使用VB来进行Access数据库字段操作。

创建字段

在VB中，可以使用DAO（Data Access Objects）来创建字段。首先，您需要打开一个Access数据库连接，并选择要操作的数据表。然后，使用DAO的 CreateTableDef、Fields 和 Append 方法来创建新的字段，最后使用 TableDefs 的 Update 方法来保存更改。下面是一个示例代码：

        
            Dim db As DAO.Database
            Dim tblDef As DAO.TableDef
            Dim fld As DAO.Field
            
            ' 打开数据库连接
            Set db = OpenDatabase("C:\path\to\your\database.accdb")

            ' 选择要操作的表
            Set tblDef = db.TableDefs("YourTableName")
            
            ' 创建新字段
            Set fld = tblDef.CreateField("NewFieldName", dbText)
            
            ' 设置字段属性
            fld.Size = 255
            fld.Required = True
            
            ' 添加字段到表
            tblDef.Fields.Append fld
            
            ' 保存更改
            tblDef.Update
            
            ' 关闭数据库连接
            db.Close
        
    

修改字段

如果您需要修改Access数据库中的字段，可以使用 DAO 的 TableDefs 和 Fields 方法来获取字段对象，并针对字段对象进行相应操作。下面是一个示例代码，演示如何将字段改名和修改字段属性：

        
            Dim db As DAO.Database
            Dim tblDef As DAO.TableDef
            Dim fld As DAO.Field
            
            ' 打开数据库连接
            Set db = OpenDatabase("C:\path\to\your\database.accdb")

            ' 选择要操作的表
            Set tblDef = db.TableDefs("YourTableName")
            
            ' 获取要修改的字段对象
            Set fld = tblDef.Fields("FieldName")
            
            ' 修改字段名称
            fld.Name = "NewFieldName"
            
            ' 修改字段属性
            fld.Size = 100
            fld.Required = False
            
            ' 保存更改
            tblDef.Update
            
            ' 关闭数据库连接
            db.Close
        
    

删除字段

若要删除Access数据库中的字段，可以使用 DAO 的 TableDefs 和 Fields 方法来获取字段对象，然后使用 Fields 的 Delete 方法来删除指定的字段。下面是一个示例代码：

        
            Dim db As DAO.Database
            Dim tblDef As DAO.TableDef
            
            ' 打开数据库连接
            Set db = OpenDatabase("C:\path\to\your\database.accdb")
            
            ' 选择要操作的表
            Set tblDef = db.TableDefs("YourTableName")
            
            ' 删除字段
            tblDef.Fields.Delete "FieldName"
            
            ' 保存更改
            tblDef.Update
            
            ' 关闭数据库连接
            db.Close
        
    

通过上述的操作，您可以轻松地在VB中对Access数据库中的字段进行创建、修改和删除。这将极大地方便您在开发过程中对数据库进行管理和维护。谢谢您的阅读，希望本文对您有所帮助！

六、vb.net如何查询access数据库中的内容（精确查询和模糊查询）？

我们在架设GOM引擎的版本的时候，可能会发现，有的版本默认选择Access数据库，选择Access数据库的版本，我们可以在D:\mirserver\Mud2\DB这个路径找到一份HeroDB.MDB的文件，这是一个集成数据库，和HeroDB不一样

DBC2000的数据库是有3个数据库文件的，分别是Magic.DB、Monster.DB、StdItems.DB，代表这怪物、物品、技能

而Access数据库一个就集成了3个数据库的功能，当我们需要修改数据库的内容，应该怎么打开HeroDB.MDB文件呢？今天给你们分享一个工具：破障Access数据库查看器

其实打开的工具有好几种，推荐使用破障Access数据库查看器

下载地址： https://pan.baidu.com/s/1NYqDSTVh0KfhIXmqHQMXqw

提取码: 83de

应用很小，1.23MB，在安装前看一下【安装前必读】文档，安装好后，打开HeroDB.MDB文件即可进行编辑修改

修改的方法也是和使用DBC2000一样的，，但没有DBC那么多字段名称，就这一点没有那么方便了，其他的都一样了

今天的分享就到这了

感谢您的阅读，若是想要了解更多服务器技术干货，加个关注再走吧~

七、VB向Access数据库中插入数据？

以下代码能使用的前提是库引用、和数据库连接代码正确:

两种办法，一种是 用SQL，另一种是ADO

1、用SQL添加数据：

insert into 表名（字段1，字段2，字段3）

values（值01，值02，值03）

例如：

docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外贸总监',12500)"

2、用ADO的办法：

ADO比较复杂，给你一个完整的例子吧：

Dim strSqlfitjc As String

strSqlfitjc = "select * from *表"

Set RSfitjc = New ADODB.Recordset ‘定义一个ADO连接，连进数据库

RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic ’打开连接

RSfitjc.addnew '添加一个纪录

RSfitjc.Fields("配件编号") = “style” ‘给每个字段赋值

.Update ’储存赋值的新纪录

.Close 关闭连接

End With

八、VB如何连接访问数据库Access？

1、Access中新建数据库，名字为Database1.mdb。（注意：后缀为MDB,如果Access是2007版本的，保存时应另存为03版本的才可以，因为，VB无法直接支持07版的accdb后缀格式）

2、成功建立数据库后会进入到数据表界面，这时就能输入数据了，输完以后按CTRL+S保存，输入表名，这里表名为test，准备工作这样就完成了。

3、把VB打开，然后新建标准exe。

4、在菜单里面找到工程→部件→勾选 ，Microsoft ADO Data Control 6.0 Microsoft Hierarchical Flexgrid Control 6.0勾选之后左侧的工具栏里就多出两个控件，就是 ADODC控件和MSHFlexGrid控件。

5、选择 ADODC控件和MSHFlexGrid控件，在窗体的合适位置放入，如图：

6、设置ADODC控件的属性：右键窗体中ADODC1控件

ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接，显示测试成功则ok，确定。

ADODC属性页→记录源→命令类型选择2-adcmdtable，表或存储过程名称选择之前建立的数据表test，点击确定，ADODC属性设置完成。

7、设置MSHFlexGrid控件的属性：VB右侧的属性表里，找到datasource，选择adodc1。

8、测试效果：菜单→运行→启动（F5)，发现显示的数据排列不是我们想要的行数和列数修改方法：

MSHFlexGrid属性→通用→设置行和列，固定行和固定列，设置如图。

MSHFlexGrid属性→带区→把列标题的√取消掉，设置如图。

9、修改之后测试效果如下：

九、在vb中，access数据库属于什么数据库？

这个问题有些难回答！ 这么说吧，access数据库 属于 中小型数据库！这是从使用上来说。

SQL 大型数据库！！还有其他数据库。。。。。。。。。。。。

十、VB+Access做数据库如何保存图片？

强烈建议不要把图片数据直接存在库里，而应该存成一个图片文件，然后在数据库里记录一下文件路径就行了。