adoxvb.net的简单介绍

在VB中如何修改access数据库的表名?'修改表名要引用.MicrosoftADOExt.2.XforDDLandSecurity
Private Sub Command1_Click()
【adoxvb.net的简单介绍】Dim dbAs New ADODB.Connection
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;""datasource="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 tblAs ADOX.Table, catAs 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
adoxvb.net的介绍就聊到这里吧 , 感谢你花时间阅读本站内容,更多关于、adoxvb.net的信息别忘了在本站进行查找喔 。

    推荐阅读