Avatar billede fldkdla Nybegynder
17. september 2006 - 13:29 Der er 12 kommentarer og
1 løsning

MySQL exempel.

Hej,

Er der nogen der kan sende mig et eksempel på hvordan jeg bruger en mySQL connection.

Jeg vil gerne have følgende i en include:
"driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=****;database=**so;option=16387"

Så jeg bare kan includere det i toppen af alle sider så det er nemt at skifte db.

kan i lave et eksempel på include fil, et udtræk, addnew, update og delete ?

det giver 200 point.
Avatar billede madeindk Nybegynder
17. september 2006 - 13:41 #1
Hente fra DB:

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=XXX; Database=XXX; UID=XXX; PWD=XXX;"

SQL = "SELECT * FROM XXX
set RS = objConn.Execute(SQL)
%>

Indsætte i DB:

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=XXX; Database=XXX; UID=root; PWD=XXX;"

SQL = "INSERT INTO guestbook (ditfelt) " & "VALUES('" & request.form("ditfelt") & "')"
objConn.Execute(SQL)
ObjConn.Close
%>

Updatere databasen:

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=XXX; Database=XXX; UID=XXX; PWD=XXX;"

SQL = "UPDATE users SET ditFelt = " & request.form("ditfelt") WHERE id=" & id
objConn.Execute(SQL)
ObjConn.Close
%>

Slette fra databasen:

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=XXX; Database=XXX; UID=XXX; PWD=XXX;"

SQL = "DELETE FROM XXX WHERE id=" & id
objConn.Execute(SQL)
ObjConn.Close
%>
Avatar billede fldkdla Nybegynder
17. september 2006 - 13:45 #2
Skal de her to linier så ligge i min Conn.asp include fil:

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=XXX; Database=XXX; UID=XXX; PWD=XXX;"

?

kan man ikke lave det lisom med access og lave en

rs.addnew
RS("Text") = Request.form("text")
rs.update

hvis du kan lave det sådan får du 200 point mere her fra: http://www.eksperten.dk/spm/732803
Avatar billede madeindk Nybegynder
17. september 2006 - 13:46 #3
1) Ja, lig Set ObjConn osv. i din include fil.

2) Jo, det kan du godt. Men det er hurtigere med INSERT, UPDATE og DELETE. Skal jeg finde det til dig, så du kan bruge rs.update, rs.addnew. rs.delete?
Avatar billede fldkdla Nybegynder
17. september 2006 - 13:47 #4
ja det ville være rart det er nemmere at kode.
Avatar billede madeindk Nybegynder
17. september 2006 - 13:49 #5
Ja, det er rigtigt :-)

Denne linie i en Conn.asp:

<%
objConn = "Driver={MySQL ODBC 3.51 Driver}; Server=XXX; Database=XXX; UID=root; PWD=XXX;"
%>

Og resten er bare SELECT og så videre. Du burde gerne kunne bruge rs.addnew og så videre nu :-)

<%
Set RS = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM xxx "
   
rs.CursorLocation = 3
rs.Open SQL, ObjConn, 1
%>
Avatar billede fldkdla Nybegynder
17. september 2006 - 13:50 #6
Takker, jeg tester lige så får du dine point senere, husk at svare på det ander spg også
Avatar billede madeindk Nybegynder
17. september 2006 - 13:51 #7
Bare skriv her om det virker, så smider jeg svar i det andet :-)
Avatar billede fldkdla Nybegynder
17. september 2006 - 14:04 #8
Det virker med select, delete men ikke med RS.addnew

her er fejlen:
ADODB.Recordset (0x800A0CB3)
Det aktuelle postsæt understøtter ikke opdatering. Det kan skyldes en begrænsing af provideren eller den markerede låsetype.
/adm_files/bruger_adm.asp, line 102


<%
        Set rs = Server.CreateObject("ADODB.RecordSet")
        SQL = "Select * From brugere where brugernavn = '" & Request.form("brugernavn") & "'"
        ObjConn.CursorLocation = 3
        rs.Open SQL, ObjConn, 1

        '//Tjecker om brugernavnet er optaget!
        If Not (rs.BOF Or rs.EOF) Then
        Response.write("Brugernavnet er optaget")
        else

        '//Tilføjer brugeren til databasen!
Linie 102    rs.addnew
        rs("brugernavn") = Request.form("brugernavn")
        rs("kodeord") = Request.form("kodeord")
        rs("email") = Request.form("email")
        rs("fuldenavn") = Request.form("fuldenavn")
        rs.update
        Response.Write("Bruger oprettet")
        end if
        rs.Close
        Set rs = Nothing
       
        %>
Avatar billede dr_chaos Nybegynder
17. september 2006 - 14:05 #9
fldkdla    og madeindk man må kun give og modtage max 200 points for et spm.
Andet er imod reglerne på exp.
Avatar billede fldkdla Nybegynder
17. september 2006 - 14:14 #10
dr_charos -> Okay. Jeg giver ikke pointne nu, men jeg får nok brug for hjælp senere så hvis madeindk kan svare får han dem der.

OK ?
Avatar billede fldkdla Nybegynder
17. september 2006 - 14:16 #11
Jeg har lukket det! Sorry, ville bare have et hurtigt svar..
Avatar billede madeindk Nybegynder
17. september 2006 - 14:21 #12
Ok, det er mærkeligt. Men jeg er ikk så meget inde i det der, men det kan jeg se at der er mange på Google, der modtager samme fejl.

http://www.google.dk/search?hl=da&q=ADODB.Recordset+%280x800A0CB3%29&meta=

Men ellers må du bruge:

SQL = "INSERT INTO guestbook (ditfelt) " & "VALUES('" & request.form("ditfelt") & "')"
objConn.Execute(SQL)

Det er ikke så svært som det ser ud, man skal bare vænne sig til det :-)
Avatar billede dr_chaos Nybegynder
17. september 2006 - 14:32 #13
Helt fint.
Jeg er ikke moderator eller noget i den stil, så det var bare en venlig advarsel :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester