Esobreiras
Membros-
Total de itens
2 -
Registro em
-
Última visita
Sobre Esobreiras
Esobreiras's Achievements
0
Reputação
-
Pessoal, estou tentando fazer um tela de pesquisa mas está com erro, alguém pode me ajudar ? Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) HandlesButton1.Click Dim conexao As New OleDb.OleDbConnection Dim ds As New DataSet Dim da As OleDb.OleDbDataAdapter Dim sqlstr As String conexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\essobreira\Desktop\funcionario.accdb" conexao.Open() sqlstr = "SELECT FUNCAO FROM FUNCIONARIO WHERE NOME = " & TextNome.Text da = New OleDb.OleDbDataAdapter(sqlstr, conexao) da.Fill(ds, "busca") 'APELIDO’ --> Erro acontece aqui .... If ds.Tables("busca").Rows.Count > 0 Then TextFuncao.Text = ds.Tables("busca").Rows(0).Item(1) --> este campo tem que trazer a informação, quando eu digitar o nome do Funcionário. Else MessageBox.Show("LOJA NÃO LOCALIZADA") End If conexao.Close() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) HandlesButton2.Click End End Sub End Class
-
Bom dia, estou tentando fazer um tela de consulta mas não está funcionando, alguém pode me ajudar ? Segue o codigo. ublic Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) HandlesButton1.Click Dim conexao As New OleDb.OleDbConnection Dim ds As New DataSet Dim da As OleDb.OleDbDataAdapter Dim sqlstr As String conexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\essobreira\Desktop\funcionario.accdb" conexao.Open() sqlstr = "SELECT FUNCAO FROM FUNCIONARIO WHERE NOME = " & TextNome.Text da = New OleDb.OleDbDataAdapter(sqlstr, conexao) da.Fill(ds, "busca") 'APELIDO’ ---> Erro acontece aqui, não sei porque .... If ds.Tables("busca").Rows.Count > 0 Then TextFuncao.Text = ds.Tables("busca").Rows(0).Item(1) Else MessageBox.Show("LOJA NÃO LOCALIZADA") End If conexao.Close() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) HandlesButton2.Click End End Sub End Class