Olika

Är det olika om man anväder en accsess databas eller
en MYSQL databas

Kör jag denna kod mot accsess funkar det men mot MYSQL blir
det bara n = -1 så lopen börjar inte.

Dim MySQL
Dim Conn
Const adOpenKeyset=1

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=test; USER=root; PASSWORD=; OPTION=3;"

MySQL = "SELECT * FROM tabell;"
Set objRecordset1 = Server.CreateObject("ADODB.Recordset")
objRecordset1.Open MySQL, Conn, adOpenKeyset
n = objRecordset1.Recordcount

Response.Write n

for j = 1 to n
rad = objRecordset1("rad")
Response.Write rad & "<br>"
objRecordset1.MoveNext
next
set objRecordset1 = nothing

Finns det något bättre sätt att göra det på jag vill räkna hur många det är innan lopen startar.

Alfa

[blue]  .
  .
  .[/blue]
MySQL = "SELECT Count(*) FROM tabell;" 
Set objRecordset1 = Server.CreateObject("ADODB.Recordset") 
objRecordset1.Open MySQL, Conn, adOpenKeyset 
n = objRecordset1(0)
[blue]  .
  .
  .[/blue]

Set objRecordset1 = Server.CreateObject("ADODB.Recordset") 
objRecordset1.CursorLocation = 3
MySQL = "SELECT * FROM tabell;" 
objRecordset1.Open MySQL, Conn, adOpenKeyset 
n = objRecordset1(0)