vb.net如何创建mdb文件并设置密码

首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】

创新互联长期为成百上千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为新邱企业提供专业的成都做网站、成都网站设计、成都外贸网站建设，新邱网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。

选择  Microsoft ADO Ext. 2.x for DDL and Security

然后单击【确定】，完成引用。

完整代码如下：

Imports ADOX

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'创建空的access数据库文件--数据库文件.mdb，密码为123

Dim Mycat As Catalog = New Catalog()

Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")

'以下代码创建一个名为“实验数据表”

Dim MyTable As ADOX.Table = New ADOX.Table         '定义新表

MyTable.Name = "实验数据表"    '表命名

'给表“实验数据表” 创建一个字符串字段，字段名“姓名”

MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)

'给表“实验数据表” 创建一个整数字段，字段名“学号”

MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger)    '追加一个数字型字段

'给字段“学号”创建一个主键“PimaryKey_Field”        

MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")

Mycat.Tables.Append(MyTable) '把所有的新字段追加到表

MyTable = Nothing

Mycat = Nothing

End Sub

End Class

vb 怎么更改access表名

Option Explicit

'修改表名要引用.Microsoft ADO Ext. 2.X for DDL and Security

Private Sub Command22_Click()

Dim db As New ADODB.Connection

db.ConnectionString = "provider=microsoft.jet.oledb.4.0;"  "data source="  App.Path  "\dev.mdb"

db.Open

RenameTableName db, "oldTableName", "newTableName"

End Sub

'RenameTableName的返回值函义   -1表示出错.  0表示没有存在要修改的表.   1表示成功

Public Function RenameTableName(DatabseConnectionObject As ADODB.Connection, strOldName As String, strNewName As String) As Integer

On Error GoTo acd

Dim tbl As ADOX.Table, cat As New ADOX.Catalog

Set cat.ActiveConnection = DatabseConnectionObject              '设置目录的链接

RenameTableName = 0

For Each tbl In cat.Tables

If LCase(tbl.Name) = LCase(strOldName) Then

tbl.Name = strNewName         '重命名表的名称

RenameTableName = 1

End If

Next

Exit Function

acd:

RenameTableName = -1

End Function

参考：

VB.NET如何生成ACCESS数据库？并生成表。 VB.NET

我的需求就是先填写好表和表中字段的名称，然后点击一个按钮，就在指定的路径生成一个ACCESS数据库。而不是事先手动创建。 请知道的各位附上完整代码，本人刚接触VB.NET，有些东西还不是很了解。谢谢。

用vb.net 怎样建立一个mdb数据库及一张表

首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】

选择  Microsoft ADO Ext. 2.x for DDL and Security

然后单击【确定】，完成引用。

完整代码如下：

Imports ADOX

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'创建空的access数据库文件--数据库文件.mdb，密码为123

Dim Mycat As Catalog = New Catalog()

Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")

'以下代码创建一个名为“实验数据表”

Dim MyTable As ADOX.Table = New ADOX.Table         '定义新表

MyTable.Name = "实验数据表"    '表命名

'给表“实验数据表” 创建一个字符串字段，字段名“姓名”

MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)

'给表“实验数据表” 创建一个整数字段，字段名“学号”

MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger)    '追加一个数字型字段

'给字段“学号”创建一个主键“PimaryKey_Field”        

MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")

Mycat.Tables.Append(MyTable) '把所有的新字段追加到表

MyTable = Nothing

Mycat = Nothing

End Sub

End Class

在VB中如何修改access数据库的表名?

'修改表名要引用.Microsoft ADO Ext. 2.X for DDL and Security

Private Sub Command1_Click()

Dim db As New ADODB.Connection

db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" "data source=" App.Path "\database.mdb"

db.Open

RenameTableName db, "oldTableName", "newTableName"

End Sub

'RenameTableName的返回值-1表示出错.

' 0表示没有存在要修改的表.

'1 表示成功

Public Function RenameTableName(DatabseConnectionObject As ADODB.Connection, strOldName As String, strNewName As String) As Integer

On Error GoTo acd

Dim tbl As ADOX.Table, cat As New ADOX.Catalog

Set cat.ActiveConnection = DatabseConnectionObject '设置目录的链接

RenameTableName = 0

For Each tbl In cat.Tables

If LCase(tbl.Name) = LCase(strOldName) Then

tbl.Name = strNewName '重命名表的名称

RenameTableName = 1

End If

Next

Exit Function

acd:

RenameTableName = -1

End Function

ADO是什么？麻烦告诉我

一种程序对象，用于表示用户数据库中的数据结构和所包含的数据。

在Microsoft Visual Basic编辑器中，可以使用ADO对象以及ADO的附加组件（称为Microsoft ADO Extensions for DLL and Security(ADOX)）来创建或修改表和查询、检验数据库、或者访问外部数据源。还可在代码中使用ADO来操作数据库中的数据。

ADO (ActiveX Data Objects，ActiveX数据对象）是Microsoft提出的应用程序接口（API）用以实现访问关系或非关系数据库中的数据。

例如，如果希望编写应用程序从DB2或Oracle数据库中向网页提供数据，可以将ADO程序包括在作为活动服务器页（ASP）的HTML文件中。当用户从网站请求网页时，返回的网页也包括了数据中的相应数据，这些是由于使用了ADO代码的结果。

扩展资料：

ADO接口简介

1、_ConnectionPtr接口

返回一个记录集或一个空指针。通常使用它来创建一个数据连接或执行一条不返回任何结果的SQL语句，如一个存储过程。

2、_CommandPtr接口

返回一个记录集。它提供了一种简单的方法来执行返回记录集的存储过程和SQL语句。

3、_RecordsetPtr接口

是一个记录集对象。与以上两种对象相比，它对记录集提供了更多的控制功能，如记录锁定，游标控制等。

参考资料来源：百度百科-ActiveX Data Objects

网站栏目：包含adoxvb.net的词条
本文路径：http://ybzwz.com/article/hpodgg.html