首先打开数据源,然后使用alter table语句即可,具体范例如下:
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.netexcel给range赋值的方法如下:
Range是对象类型,对象的赋值要加一个Set,,例如您需要的语句可以这样写:
Set M = Range("A1:I1")
这样赋值以后,M才Range类型,例如可以使用 M.Count 属性,或者 M.ClearContents 方法
如果不写Set,那么会把Range的值赋与变量(数组类型)。
ALTER TABLE TABLE_Name ADD columnName varchar(30) '新增字段
ALTER TABLE TABLE_Name ADD columnName1 varchar(30) '新增字段
INSERT INTO TABLE_Name(columnName,columnName1)VALUES(columnName,columnName1) ‘插入新行,只给新字段赋值