VB USUARIO SENHA E BANCO ACCESS
Pessoal sou novo e tenho me esforçado, mas as dúvidas aparecem. O que falta para funcionar ?
Dim connS As String
connS = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VBA-VBTEXTE.mdb;[Ô]
Dim conect As New OleDb.OleDbConnection
conect.ConnectionString = connS
conect.Open()
Dim selcom As New OleDb.OleDbCommand
selcom.CommandText = [Ô]SELECT cidade FROM [Tabela1] WHERE cliente = [ô][Ô] & UsernameTextBox.Text & [Ô][ô];[Ô]
selcom.Connection = conect
Dim dr As OleDb.OleDbDataReader
dr = selcom.ExecuteReader()
While dr.Read()
UsernameTextBox.Text = dr.Item(0)
End While
conect.Close()
If PasswordTextBox.Text = dr.Item(0) Then
Me.Close()
Form2.Show()
Else
MsgBox([Ô]Dados incorretos.[Ô])
UsernameTextBox.Text = [Ô][Ô]
PasswordTextBox.Text = [Ô][Ô]
UsernameTextBox.Focus()
End If
Agradeço;
Dim connS As String
connS = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VBA-VBTEXTE.mdb;[Ô]
Dim conect As New OleDb.OleDbConnection
conect.ConnectionString = connS
conect.Open()
Dim selcom As New OleDb.OleDbCommand
selcom.CommandText = [Ô]SELECT cidade FROM [Tabela1] WHERE cliente = [ô][Ô] & UsernameTextBox.Text & [Ô][ô];[Ô]
selcom.Connection = conect
Dim dr As OleDb.OleDbDataReader
dr = selcom.ExecuteReader()
While dr.Read()
UsernameTextBox.Text = dr.Item(0)
End While
conect.Close()
If PasswordTextBox.Text = dr.Item(0) Then
Me.Close()
Form2.Show()
Else
MsgBox([Ô]Dados incorretos.[Ô])
UsernameTextBox.Text = [Ô][Ô]
PasswordTextBox.Text = [Ô][Ô]
UsernameTextBox.Focus()
End If
Agradeço;
Citação:Pessoal sou novo e tenho me esforçado, mas as dúvidas aparecem. O que falta para funcionar ?
Bom, teria que se esforçar mais um poquinho pra dizer o que está acontecendo errado, se ocorre erro e talz...
Ok Jovem . Vai lá: O problema não aparece em tempo de projeto, apenas na execução : na linha [Ô]If PasswordTextBox.Text = dr.Item(0) Then[Ô] abre uma caixa de nome [Ô]InvalidOperationException was unhandled[Ô] . Dentro desta caixa indica : [Ô]No data exists for the row/column[Ô]. Abaixo aparece uma caixa chamada [Ô]Troubleshooting tips:[Ô] que traz os seguintes dizeres : [Ô]Get general help for this exception.[Ô]
Certifiquei-me no banco de dados, e existe o nome que indiquei no usernametextbox.
Agradeço;
Certifiquei-me no banco de dados, e existe o nome que indiquei no usernametextbox.
Agradeço;
http://vbmania.com.br/pages/download.php?varKey=f66e08ba180e718cc641d90482696130&varTipo=1
esse exemplo sera que ajuda
esse exemplo sera que ajuda
Foi de ajuda sim . Agradeço ALEDA
Tópico encerrado , respostas não são mais permitidas