26 messaggi dal 10 marzo 2010
Ciao ragazzi. Sto utilizzando le librerie Adodb nella mia applicazione asp.net.
Ecco quello che ho fatto:
1. Ho copiato il file dal mio computer nella cartella Bin del sito (il file è adodb.dll)

2. ho eseguito questo codice:
---------------------------------------------------------------------------------
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim acc As New AccessDataSource
acc.DataFile = Server.MapPath("~/mdb-database/Archivio.mdb")
cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("~/mdb-database/Archivio.mdb"))
rs.Open("SELECT * FROM ", cn, 1)


For i = 1 To rs.RecordCount
If rs("Username").Value = txtUsername.Text And rs("Password").Value = txtPassword.Text Then
username = True
password = True
Exit For
End If
rs.MoveNext()
Next
If username = True And password = True Then
Response.Redirect("~/Home.aspx")

---------------------------------------------------------------------------------
Quando eseguo questo codice in local va tutto bene. appena carico tutto sul server non mi dà nessun messaggio di errore, ma quando vado ad inserire i dati non succede nulla. Aiutatemi please
fabrylinux ha scritto:
Ciao ragazzi. Sto utilizzando le librerie Adodb nella mia applicazione asp.net.
Ecco quello che ho fatto:
1. Ho copiato il file dal mio computer nella cartella Bin del sito (il file è adodb.dll)

2. ho eseguito questo codice:
---------------------------------------------------------------------------------
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim acc As New AccessDataSource
acc.DataFile = Server.MapPath("~/mdb-database/Archivio.mdb")
cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("~/mdb-database/Archivio.mdb"))
rs.Open("SELECT * FROM ", cn, 1)


For i = 1 To rs.RecordCount
If rs("Username").Value = txtUsername.Text And rs("Password").Value = txtPassword.Text Then
username = True
password = True
Exit For
End If
rs.MoveNext()
Next
If username = True And password = True Then
Response.Redirect("~/Home.aspx")

---------------------------------------------------------------------------------
Quando eseguo questo codice in local va tutto bene. appena carico tutto sul server non mi dà nessun messaggio di errore, ma quando vado ad inserire i dati non succede nulla. Aiutatemi please


posta il codice dell'errore.. e magari correggi il titolo :)
Modificato da lorenzo_ il 11 marzo 2010 17.11 -
26 messaggi dal 10 marzo 2010
è proprio questo il problema: non ricevo nessun messaggio di errore. in locale va tutto bene quando eseguo il codice su internet, sul server di aruba non va avanti.
fabrylinux ha scritto:
è proprio questo il problema: non ricevo nessun messaggio di errore. in locale va tutto bene quando eseguo il codice su internet, sul server di aruba non va avanti.


ops scusa.. nn avevo capito su aruba... beh allora dovresti vedere con loro l'hosting che offrono.. è windows? che framework supporta? hai il servizio ms access ?
26 messaggi dal 10 marzo 2010
il servizio ms access è supportato. avresti qualche alternativa?
26 messaggi dal 10 marzo 2010
ho trovato la soluzione:
---------------------------------------------------------------------
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
' Apro la connessione
Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("~/mdb-database/Archivio.mdb")

Dim acc As New AccessDataSource

acc.DataFile = Server.MapPath("~/mdb-database/Archivio.mdb")
' Creo un oggetto connection, command e datareader del namespace OleDB
cn = New OleDbConnection(str)
cn.Open()
' Lancio una query nell'oggetto commando di OleDB
cmd = New OleDbCommand("SELECT * FROM miatabella", cn)
' Eseguo la query in un datareader
dr = cmd.ExecuteReader()
' Mostro i dati a video

While (dr.Read())
If txtPassword.Text = dr("Password") And txtUsername.Text = dr("Username") Then
username = True
password = True
Exit While
End If
End While
Response.Redirect("~/Home.aspx")

----------------------------------------------------------
grazie!
fabrylinux ha scritto:
ho trovato la soluzione:
---------------------------------------------------------------------
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
' Apro la connessione
Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("~/mdb-database/Archivio.mdb")

Dim acc As New AccessDataSource

acc.DataFile = Server.MapPath("~/mdb-database/Archivio.mdb")
' Creo un oggetto connection, command e datareader del namespace OleDB
cn = New OleDbConnection(str)
cn.Open()
' Lancio una query nell'oggetto commando di OleDB
cmd = New OleDbCommand("SELECT * FROM miatabella", cn)
' Eseguo la query in un datareader
dr = cmd.ExecuteReader()
' Mostro i dati a video

While (dr.Read())
If txtPassword.Text = dr("Password") And txtUsername.Text = dr("Username") Then
username = True
password = True
Exit While
End If
End While
Response.Redirect("~/Home.aspx")

----------------------------------------------------------
grazie!

meglio cosi

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.
In primo piano

I più letti di oggi

Media
In evidenza
MISC