包含adoxvb.net的词条
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://pwwzsj.com/article/hpodgg.html