vb.net数据表 vbnet chart

用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

相关问答

Q1: VB.NET中如何用SQL语句建表（复制表）？谢谢了！

分类: 电脑/网络 程序设计 其他编程语言

问题描述:

在SQL数据库里已有一个现成的空数据表（只有字段、没有数据），请问高手，怎样在VB.NET中用SQL语句把该数据库中的那个表复制一个到该数据库（字段不变、数据为空）只是把数据表的名改了？

谢谢！谢谢！

解析:

select * into 新表 from 旧表

使用 SELECT INTO 插入行

SELECT INTO 语句创建一个新表，并用 SELECT 的结果集填充该表。新表的结构由选择列表中表达式的特性定义，例如：

SELECT Shippers.*, Link.Address, Link.City,

Link.Region, Link.PostalCode

INTO NewShippers

FROM Shippers

JOIN LinkServer.DB.dbo.Shippers AS Link

ON (Shippers.ShipperID = Link.ShipperID)

SELECT INTO 可将几个表或视图中的数据组合成一个表。也可用于创建一个包含选自链接服务器的数据的新表。

Q2: vb.net+sql（数据表中ID列已设为主键），update报错，求助

if object_id('primarytbl') is not null drop table primarytblgo --建主表create table primarytbl( ID int primary key, --主键 aa int, bb int, cc int)go if object_id('foreigntbl') is not null drop table foreigntblgo --建外表create table foreigntbl( ID int primary key, --主键 aa int foreign key references primarytbl(ID) --建立外键 on update cascade, --更新级联 dd int, ee int)go --插入主表数据insert into primarytblselect 1, 1, 2, 3 union allselect 2, 2, 3, 4 union allselect 3, 3, 4, 5 union allselect 4, 4, 5, 6 union allselect 5, 5, 6, 7 union allselect 6, 6, 7, 8go --插入外表数据insert into foreigntblselect 1, 1, 2, 2 union allselect 2, 1, 3, 3 union allselect 3, 2, 4, 4 union allselect 4, 2, 4, 4 union allselect 5, 2, 5, 5 union allselect 6, 3, 6, 6 union allselect 7, 4, 7, 7go --显示主外表信息select *from primarytbl select *from foreigntblgo--primarytbl/*ID aa bb cc----------- ----------- ----------- -----------1 1 2 32 2 3 43 3 4 54 4 5 65 5 6 76 6 7 8--foreigntblID aa dd ee----------- ----------- ----------- -----------1 1 2 22 1 3 33 2 4 44 2 4 45 2 5 56 3 6 67 4 7 7*/ --更新主表主键update primarytblset ID = 8where ID =1go --结果select *from primarytbl select *from foreigntblgo /*--primarytblID aa bb cc----------- ----------- ----------- -----------2 2 3 43 3 4 54 4 5 65 5 6 76 6 7 88 1 2 3--foreigntblID aa dd ee----------- ----------- ----------- -----------1 8 2 22 8 3 33 2 4 44 2 4 45 2 5 56 3 6 67 4 7 7*/ drop table foreigntbldrop table primarytbl

Q3: vb.net中，修改数据库表中的某项记录？

后面要跟上 where 条件 比如update 用户信息表 set 操作权限=@type,密码=@pwd, 用户名=@name where 用户信息表ID=@ID

Q4: 使用VB.NET的五个技巧之处理数据行

处理数据行（DataRow）

Windows窗体中的数据绑定列表框和组合框很节省时间 典型的代码如下（假定已经建立了SqlDataAdapter或者其它部件获取数据）

Dim ds As New DataSet() SqlDataAdapter Fill(ds Customers ) ListBox DataSource = ds Tables( Customers ) ListBox DisplayMember = CompanyName ListBox ValueMember = CustomerID

在这种情况下 代码使用Northwind数据库的顾客记录工作 DisplayMember属性设置为你希望用户在列表框中看到的记录字段 它是customers表的CompanyName 通常ValueMember属性设置为数据表中的一个键字段 对于customer来说是CustomerID 一旦用户选择了列表框中的一行 很容易使用列表框的SelectedValue属性获得键字段

MsgBox（ListBox SelectedValue）

但是有可能需要一个与被选择项相关的整个数据行对象的引用 例如 如果被选择的行需要被删除 就不知道键了 你需要一个数据行的引用以使用Delete方法

典型的Visual Basic开发者通常这样想 我已经得到了该行的键了 我将编写一些逻辑来查找使用该键的行 这样可以实现 但是有更好的实现方法 可以使用一行代码获取与列表框中选项关联的数据行

Dim dr As DataRow = CType（ListBox SelectedItem DataRowView） Row

通常该逻辑不会凭直觉出现 即使对经验丰富的开发者 为了解释这是怎样实现的 我把上面的一行拆成几行 下面的代码与上面代码的功能相同

Dim drv As DataRowView drv = CType(ListBox SelectedItem DataRowView) Dim dr As DataRow dr = drv Row

DataRowView类是数据行的包装 它被多个Windows窗体控件使用 它使得显示与控件中的数据行相关的数据更加容易 当列表框被数据绑定到数据表时（假定列表框中的有些行当前被选定了） 列表框的SelectedItem属性保存了一个DataRowView对象

这意味着我们能把列表框的SelectedItem属性转换到DataRowView对象 这就是上面代码中的第二行实现的 接着DataRowView暴露一个Row属性 它指向被包装的数据行 上面的代码声明了一个数据行并设置了Row属性

转换对象的类型以访问它的接口的技术在Visual Basic 中不是经常使用 但是在Visual Basic NET中这是经常的 有了上面的例子后 大多数有经验的开发者迅速跟上了这种技术

数据行的引用（dr）可用于用任何方式维护行 访问数据行中的任何特定字段是可行的 行中的数据可以被改变 能使数据行的Delete方法把该行标识为删除 或者从数据表的行集合中删除该行 下面的代码标识删除了一行

dr Delete（）

lishixinzhi/Article/program/net/201311/12974

关于vb.net数据表和vbnet chart的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。