[blue] .
.
.[/blue]
MySQL = "SELECT Count(*) FROM tabell;"
Set objRecordset1 = Server.CreateObject("ADODB.Recordset")
objRecordset1.Open MySQL, Conn, adOpenKeyset
n = objRecordset1(0)
[blue] .
.
.[/blue]
Frågan#1
Ä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