Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Ciao un grazie a marco grillo per il codice ma ho un problema mi serve usare un database remoto chi puo aiutarmi a capire come si usa la stringa di conessione ?
il codice è il seguente in locale
Codice sorgente - presumibilmente VB.NET
PublicClass Form1
PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button5.Click
If TextBox7.Text=""Then
MsgBox("Non hai inserito il nome utente", MsgBoxStyle.Critical, "NOME UTENTE NON INSERITO")
TextBox7.Select()
ElseIf TextBox6.Text=""Then
MsgBox("Non hai inserito la password", MsgBoxStyle.Critical, " PASSWORD NON INSERITA")
TextBox6.Select()
Else
Dim cn AsNew ADODB.Connection
Dim rs AsNew ADODB.Recordset
Dim strPercorsoDB AsString= My.Application.Info.DirectoryPath&"\archivio.mdb"
Dim strConnection AsString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="& strPercorsoDB &";Persist Security Info=False;"
cn.Open(strConnection)
rs.Open("SELECT * FROM prova", cn, 1)
Dim trovato AsInteger= 0
While rs.EOF=False
'controllo se record è = alle textbox
If rs("login").Value= TextBox7.TextAnd rs("password").Value= TextBox6.TextThen
Form2.Show()
'se vuoi eliminare il form d'accesso abilita "me.hide"
Me.Hide()
'se esiste almeno un record = alle textbox metto la variabile trovato = 1
trovato = 1
EndIf
rs.MoveNext()
EndWhile
rs.Close()
cn.Close()
'se precedentemente non ho trovato nessun record = alle textbox lancio un messaggio di errore inserimenti dati
If trovato = 0 Then
MsgBox("I dati inseriti non sono corretti. Si prega di ricontrollare e riprovare, grazie", MsgBoxStyle.Critical, "DATI INSERITI NON CORRETTI")
EndIf
EndIf
EndSub
EndClass
Ultima modifica effettuata da Il Totem il 18/09/2009 alle 19:00
Ciao totem ho provato a fare questo ma mi da connessione chiusa cosa vuol dire?
Public Class Form1
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If TextBox7.Text = "" Then
MsgBox("Non hai inserito il nome utente", MsgBoxStyle.Critical, "NOME UTENTE NON INSERITO")
TextBox7.Select()
ElseIf TextBox6.Text = "" Then
MsgBox("Non hai inserito la password", MsgBoxStyle.Critical, " PASSWORD NON INSERITA")
TextBox6.Select()
Else
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim trovato As Integer = 0
While rs.EOF = False
'controllo se record è = alle textbox
If rs("login").Value = TextBox7.Text And rs("password").Value = TextBox6.Text Then
Form2.Show()
'se vuoi eliminare il form d'accesso abilita "Me.hide"
Me.Hide()
'se esiste almeno un record = alle textbox metto la variabile trovato = 1
trovato = 1
End If
rs.MoveNext()
End While
rs.Close()
cn.Close()
'se precedentemente non ho trovato nessun record = alle textbox lancio un messaggio di errore inserimenti dati
If trovato = 0 Then
MsgBox("I dati inseriti non sono corretti. Si prega di ricontrollare e riprovare, grazie", MsgBoxStyle.Critical, "DATI INSERITI NON CORRETTI")
End If
End If
End Sub
End Class
Ultima modifica effettuata da maverik79 il 28/09/2009 alle 10:54
Bastava qualcosa tipo cn.Open. E no, non ti posso allegare un esempio. Ci sono esempi sul mio sito (vedi profilo), e ce ne sono migliaia sul web, basta cercare con google.