Info blocco database

martedì 13 gennaio 2009 - 11.02

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

giucorn Profilo | Junior Member

83 messaggi | Data Invio: mar 13 gen 2009 - 11:02

Ciao a tutti,
ho un problema di connessione al mio database. ho una pagina di login dove faccio una select in un database per verificare la validità di "nome utente" e "password".
Se il database non è aperto non ho nessun problema, mentre se il database è aperto in visualizzazione da un'altro pc in progettazione mi da come errore "Impossibile salvare. Attualmente bloccato". Mentre in visualizzazione sul server_Web in localhost mi da come errore "Windows - Scrittura rimandata non riuscita. Impossibile salvare tutti i dati del file \PC_RETE\Cartella_Condivisa\DB_1.ldb. I dati sono andati persi. la causa dell'errore potrebbe essere un errore hardware o della connessione di rete. Provare a salvare i dati altrove."

In cosa sbaglio, purtroppo il database è condiviso, quindi capita che sarà aperto da altri utenti.

Il codice, eseguito su un click di un botton è il seguente:

Dim path_connessione As String = "\\PC_RETE\Cartella_Condivisa\DB_1.mdb"
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & path_connessione & "';Persist Security Info=True;Jet OLEDB:Database Password=pincopallino"

Dim query As String
query = "SELECT * FROM [user]"
Dim conn As New OleDb.OleDbConnection(connectionString)
Dim cmd As New OleDb.OleDbCommand(query, conn)
Dim reader As OleDb.OleDbDataReader

Try
conn.Open()
reader = cmd.ExecuteReader

'Prende tutto il database
While reader.Read
If UCase(user_txt.Text) = reader("username") And Me.password_txt.Text = reader("Password") Then
' Aggiungo l'utente alla sessione ed effettuo il redirect alla Home
Session.Add("User", user_txt.Text)
Response.Redirect("main.aspx", False)
Exit While
Else
' Username o Password errate
Me.Label_Errore.Visible = True
End If
End While
reader.Close()
reader = Nothing
Catch
' Errore
'MsgBox(Err.Description, MsgBoxStyle.Critical, "ERRORE")
Response.Write(Err.Description)
Finally
' Se la connessione è rimasta aperta, la chiudo
If Not conn Is Nothing Then
conn.Close()
End If
cmd = Nothing
conn = Nothing
End Try

Grazie in anticipo

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !