锐客网

  1. 首页 > 睿知 > it技术 > >

包含vb.netadox的词条

IT技术数据库

vb.net 动态添加修改access建议使用 OleDb，需要用到以下几个类，搞懂这些类怎么使用，就很方便了 。
Public odCnnection As OleDbConnection' 到数据源的连接
Public odAdapter As New OleDbDataAdapter' 数据命令和一个数据库连接，于填充 DataSet 和更新数据源
Public odCommand As New OleDbCommand' 数据SQL命令
Public odCmdBuilder As OleDbCommandBuilder' 数据库自动生成命令
用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 用ADOX新增ACCESS一个表的字段(表已存在,只是在原表基础上新增加一个字段)给一个完整vb.netadox的使用ADO扩展类库vb.netadox，创建数据库、创建表以及为已有vb.netadox的表新增字段vb.netadox的示例vb.netadox ， 供参考 。
记得引用ADO和ADOX
Private Sub Command1_Click()
On Error GoTo ErrorHandler
Dim CnnStr As String'此变量用于存放连接数据库字符串
Dim Cnn As New ADODB.Connection '声明并实例化一个ADO连接对象
Dim Cat As New ADOX.Catalog'声明并实例化一个ADOX.Catalog对象
Dim Tbl As New ADOX.Table'声明并实例化一个ADOX表对象
'设定MDB数据库连接字符串
CnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="App.Path"\MyTest.mdb;"
Cat.Create (CnnStr)'在当前目录下创建一个名为“MyTest”的ACCESS数据库
Cnn.Open CnnStr'打开连接（连接那个刚创建的MyTEst数据库）
Cat.ActiveConnection = Cnn'打开catalog实例
'创建一个有3个字段的学生表
Tbl.Name = "Student"
Tbl.Columns.Append "ID", adInteger
Tbl.Columns.Append "Name", adVarWChar, 50
Tbl.Columns.Append "Birth", adDate
Cat.Tables.Append Tbl
'为已经存在的学生表添加一个“性别”字段
Cat.Tables("student").Columns.Append "Sex", adBoolean
'释放对象
Set Cat.ActiveConnection = Nothing
Set Cat = Nothing
Set Tbl = Nothing
ErrorHandler: '错误处理
Set Cat = Nothing
Set Tbl = Nothing
If Not Cnn Is Nothing Then
If Cnn.State = adStateOpen Then Cnn.Close
End If
Set Cnn = Nothing
If Err0 Then
MsgBox Err.Source"--"Err.Description, , "提示"
End If
End Sub
vb 。net中如何利用ADO.NET动态链接excel文件？可以
Application.StartupPath
表示根目录，就是程序所在的目录，与vb6的app.path是一样的 。你就要这样
".....Data
Source
="

推荐阅读


上一篇：linux上安装oracle11g，linux oracle11g安装步骤

下一篇：投手和直播运营的区别，投手和直播运营的区别是什么