RETORNA VALOR
Nessa linha você esqueceu do .text
txtusuario = leitor.Item([Ô]Nome[Ô]).ToString
txtusuario = leitor.Item([Ô]Nome[Ô]).ToString
ainda continua a dar o seguinte erro
executereader: connection property has not been initialized
executereader: connection property has not been initialized
Na linha da sql você tb esqueceu do .text
sql = [Ô]SELECT * FROM TBUusuario WHERE Nome =[txt-color=#e80000] [ô][Ô] & usuariologado & [Ô][ô][Ô][/txt-color]
sql = [Ô]SELECT * FROM TBUusuario WHERE Nome = [ô][Ô] & usuariologado.text & [Ô][ô][Ô]
está aberta a conexão com o BD?
sql = [Ô]SELECT * FROM TBUusuario WHERE Nome =[txt-color=#e80000] [ô][Ô] & usuariologado & [Ô][ô][Ô][/txt-color]
sql = [Ô]SELECT * FROM TBUusuario WHERE Nome = [ô][Ô] & usuariologado.text & [Ô][ô][Ô]
está aberta a conexão com o BD?
como sei se meu banco esta aberto, penso eu que sim
Dá uma olhada nesse exemplo
meu banco é em sql, é a mesma coisa?
Se for Sql SERVER
Private conexao As SqlClient.SqlConnection
Private cmd As SqlClient.SqlCommand
Se for MySQL
Private Conexao As MySqlConnection
Private Cmd As MySqlCommand
Se For ACCESS
Private conexao As OleDb.OleDbConnection
Private cmd As OleDb.OleDbCommand
Private conexao As SqlClient.SqlConnection
Private cmd As SqlClient.SqlCommand
Se for MySQL
Private Conexao As MySqlConnection
Private Cmd As MySqlCommand
Se For ACCESS
Private conexao As OleDb.OleDbConnection
Private cmd As OleDb.OleDbCommand
continua com o mesmo erro
coloquei o seguinte:
abaixo do meu Public Class Form2
Private conexao As OleDb.OleDbConnection
Private cmd As OleDb.OleDbCommand
Private sql As String
depois no meu botao pesquisar coloquei:
[ô]aqui abro a conexão novamente
conexao = New OleDb.OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Loja.mdb[Ô])
conexao.Open()
[ô]executo o comando
sql = [Ô]SELECT * FROM CLIENTES WHERE Nome=[ô][Ô] & txtNome.Text & [Ô][ô][Ô]
cmd = New OleDb.OleDbCommand(sql, conexao)
Dim leitor As OleDb.OleDbDataReader = cmd.ExecuteReader
If leitor.Read = True Then
txtEndereco.Text = leitor.Item([Ô]Endereco[Ô]).ToString
txtPais.Text = leitor.Item([Ô]Pais[Ô]).ToString
txtTelefone.Text = leitor.Item([Ô]Telefone[Ô]).ToString
End If
leitor.Close()
[ô]fecho a conexao
conexao.Close()
abaixo do meu Public Class Form2
Private conexao As OleDb.OleDbConnection
Private cmd As OleDb.OleDbCommand
Private sql As String
depois no meu botao pesquisar coloquei:
[ô]aqui abro a conexão novamente
conexao = New OleDb.OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Loja.mdb[Ô])
conexao.Open()
[ô]executo o comando
sql = [Ô]SELECT * FROM CLIENTES WHERE Nome=[ô][Ô] & txtNome.Text & [Ô][ô][Ô]
cmd = New OleDb.OleDbCommand(sql, conexao)
Dim leitor As OleDb.OleDbDataReader = cmd.ExecuteReader
If leitor.Read = True Then
txtEndereco.Text = leitor.Item([Ô]Endereco[Ô]).ToString
txtPais.Text = leitor.Item([Ô]Pais[Ô]).ToString
txtTelefone.Text = leitor.Item([Ô]Telefone[Ô]).ToString
End If
leitor.Close()
[ô]fecho a conexao
conexao.Close()
muitissimo obrigado já consegui.
Tópico encerrado , respostas não são mais permitidas