Aiuto su connessione SQL SERVER...

[JacK^79]

So che esistono diverse discussioni, ma prrprio nn sono riuscito a risolvere dopo due giorni..sicuramente perchè sono ancora poco pratico...spero qualcuno mi aiuti...

Ricevo questo errore durante la Login:

Microsoft OLE DB Provider for SQL Server (0x80004005)
Impossibile aprire il database "home" richiesto dall'account di accesso. Accesso non riuscito

[Mems]

Quale utente hai messo nella stringa di connessione?
Se ne hai messo uno, esso è presente tra gli utenti di sql server? E' associato al db in questione?

[JacK^79]

Ne ho creato uno nuovo e si trova nella cartella utenti dell'oggetto SQLEXPRESS e gli ho messo il database che mi serve

Tutto settato nelle proprietà dell'utente

[Mems]

Dopo averlo associato a quel db hai attivato la voce db_owner?

[JacK^79]

Si è attivata

[JacK^79]

common.asp

<% @ Language=VBScript %>
<% Option Explicit %>
<%
	
	Response.Buffer = true
	Session.LCID = "1040"	
	
	'---- CursorLocationEnum Values ----
	Const adUseClient = 3
	'---- CommandTypeEnum Values ----
	Const adCmdStoredProc = &H0004
	'---- ObjectStateEnum Values ----
	Const adStateClosed = &H00000000
	Const adStateOpen = &H00000001

	
	
	'Dimensiono tutte le variabili
	Dim sADOConStr 'stringa connessione
	Dim oADOCon, oADORec, oADOCom 'oggetti ADO
	Dim username, password, errore, numvisite, giornirimasti, retval 'prm i/o della stored proc
	Dim ret, coderr 'gestione degli errori
	
'stringa di connessione al database, ovviamente dovete sostituire i parametri
'con quelli del vostro SQL SERVER
	sADOConStr = "Trusted_Connection=yes;Provider=SQLOLEDB;Data Source=nome server\SQLEXPRESS;" &_
				  "User ID=test;Password=test;Initial Catalog=home"
	
	Set oADOCon = Server.CreateObject("ADODB.Connection")
	Set oADORec = Server.CreateObject("ADODB.RecordSet")
   	Set oADOCom = Server.CreateObject("ADODB.Command")
			  
    oADOCon.CursorLocation = adUseClient
    oADOCon.open sADOConStr

Sub Login()	
	oADOCom.activeconnection = oADOCon
	oADOCom.commandtext = "P_Login"
	oADOCom.commandtype = adCmdStoredProc
	oADOCom.Parameters.Refresh	
	oADOCom.Parameters(1) = username 'prm di Input
	oADOCom.Parameters(2) = password 'prm di Input
	oADOCom.Parameters(3) = NULL 'prm di i/o passo un valore null inizialmete
	oADOCom.Parameters(4) = NULL 'prm di i/o passo un valore null inizialmete
	oADOCom.Parameters(5) = NULL 'prm di i/o passo un valore null inizialmete
	oADOCom.Execute 	
	retval = oADOCom.Parameters(0)
	errore = oADOCom.Parameters(3)
	numvisite = oADOCom.Parameters(4)
	giornirimasti = oADOCom.Parameters(5)
End Sub				  
%>

login.asp

<%
Dim SQL

username = Trim(Request.Form("username"))
password = Trim(Request.Form("password"))

If Len(username) = 0 Or Len(password) = 0 Then
Response.Redirect "home.asp"
Call Login()
Else
username = Replace(username,"'","''")
password = Replace(password,"'","''")

// Query da lanciare 
    SQL = "SELECT Username, Password FROM accesso WHERE Username = '" & username & "' AND Password = '" & password & "'"

// Apro la connessione ed il recordset 
    
    oADORec.Open SQL, oADOCon, 1

If oADORec.EOF Then
Session("Valida") = "KO"
Response.Redirect "home.asp"
Else
Session("Valida") = "OK"
Response.Redirect "pannello.asp"
End If

End If

%>

esci.asp

<%
	If oADORec.STATE = adStateOpen Then oADORec.Close
    If oADOCon.STATE = adStateOpen Then oADOCon.Close
    Set oADORec = Nothing
    Set oADOCon = Nothing
	Set oADOCom = nothing
%>

Questo per farti vedere tutto il codice..

grazie dell'aiuto che mi dai

[Mems]

Provane qualcuna da qui: www.connectionstrings.com

[JacK^79]

Ok riprovo a scriverne un'altra e testarla...

Poi ti accio sapere come andrà

Grazie mille Mems

Ciao