adoxvb.net的简单介绍

在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

相关问答

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

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

Q2: 用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

adoxvb.net的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、adoxvb.net的信息别忘了在本站进行查找喔。