VB点虐 连接数据库创建新字段并对其进行赋值

首先打开数据源，然后使用alter table语句即可，具体范例如下：

创新互联公司-专业网站定制、快速模板网站建设、高性价比嵩明网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式嵩明网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖嵩明地区。费用合理售后完善，10多年实体公司更值得信赖。

Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconstr = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" 数据库路径及文件名 ""cn.Open constrDim str As Stringstr = "alter table 表名 add 字段 类型"rs.Open str, cn, adOpenStaticmsgbox"添加字段成功",vbokonly

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 可将几个表或视图中的数据组合成一个表。也可用于创建一个包含选自链接服务器的数据的新表。

vb点虐 怎么动态创建access数据库和表

追问： 只有那个办法？ 回答： 是，这跟SQL Server不同，ACCESS是独立文件的，而且它能支持的SQL语句有限，一般是使用ACCESS来创建，若要动态创建，只能用ADO了，但Sql Server就不同了，它可以执行复杂的SQL语句，相对来说，动态创建数据库和表，要比ACCESS方便。 追问： 创建表的话能用SQL语句了吗？ 回答： 没试过，应该不行 追问： 那你能告诉我下怎么创建表吗？创建数据库我会了 回答： 可以使用DAO对象来操作，注意是DAO对象，不是ADO对象！ 追问： 能不能详细说下过程呢？创建表的过程 回答： 创建表的过程用DAO点虐 和ADO点虐 都可以，创建数据库可以用DAO对象，既然你已经可以创建数据库，那么创建表只要先连接到这个数据库，然后用create table语句来执行就行了，可以使用OledbConnection先连接这个库，接着用OledbCommand对象的ExecuteNonQuery来执行create table语句即可。

VB.NET通过调用模块怎么建立access数据库?

oledb的使用网上的确很多.

如果只是查询. 写入. 删除,我们常用的就是

OleDbConnection '用于写数据库的连接

OleDbCommand '用于数据的操作 接收SQL语句 并执行

OleDbDataReader '查询了,我们就用这个类来读取查询的对象

1).OleDbConnection

dim conn as new OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =数据库的路径")'连接字符串一般就这样

查询前在打开

conn.open

2).OleDbCommand

dim cmd as new OleDbCommand ("SQL语句",conn)'SQL语句决定了你是查询写入还是更新删除

'''

如果是查询,你还要用到OleDbDataReader

这个是不用新建的不能用New

dim rd as OleDbDataReader=cmd.ExecuteReader'cmd.ExecuteReader 方法就是读取查询的内容

cmd.ExecuteNonQuery用于执行操作 返回变动的条数 ,一般用于 添加 删除 更新 等其它操作

其实就这些了,就是要学点SQL语句就行了.

标准执行过程就是

Dim conn As New OleDbConnection("连接字符串")

conn.Open()

Dim cmd As New OleDbCommand("SQL语句", conn)

'如果是写入 更新 删除 则

cmd.ExecuteNonQuery()

' 否则

Dim rd As OleDbDataReader = cmd.ExecuteReader

If rd.Read Then

Dim d As Object = rd.Item("字段名")

End If

' 结束如果

rd.Close()

cmd.Dispose()

conn.Close()

上面要有 Imports System.Data.OleDb

分享文章：vb点虐 数据库建立 如何用vb建立excel数据库
文章分享：http://scyanting.com/article/ddesdji.html