data fra Oracle DB

er der nogen?

Det eneste du umiddelbart skal ændre, er din connection string, hvor du i dag bruger en OLE-DB provider til Access eller en DSN til Access, skal du bruge en tilsvarende til Oracle.

Hvilken version af Oracle bruger du ?

Vis evt. din connection string til Access, så skal jeg prøve at give et eksempel på en tilsvarende til Oracle.

bruger 8.1

Her er et eksempel på connection til Oracle 8.1

Set Conn = Server.CreateObject(\"ADODB.Connection\")

Conn.ConnectionString = \"Provider=OraOLEDB.Oracle;User ID=scott;Password=tiger;Data Source=myDataBase;\"

Forudsat at dit SQL er bare nogenlunde \"standard\", bør dette være det eneste du skal ændre.

har lavet en hurtigt...

Der er sikkert syntaks fejl iden...men det er princippet !!

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"temp.mdb\")

SQLstmt = \"SELECT * FROM personer\"

Set PersonSQL = conn.Execute(SQLstmt)


DO WHILE NOT PersonSQL.EOF
  Fornavn= PersonSQL(\"Fornavn\")
  Efternavn = PersonSQL(\"Efternavn\")

Response.write Fornavn
Response.write Efternavn

    PersonSQL.MoveNext
  LOOP
  PersonSQL.Close %>

Uden at have kontrolleret for syntax fejl, skal den nu se sådan ud. Du skal erstatte user, password og datasource med din egne værdier.

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Provider=OraOLEDB.Oracle;User ID=scott;Password=tiger;Data Source=myDataBase;\"

SQLstmt = \"SELECT * FROM personer\"

Set PersonSQL = conn.Execute(SQLstmt)


DO WHILE NOT PersonSQL.EOF
  Fornavn= PersonSQL(\"Fornavn\")
  Efternavn = PersonSQL(\"Efternavn\")

Response.write Fornavn
Response.write Efternavn

    PersonSQL.MoveNext
  LOOP
  PersonSQL.Close %>

Jeg har først mulighed for at tjekke det imorgen, men skulle det være ok, som det er lavet nedenunder !!

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")

Conn.ConnectionString = \"Provider=OraOLEDB.Oracle;User ID=scott;Password=tiger;Data Source=myDataBase;\"

SQLstmt = \"SELECT * FROM personer\"

Set PersonSQL = conn.Execute(SQLstmt)


DO WHILE NOT PersonSQL.EOF
  Fornavn= PersonSQL(\"Fornavn\")
  Efternavn = PersonSQL(\"Efternavn\")

Response.write Fornavn
Response.write Efternavn

    PersonSQL.MoveNext
  LOOP
  PersonSQL.Close %>

hehe

du var lidt hurtigere end mig

men de ser meget ens ud

Jeg tjekker den lige imorgen...og så får du pointene....

Nej, du har glemt at åbne din connection.

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")

Conn.ConnectionString = \"Provider=OraOLEDB.Oracle;User ID=scott;Password=tiger;Data Source=myDataBase;\"

SQLstmt = \"SELECT * FROM personer\"

Conn.Open
Set PersonSQL = conn.Execute(SQLstmt)


DO WHILE NOT PersonSQL.EOF
  Fornavn= PersonSQL(\"Fornavn\")
  Efternavn = PersonSQL(\"Efternavn\")

Response.write Fornavn
Response.write Efternavn

    PersonSQL.MoveNext
  LOOP
  PersonSQL.Close %>

ok, held og lykke med det :-)

Det virkede... tak