Avatar billede peanut2000 Nybegynder
13. oktober 2004 - 19:55 Der er 10 kommentarer og
1 løsning

connect til mysql database via asp - på nettet

Hej jeg har webhotel hos b-one og også  en mysql db.

Mit problem er at jeg ikke kan få fat i databasen. Jeg har følgende kode:
<%
'Skaber forbindelse til databasen og henter indholdet af den
' Databaseforbindelse - husk at angive sti til din database
if request.form("txtEmail") <> "" then

Dim my_conn, strSQL, rs
Set my_conn = createobject("ADODB.Connection")

my_conn.open = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=localhost;"_
& "DATABASE=???;"_
& "UID=???;"_
& "PWD=???;"

'Conn.Open DSN

strSQL = "Insert into Nyhedstabel (Email) values('"& Request.Form("txtEmail") & "')"
'response.write strSQL
'response.end
conn.Execute(strSQL)
my_conn.close
'Conn.Execute strSQL
'Conn.Close

Set my_conn = nothing 'obj variable released
'Set Conn = Nothing
response.redirect "start.asp?Tak=Tak for din tilmeldingen."
end if
%>

Men får nu følgende meddelelse:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'open'

/email_sys.asp, line 16
Avatar billede peanut2000 Nybegynder
13. oktober 2004 - 19:56 #1
der er følgende hjælp at hente hos b-one:

odbs:
<%
ConnString ="Driver=
{MySQL};SERVER=localhost;DATABASE=xxx;UID=xxx;PASSWORD=xxx"
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = server.CreateObject("ADODB.recordset")
Conn.Open ConnString
sql = "select * from table
RS.Open sql, Conn, 1, 2
%>

og Hvordan ser ASP connection string ud til min MySQL:
<%
Dim objConn
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=[DOMAIN_COM];UID=[DOMAIN_COM];PWD=[PASSWORD];"
objConn.Open

objRS.Open "[QUERY]", objConn, 3,3
%>

<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
Avatar billede peanut2000 Nybegynder
13. oktober 2004 - 19:58 #2
den giver fejl i linie 16 altså her:

my_conn.open = "DRIVER={MySQL ODBC 3.51 Driver};"_
Avatar billede hmortensen Nybegynder
13. oktober 2004 - 20:01 #3
så prøv med DRIVER={MySQL}
Avatar billede peanut2000 Nybegynder
13. oktober 2004 - 20:04 #4
virker ikke får samme fejlmeddelelse fra før
Avatar billede hmortensen Nybegynder
13. oktober 2004 - 20:12 #5
Måske sådan her:
<%
Dim objConn
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=[DOMAIN_COM];UID=[DOMAIN_COM];PWD=[PASSWORD];"
objConn.Open

strSQL = "Insert into Nyhedstabel (Email) values('"& Request.Form("txtEmail") & "')"
'response.write strSQL
'response.end
objConn.Execute(strSQL)
objConn.close
'Conn.Execute strSQL
'Conn.Close

Set objConn = nothing 'obj variable released
'Set Conn = Nothing
response.redirect "start.asp?Tak=Tak for din tilmeldingen."
end if
%>
Avatar billede peanut2000 Nybegynder
13. oktober 2004 - 20:20 #6
hvis jeg gør det ovenstående får jeg følgende fejl:

Microsoft VBScript compilation error '800a0400'

Expected statement

email_sys.asp, line 28

end if
Avatar billede hmortensen Nybegynder
13. oktober 2004 - 20:21 #7
Du skal lige haden her øverst:
if request.form("txtEmail") <> "" then
Avatar billede peanut2000 Nybegynder
13. oktober 2004 - 20:33 #8
Nu får jeg følgende fejl

ADODB.Connection.1 error '80004005'

SQLState: S1000
Native Error Code: 1045
[TCX][MyODBC]Access denied for user: '[styrketraining_COM]@localhost' (Using password: YES)


/email_sys.asp, line 16

Jeg får lige tjekket mit databasenavn, brugernavn og adgangskode hos b-one i morgen
Avatar billede hmortensen Nybegynder
14. oktober 2004 - 08:03 #9
Hvis den siger at der er fejl i oplysningerne, må scriptet jo virke
Avatar billede peanut2000 Nybegynder
14. oktober 2004 - 14:59 #10
har fundet fejlen [] skal væk fra connectionstringen
Avatar billede hmortensen Nybegynder
14. oktober 2004 - 17:34 #11
Øhh ja, de viste jo bare hvor du skulle skrive oplysninger ind...
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