三九宝宝网宝宝百科宝宝知识

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

02月12日 编辑 39baobao.com

[怪物世界怎么改密码]4399怪物世界背包里的二级密码是可以修改的哦。也是要先回答密保问题的答案,然后再通过输入新的密码,这样才能修改怪物世界二级密码 接着找到背包里的二级密码按钮 接着点开...+阅读

首先在项目的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代码创建mdb数据库Private Sub Command1_Click() CreateDatabase "c:\1.mdb" End Sub Public Sub CreateDatabase(ByVal sDatabaseFile As String) Dim cat Set cat = CreateObject("ADOX.Catalo...

vb创建mdb文件先执行【工程 】- 【引用 】 Microsoft ADO Ext. 2.8 for DDL and...... Dim cata As New ADOX.Catalog cata.Create ("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Ac...

如何用VB代码创建一个ACCESS的MDB文件Dim MyDB As Database, MyWS As WorkspaceDim AuTd As TableDef, TitTd As TableDef, PubTd As TableDefDim AuFids (2) As Field, TitFids (5) As Field, PubFids (10) As...

vb用代码创建mdb文件以及对表的操作使用Create方法 ===================== DBName = "c:\myAccessDB.mdb" Set myCat = CreateObject("ADOX.Catalog") myCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source...

急!如何用VB代码创建一个名为用代码创建数据库,表,字段Option ExplicitPrivate db As DatabasePrivate td As TableDefPrivate f As FieldPrivate Sub Command1_Click()Set db = DBEngine.CreateDatabase(...

用VB代码创建一个data mdb如何实现字段ID数据类型为自动我是VB新手,不会用ADOX,这是我用过的一个建自动编号字段的方法,不知合不合用。 '引用Microsoft ActiveX Data Objects 2.0 Library Private Sub Command1_Click() Dim db2 As N...

MAC如何创建分区想给硬盘备份本人电脑菜鸟求教!第一步:备份所有数据,然后再开始。分区的驱动器可以在极少数情况下,导致数据丢失。在开始之前打印出这些说明。第二步:确保您以系统管理员身份登录到计算机。退出所有应用程序并...

请教为什么我装完DB2后创建SAMPLE失败创建数据库选择开始菜单中→程序→【ManagementSQLServer2008】→【SQLServerManagementStudio】命令,打开【SQLServerManagementStudio】窗口,并使用Windows或SQLServer身份...

请教为什么小弟我装完DB2后创建SAMPLE失败原因在于: WIN7的 USER ACCOUT CONTROL(UAC)用户帐户控制,做完第一步以后,重启电脑一切OK~~ 1.关闭UAC功能的方法是,在“控制面板”→“用户帐户”中,点击“打开或关闭用户帐户控...

推荐阅读
图文推荐