Nybegynder i mySQL og ASP har brug for lidt hjælp.

Det første du skal gøre er at lave en forbindelse til databasen det gør du sådan her:

set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "driver={mysql};server=server_ip; port=3306;Database=testdb;uid=dit_brugernavn;pwd=dit_password"

Her skal du udskifte:
server_ip -> til den ip din mySql server har
dit_brugernavn -> til det brugernavn du bruger til databasen
dit_password -> til det password der matcher dit brugernavn

Efter dette er gjort kan du udføre querys mod databasen:
Først sætter vi en variabel til at indeholde din query:
strSQL = ”SELECT ID,title,maintext FROM testdb”

Og udføre queryen :
set rs = Conn.Execute(strSQL)

Herefter kan vi bladre i resultaterne:

while not rs.EOF
Response.Write(”ID på feltet er:” & rs(“ID”) & ”<br>”)
Response.Write(”title:” & rs(“title”) &  “<br>”)
Response.Write(”maintext:” & rs(“maintext”) & “<br>”)
Wend

Og vi lukker forbindelsen til databasen igen
Conn.close
Set rs = nothing

Håber det hjalp dig lidt på vej

Error Type:
Microsoft VBScript compilation (0x800A0408)
Invalid character
/test.asp, line 12, column 9
strSQL = ”SELECT ID,title,maintext FROM testdb”
--------^

<%
set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "driver={mysql};server=server_ip; port=3306;Database=testdb;uid=USERNAME;pwd=PASSWORD"
strSQL = ”SELECT ID,title,maintext FROM testdb”
set rs = Conn.Execute(strSQL)
while not rs.EOF
Response.Write(”ID på feltet er:” & rs(“ID”) & ”<br>”)
Response.Write(”title:” & rs(“title”) &  “<br>”)
Response.Write(”maintext:” & rs(“maintext”) & “<br>”)
Wend

Conn.close
Set rs = nothing
%>

Kan du ikke hjælpe. ?

2 sek kigger lige på det, sad lige og halvsov :)

Okay.

prøv at kopier dette ind:

sql = "Select ID,titel,maintext from testdb"

Af en eller anden grundt ser det ud til dine " er forskellige. Men ved ikke om det er derfor din sætning ser fornuftig ud.

Error Type:
Microsoft VBScript compilation (0x800A0408)
Invalid character
/test.asp, line 15, column 15
Response.Write(”ID:” & rs(“ID”) & “<br>”)
--------------^

hmm det er sikkert pga word det siger det,
prøv at lave alle dine " om til til " :)

Word har left(") og right(") og det kan asp ikke fortolke.

så du skal nok igang med search/replace ” med "

Det beklager jeg. Det er pga. microsoft word.

Jeg havde skrevet en lang besked her men så pga jeg gik tilbage og frem i browseren blev beskeden slette, så besluttede jeg at skrive den i word istedet. Og så lave lidt c/p

Prøv lige at skriv den fulde kode:

<%
set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "driver={mysql};server=localhost;port=3306;Database=testdb;uid=USERNAME;pwd=PASSWORD"
sql = "Select ID,titel,maintext from testdb"
set rs = Conn.Execute(strSQL)
while not rs.EOF
Response.Write("ID:" & rs("ID") & "<br>")
Response.Write("title:" & rs("title”) &  "<br>")
Response.Write("maintext:" & rs("maintext") & "<br>")
Wend
Conn.close
Set rs = nothing
%>

<%
set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "driver={mysql};server=localhost;port=3306;Database=testdb;uid=USERNAME;pwd=PASSWORD"
sql = "Select ID,titel,maintext from testdb"
set rs = Conn.Execute(strSQL)
while not rs.EOF
Response.Write("ID:" & rs("ID") & "<br>")
Response.Write("title:" & rs("title") &  "<br>")
Response.Write("maintext:" & rs("maintext") & "<br>")
Wend
Conn.close
Set rs = nothing
%>

Dur det ikke ?

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/test.asp, line 12

ok så er vi videre.
Du skal have myODBC driver installeret før ASP kan snakke med mySQL du kan downloade dem her: http://www.mysql.com/ i højre side er der et link MyODBC 2.50 2.50.39 den skal du hente og installere.

Okay.

Installeret.
Men så kom den her:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)
Command text was not set for the command object.
/test.asp, line 14

Har du MSN eller icq. ?
Måske det ville være lidt nemmer end det her. ?

prøv at fjerne port=3306

Det hjalp ikke.

har du indtastet noget i databasen

Ja.

Database hedder: testdb
Table hedder: testtable

jeg har ikke set den fejl før. Checker lige nogle sider

ah
selvfølgelig

så er det
sql = "Select ID,titel,maintext from testtable"
Min fejl jeg er lidt træt :D

Skete ikke meget.

´kom der en anden fejl?

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)
Command text was not set for the command object.
/test.asp, line 14

