关于asp建立ACCESS库、表及EXCEL转入ACCESS中的三个问题
一、关于用脚本建立access数据库的问题:
db="abcde.mdb"
Set Ca = Server.CreateObject("ADOX.Catalog")
call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & db)
这段代码在第一次建立时能成功,如果第二次重名建立时显示代码错误,请问如何判断它是否重名?
二、
建立字段:
sql = "create table aboutme2 (id integer primary key,name text,Birthday datetime,dizhi text,nianling integer)"
text显示的字段类型为什么是备注,而不是文本型,如何改成文本类型并限定字段的大小。
三、excel转入到ASP中的问题:
如EXCEL中有N个表,导入到ASP中后只显示EXCEL中第一个默认的表,如何能将其他的表全读出来。我先贴上我的代码,大家看看怎么改:
au="2006.xls"
cxl=server.mappath(au)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ="&cxl
SQL1="select * from [sheet1$]" 'sheet1为excel文件的表名
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL1,conn,3,3
curDir = Server.MapPath("db1.mdb")
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&curDir
sql="CREATE TABLE 成绩表 (" '要创建的Access表名
for i=0 to rs.Fields.Count-2
sql=sql & rs(i).Name&" CHAR(100),"
Next
sql=sql & rs(rs.Fields.Count-1).Name&" CHAR(100))"
conn1.Execute sql
'End if
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs1.ActiveConnection = conn1
rs1.Source = "select * from 成绩表"
rs1.CursorType = 3 ' adOpenKeyset
rs1.LockType = 3 'adLockOptimistic
rs1.Open
Do While Not rs.Eof
rs1.AddNew
for i=0 to rs.Fields.Count-1
rs1(i)=Trim(rs(i))
Next
rs1.Update
rs.MoveNext
Loop