Bom dia pessoal, venho aqui com um problema que deve ser simples pra quem conhece, mas no meu caso que sou apenas iniciante tá difícil. Já pesquisei na net e nao consigo encontrar um erro parecido com o meu.
eu uso vb e Access.
Eu tenho um projeto com inúmeros formulários. Para preencher um Combobox uso o seguinte:
Private Sub COMBOPROD()
Dim con As New OleDbConnection
con.ConnectionString = My.Settings.NC15
con.Open()
Dim comando As New OleDbCommand()
comando.CommandText = "SELECT * FROM PRODUTOS ORDER BY CODPROD ASC"
comando.CommandType = CommandType.Text
comando.Connection = con
Dim leitor As OleDbDataReader
leitor = comando.ExecuteReader()
CMBPROD.Items.Clear()
Do While leitor.Read
CMBPROD.Items.Add(leitor("CODPROD"))
Loop
con.Close()
CMBPROD.SelectedIndex = 0
End Sub
para carregar as informações do produto, uso o seguinte:
Private Sub INFORPROD()
Dim con As New OleDbConnection
con.ConnectionString = My.Settings.NC15
con.Open()
Dim comando As New OleDbCommand()
comando.CommandText = "SELECT * FROM PRODUTOS WHERE CODPROD = '" & CMBPROD.Text & " ' "
comando.CommandType = CommandType.Text
comando.Connection = con
Dim leitor As OleDbDataReader
leitor = comando.ExecuteReader()
leitor.Read()
TXTFORNEC.Text = leitor("FORNECEDOR").ToString
TXTNOME.Text = leitor("NOME").ToString
TXTDESCRI.Text = leitor("DESCRICAO").ToString
TXTPRECOVEND.Text = leitor("PRECOVENDA").ToString
CODCLI = leitor("CÓDIGO")
con.Close()
End Sub
No primeiro formulário, de CADASTRO DE CLIENTE, funciona perfeitamente.
No segundo formulário : CADASTRO DE PRODUTOS, que é este que coloquei o código acima, nao funciona.
o PRIMEIRO funciona perfeitamente, o código é o mesmo.Dá o seguinte erro:
Excepción no controlada del tipo 'System.Data.OleDb.OleDbException' en System.Data.dll
Información adicional: Data type mismatch in criteria expression.
alguém pode me abrir caminhos? Obrigado pela atenção.
