ASP与ORACLE，给分！！急需解决！

[shu519]

请问怎样将一个Access数据库的ASP网站转为Oracle数据库的？
Access中调用数据库的语法与Oracle调用有什么不同？
提供详细资料者分数大大的有！

先谢过了！

[enslaver]

用程序将ACCESS中的数据取出然后循环写到ORACLE数据库
用标准的SQL语句

[ygghost]

用oracle9i吗？

一般都Access--SQL--oracle

你直接给升级了：）

个人认为，纯asp调用oracle有点小题大作。

2者语法在一些简单的地方没有太大区别的！

[ygghost]

一些语法：在SQL plus（相当于查询分析器）里执行


desc table_name 可以查询表的结构
select field_name，... from ... 可以查询字段的值
select * from all_tables where table_name like '%'
select * from all_tab_columns where table_name='??'

[QQgenie]

ORACLE没有自动ID,要用一个序列号来代替,如要添加记录,要分两步:先取序列号,再把序列号和其它表单值一起添加到表里.要转换的话,有些字段类型也不太一样,如果表建好了,导数据那不是问题,用ASP编一个一取一存就可以了,不过要分段处理,不然导不完整.


语句上有点不同的:
如ADO方式下:取ID值
MDB:
id=rs("id")

ORA:
id=rs.fields("id").value

[shu519]

其实我对ASP和ORACLE都不太熟，只会点SQL的基础知识！

<%
option explicit
response.buffer=true
dim conn
dim connstr
dim db
db="article.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
这是ACCESS数据库的连接，如果转成ORACLE该怎么写？

[ptpa]

连接
<%
On Error Resume Next
Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("数据库名","用户名/密码",0)
If Err.Number>0 Then
response.write"<h4>ASP的错误控制</h4><br>"
response.write"ASP的错误来源："&err.source&"<br>"
response.write"ASP的错误代码："&err.Number&"<br>"
response.write"ASP的错误说明："&err.Descripition&"<br>"
Err.clear
response.write"<h4>Oracle OLE的错误控制</h4><br>"
response.write"Oracle的错误代码："&OraSession.lastServerErr&"<br>"
response.write"Oracle的错误说明："&OraSession.LastServerErrText&"<br>"
else
response.write"<center><h3>数据库连接成功</center>"
OraDatabase.close
set OraSession=nothing
End If
%>

[ptpa]

<%

Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("数据库名","用户名/密码",0)

sql="select * from 表名 "
set oraDynaset=oraDatabase.DbCreateDynaset(sql,0)
if OraDynaset.RecordCount=0 then

response.write"没有您所需要得数据，对不起"
else
response.write"<h3>查询结果</h3>"
response.write"<table border=5><tr>"
for i=0 to OraDynaset.Fields.Count-1
Response.write"<td>"
response.write OraDynaset.Fields(i).name&""
response.write "</td>"
next
response.write"</tr>"
do until oradynaset.eof
response.write"<tr>"
for i=0 to OraDynaset.Fields.Count-1
response.write"<td>"
response.write oradynaset.fields(i).value
response.write"</td>"
next
response.write"</tr>"
oradynaset.dbmovenext
loop
response.write"</table>"
end if
OraDatabase.close

set OraSession=nothing

%>

[QQgenie]

难的是不仅仅在程序,建表更烦