十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
首先打开数据源,然后使用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
分类: 电脑/网络 程序设计 其他编程语言
问题描述:
在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 可将几个表或视图中的数据组合成一个表。也可用于创建一个包含选自链接服务器的数据的新表。
追问: 只有那个办法? 回答: 是,这跟SQL Server不同,ACCESS是独立文件的,而且它能支持的SQL语句有限,一般是使用ACCESS来创建,若要动态创建,只能用ADO了,但Sql Server就不同了,它可以执行复杂的SQL语句,相对来说,动态创建数据库和表,要比ACCESS方便。 追问: 创建表的话能用SQL语句了吗? 回答: 没试过,应该不行 追问: 那你能告诉我下怎么创建表吗?创建数据库我会了 回答: 可以使用DAO对象来操作,注意是DAO对象,不是ADO对象! 追问: 能不能详细说下过程呢?创建表的过程 回答: 创建表的过程用DAO点虐 和ADO点虐 都可以,创建数据库可以用DAO对象,既然你已经可以创建数据库,那么创建表只要先连接到这个数据库,然后用create table语句来执行就行了,可以使用OledbConnection先连接这个库,接着用OledbCommand对象的ExecuteNonQuery来执行create table语句即可。
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