Preenchimento de textbox com consulta sql

[will_jdc 1]

Boa Tarde Pessoal,

 

Tenho um formulário com um textbox de pesquisa e quero que quando o usuário digitar o código do produto seja inserido o Código, Nome, preço , quantidade em outros 4 textbox.

Quem puder me ajudar eu agraço.

[KhaosDoctor 242]

Poste o código que você tem até agora.

[will_jdc 1]

Boa Tarde,

 

KhaosDoctor na verdade estou sem nenhuma noção de como começar a fazer esse código.

Se puder me ajudar eu agradeço.

[KhaosDoctor 242]

Bom, para isso você precisa de um datareader ou uma datatable:

 

Quando o usuário apertar enter na textbox ficaria:

 

Por DataTable:

 

 

 Private Sub TextBox1_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Dim con As New System.Data.SqlClient.SqlConnection("ConnectionString do banco")
            Dim com As New System.Data.SqlClient.SqlCommand(String.Format("SELECT * FROM <tabelaproduto> WHERE <colunaid> = {0}", TextBox1.Text), con)
            Dim da As New System.Data.SqlClient.SqlDataAdapter(com)
            Dim dt As New DataTable


            con.Open()
            da.Fill(dt)
            TextBox2.Text = dt.Rows(0)("ColunaNome").ToString
            TextBox3.Text = dt.Rows(0)("outracoluna").ToString
            con.Close()
        Else
            Exit Sub
        End If
    End Sub

Por DataReader:

 

 

  Private Sub TextBox1_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Dim con As New System.Data.SqlClient.SqlConnection("ConnectionString do banco")
            Dim com As New System.Data.SqlClient.SqlCommand(String.Format("SELECT * FROM <tabelaproduto> WHERE <colunaid> = {0}", TextBox1.Text), con)
            Dim dr As System.Data.SqlClient.SqlDataReader


            con.Open()
            dr = com.ExecuteReader
            If dr.HasRows Then
                dr.Read()
                TextBox2.Text = dr("coluna1").ToString
                TextBox3.Text = dr("coluna2").ToString
                dr.Close()
            End If
            con.Close()
        Else
            Exit Sub
        End If
    End Sub

[will_jdc 1]

Boa Noite a todos,

 

KhaosDoctor Meu querido, muito obrigado pela ajuda, era exatamente isso mesmo que eu estava procurando

 

Até a proxima.

[Fabrício Wickert 0]

Olá amigos, precisava de uma ajuda por favor..
tentei usar o código acima. mais da o seguinte erro:

---------------------------

O formato da cadeia de inicialização não está de acordo com a especificação iniciada no índice 0.

---------------------------

Eu não estou conseguindo definir a corretamente o ConnectionString do banco eu acho.
alguém poderia me dar uma força por favor.

obrigado

[KhaosDoctor 242]

Fabrício crie um tópico para a segunda dúvida por favor.

 

Quanto a primeira, qual é sua query?