关于asp建立ACCESS库、表及EXCEL转入ACCESS中的三个问题

dlwlrd 2006-02-12 11:11:58
一、关于用脚本建立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
...全文
183 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
苍白之月 2006-02-13
  • 打赏
  • 举报
回复
90分不好拿啊 呵呵
1.每次关闭链接
你都要set CA=nothing吧
后面再次使用的时候 加一句
if isobject(CA) then
set CA1= Server.CreateObject("ADOX.Catalog")
else
Set CA = Server.CreateObject("ADOX.Catalog")
end if
2.这个问题相信我已经说明白了
3.OWC是微软专门为OFFICE系列开发的 大概意思就是把DOC、XSL等OFFICE的文件格式转换成XML的形式 以提高数据的通用性 OWC就是在不同环境操作XML数据的控件 OWC9是第一个版本 对应OFFICE2000 OWC10对应OFFICEXP OWC11是OFFICE2003 现在OWC12也能用了 不过我没用过
推荐你是用OWC10以上版本


关于OWC还有不明白请自行学习以后再发问吧 不然我都不知道怎么给你讲
dlwlrd 2006-02-13
  • 打赏
  • 举报
回复
楼上的能说明白点吗?
  • 打赏
  • 举报
回复
你需要用fso先检查一下就是了,这个超简单.....

我也很喜欢用ADOX,呵呵
苍白之月 2006-02-12
  • 打赏
  • 举报
回复
1.用isobject也可以
2.我机器没装Access 你看帮助就行了 如果是中文的access用中文就行了 英文标准点 这么写
CREATE TABLE b1 (t1 text(255), t2 text(255));
3.换控件 用MS的OWC9、10、11都行 里面提供了完整的对EXCEL
  • 打赏
  • 举报
回复
SQL1="select * from [sheet1$]"

sheet2不就是第二个表了么?

如果很多表的话,ado的方法我想不出来了,vba是一定可以解决有几个表的
dlwlrd 2006-02-12
  • 打赏
  • 举报
回复
谢谢楼上的,第一个问题用FSO解决了,还有两上问题呢?能不能再给个思路,谢谢
根据功能的不同可以将本系统划分为四个主模块,五个子模块 身份验证:通过登录才可进入选课系统,登录信息提交后检验登录者的身份是否合法,合法,则转入对应的操作界面。在本系统,只有三种身份:学生、老师、管理员。 选课:用于学生的网上选课,通过选择被选学期,查看被选专业的课程,完成该学期的选课任务。 信息管理: 信息浏览:信息浏览包括已选课程浏览、被选课程浏览、公共信息浏览、已发布课程信息浏览。已选课程浏览是为学生提供的查看自己已经选择的课程信息,根据选择的学期不同而更新页面。被选课程浏览用于学生修改、补选、重新选择课程。公共信息浏览适用于教师和学生查看最近发布的信息(内容、时间)。已发布课程信息浏览用于各代课老师查询自己已经发布的课程信息,主要用于浏览、核对。 信息查询:信息查询包括教师个人信息查询、课程查询、选课名单查询。课程查询即通 课程编码(唯一)来查询该课程的相关介绍,包括课程内容、开课学期、地点等内容。教师个人信息是通过教师姓名来查询对应的老师个人信息,包括学历、职称、成果等。通过选课名单的查询可以查看该学期选择某一门课程的学生情况。 信息修改: 修改:信息修改包括选课信息的修

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