hvad er der på linje 14

set rs = Conn.Execute(strSQL)

har du ikke ændret strSQL til sql ?

<%
set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "driver={mysql};server=localhost;port=3306;Database=testdb;uid=USERNAME;pwd=PASSWORD"
sql = "Select ID,titel,maintext from testdb"
set rs = Conn.Execute(sql)
while not rs.EOF
Response.Write("ID:" & rs("ID") & "<br>")
Response.Write("title:" & rs("title") &  "<br>")
Response.Write("maintext:" & rs("maintext") & "<br>")
Wend
Conn.close
Set rs = nothing
%>

Nu er den der næsten:


Error Type:
Active Server Pages, ASP 0113 (0x80004005)
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
/test.asp

hehe :))
Det er klart.
<%
set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "driver={mysql};server=localhost;port=3306;Database=testdb;uid=USERNAME;pwd=PASSWORD"
sql = "Select ID,titel,maintext from testdb"
set rs = Conn.Execute(sql)
while not rs.EOF
Response.Write("ID:" & rs("ID") & "<br>")
Response.Write("title:" & rs("title") &  "<br>")
Response.Write("maintext:" & rs("maintext") & "<br>")
rs.movenext
Wend
Conn.close
Set rs = nothing
%>

Endnu et eksempel på at det er bedre for mig at gå tidligere i seng end at blive oppe hele natten og kode. Der kommer for mange "smuttere".

Du manglede rs.movenext som flytter curseren til næste tuble i dit resultset. Hvis den ikke er med vil den gå ind i en uendelig løkke og der vil være en timeout som du så på scriptet.

Jubiiiiii det dur. :-)
Hvis jeg så vil have det ud i tabeller hvad er det så for en kode der skal stå i min HTML tabel. ?

så skal du fx gøre sådan her:

<html>
<head></head>
<%
function getText
set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "driver={mysql};server=localhost;port=3306;Database=testdb;uid=USERNAME;pwd=PASSWORD"
sql = "Select ID,titel,maintext from testdb"
set rs = Conn.Execute(sql)
while not rs.EOF
  Response.Write("<tr><td>")
  Response.Write("ID:" & rs("ID") & "</td>")
  Response.Write("<td>title:" & rs("title") &  "</td></tr>")
  Response.Write("<tr><td colspan=2>maintext:" & rs("maintext") & "</td></tr>")
  rs.movenext
wend

Conn.close
Set rs = nothing
end function
%>

<body>
<table cellpadding="0" cellspacing="0" border="0">
<%=getText%>
</table>

</body>
</html>

Kan jeg spørger om en lilille ting mere. ?

Hvordan skriver jeg så ind i min database via en asp side. ?

Hvis der skal flere points til må du lige sige til.

hvis du vil skrive i den fx via en form skal du have en html form lille eksempel:
side1.asp:

<html>
<body>
<form action="side2.asp" method="get">
indtast en titel: <input type="text" name="titel"><br>
indtast en tekst til titel: <textarea name="text"></textarea><br>
<input type="submit">
</form>
</body>
</html>

side2.asp :
<html>
<%
titel = Request.QueryString("titel")
text = Request.QueryString("text")

set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "driver={mysql};server=localhost;port=3306;Database=testdb;uid=USERNAME;pwd=PASSWORD"

sql = "Insert into testtable(titel, maintext) values('"& titel &"','" & text &"')"
Conn.Execute(sql)
%>
<body>
Følgende er blevet indsat:<br>
<%=titel%><br>
<%=text%>
</body>
</html>


Jeg går ud fra at dit ID felt er auto_increment i databasen dvs forløbende.

hov det skal være sql = "Insert into testtable(title, maintext) values('"& titel &"','" & text &"')"

Output: http://217.157.174.206/test.asp
http://217.157.174.206/side1.asp
http://217.157.174.206/side2.asp

Prøv lige selv og se.

prøv at ændre det til
Request.Form("titel")
Request.Form("text")

Det virker ikke.

Du skal huske at afslutte alle queries til MySQL med et semicolon (;).
F.eks:
strSQL = "Select id, titel, maintext from testdb;"
Set rs = Conn.Execute(strSQL)

Prøv om det virker...