EXIBIR DADOS EM TEXTBOX POR COMANDO SQL

INOUI13 30/04/2012 09:46:32
#401033
Estou com dificuldade para exibir os dados da tabela nos textbox, gostaria de exibir o registro no carregamento do form sem digitação, meu código do load está assim:

Private Sub frmProdutos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
abre_conexao()

sql = [Ô]Select * from Produtos where CodigoProd=1[Ô]

rs = db.Execute(sql)

If rs.EOF = False Then

txtCodigo.Text = rs.Fields(0).Value
txtTipo.Text = rs.Fields(1).Value
txtNome.Text = rs.Fields(2).Value
txtPreco.Text = rs.Fields(3).Value
txtQuantidade.Text = rs.Fields(4).Value
txtFornecedor.Text = rs.Fields(5).Value
End If
desabilitatexto()
End Sub

e o código que uso no módulo para abrir o banco é o seguinte :

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public sql As String

Sub abre_conexao()
CreateObject([Ô]ADODB.Connection[Ô])
db.Open([Ô]Provider=microsoft.jet.oledb.4.0;data source=C:\Users\Leonardo\Desktop\Kroassap\Kroassap\Cantina.mdb[Ô])
End Sub

o programa executa normal mas na hora que abro o form com os textbox os dados não aparecem..

Grato
ALTAIR148 30/04/2012 09:48:13
#401034
Citação:

desabilitatexto()



O que faz essa função?
INOUI13 30/04/2012 09:57:12
#401035
a função deixar os textbox como ReadOnly, ai quando aperto o botão editar tem a função habilitatexto()
ALTAIR148 30/04/2012 10:04:56
#401036
Abaixo um exemplo.


        Try
            Dim instrucaoSQL As String = [Ô]Select * from tb_cliente [Ô]
            Dim objCommand = New OleDbCommand(instrucaoSQL, Conexao.GetConexao1)
            Dim reader As OleDbDataReader
            reader = objCommand.ExecuteReader
            While reader.Read
                Nome.Text = reader([Ô]Cliente_NOme[Ô])
            End While

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
INOUI13 30/04/2012 10:11:42
#401038
Altair, no meu código eu tento exibir os dados tendo como referencia apenas meu código do produto que seria a chave primaria no banco de dados, tenho botões proximo e anterior no meu form, então quando clico neles o código vai pra 2 por exemplo e queria exibir os dados nos textbox do produto 2... e o banco que estou usando é o access...
ALTAIR148 30/04/2012 10:29:35
#401040
Entendi,

Procure algo a respeito do Databindings que eu acho que é o que você precisa.
INOUI13 30/04/2012 10:31:58
#401041
eu estava usando a lógica do databindings só que o código ficava muito extenso e por vezes dava erros, ai resolvi colocar com o comando sql, fica mais objetivo, mas não sei porque não está carregando os dados nos meus textbox porque acho que a lógica do código está correta.. kkkk
ALTAIR148 30/04/2012 10:34:37
#401042
Para navegar nos registros tem que ser o Databindings.
ALTAIR148 30/04/2012 10:36:29
#401044
Veja o Link abaixo, ele tem o que precisa

http://www.macoratti.net/10/06/vbn_nvg1.htm
Tópico encerrado , respostas não são mais permitidas
Voltar