作者:huotian
发表: 13篇
回复: 19篇
QQ: 11170745
|     怎么没有增加新表,还运行不了?? <%
'以下连接数据库,建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("users.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
Dim strSql
strSql ="create table goods_1 (
goods_id varchar(10),
goods_type_id varchar(10),
goods_name varchar(50),
goods_type_name varchar(50),
goods_number int,
factory_id varchar(10)
)"
'增加新表
db.execute(strsql)
Response.Write "增加新表"
%> |