Databaskoppling

Jag vet att ämnet har varit uppe ett flertal ggr. Jag hittade massa när jag sökte men jag e ändå skitsur...

Jag har lösen på min databas men får inte till kopplingen ordentligt. Min koppling ser ut enligt följande...

Set Connect = Server.CreateObject( "Adodb.Connection" )
Connect.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath( "/login/login/admin.mdb" )
Connect.ConnectionString = "Data Source='" & MdbFilePath & "'"
Connect.open

Jag har trixat som fasen men det vill inte funka.. Hur ska jag göra? x(

Vad får du för fel?

Ta bort enkelfnuttarna ifrån Connect.ConnectionString.

Vill veta hur och vart jag ska skriva in lösenordet?

Set Connect = Server.CreateObject( "Adodb.Connection" )
dbPath = Server.MapPath( "/login/login/admin.mdb" )
dbPass = "12345"
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & dbPath & ";uid=;pwd=" & dbPass & ";"

Jag skrev såhär så funkade det iaf. Vad gör Provider igentligen?

Provider är ett annat sätt att connecta mot dbn, ett bra mycket bättre och snabbare sätt en den gamla vanliga access drivisen.

Med providern:

Set Connect = Server.CreateObject( "Adodb.Connection" )
Connect.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath( "/login/login/admin.mdb" )
Connect.ConnectionString = "Data Source='" & MdbFilePath & ";Jet OLEDB:Database Password=password;"

cya,
PatrikB

då klagar den på SQL satsen när jag läser användarnamnet vilket den inte gjorde med den koden jag skrev... varför?

I din tidigare kod så kom du aldrig så långt att sql-satsen kompilerades.

Hur ser sql-satsen ut och vad får du för fel?

Feltyp:
ADODB.Recordset (0x800A0E7D)
Åtgärden är inte tillåten på ett objekt som refererar till en stängd eller en ogiltig anslutning.
/login/login/login.asp, line 12

login.asp

<%
Set RSUser = Server.CreateObject("ADODB.Recordset")
%>
<!--#include file="../dbconnect.asp" -->
<%
SQL = "Select * from t_Members Where f_User='" & Request.Form("Username") & "'"

RSUser.Open SQL,Connect,1,2

[b]If RSUser.EOF Then[/b]
%>

User does not exist.

<%
ElseIf RSUser("f_Password") <> Request.Form("Password") Then
%>

Password is incorrect for<br>
<b><%=Request.Form("UserName")%></b>

<%
Else
	Session("User") = "Yes"
	Session("UserID") = RSUser("f_ID")
	Session("Admin") = RSUser("f_Admin")
	Response.Redirect "admin.asp"

End If

RSUser.close
Connect.close
%>