FAZER CONSULTA

PEGUDO 02/05/2011 10:57:47
#372962
Citação:

neste ponto tenho que fazer os dados do BD registrados mostrar nos textbox que escolhi. explico
no txtd.text tem que ter a 2 coluna do BD



Cara, uma solução é você criar no módulo uma collection, por exemplo, inserir os dados nela e depois jogar estes dados nos textboxes.

Exemplo:

NO MÓDULO:
public ObjClasses As New Classes
Public Dados_Retornados As New Collection


NA CLASSE:
Public Class Classes
    Public ReadOnly Property Buscar_Dados(ByVal QualNome As String) As Collection
        Get
            Dim C As New ADODB.Connection, RecSet As RecordSet

            Buscar_Dados = New Buscar_Dados
            
            Conectar() [ô]TROQUE Conectar() PELA SUA STRING DE CONEXÃO COM BD
 
            RecSet = C.Execute([Ô]SELECT sobrenome, endereço FROM tblClientes WHERE nome = [ô] [Ô] & QualNome & [Ô] [ô] [Ô])

            Buscar_Dados.Add(RecSet([Ô]sobrenome[Ô]).Value.ToString
            Buscar_Dados.Add(RecSet([Ô]endereço[Ô]).Value.ToString

            Try
                RecSet.Close()
            Catch
                RecSet = Nothing
            Finally
                C.Close
            End Try
            
            Return Buscar_Dados()
        End Get
    End Property
End Class


NO FORMAULÁRIO
...
    If TestarSenha = True Then
        Dados_Retornados = ObjClasses.Buscar_Dados(txtNome.Text)
        
        txtSobrenome.Text = Dados_Retornados(0) [ô]Se der erro, troque o Zero por 1
        txtEndereço.Text = Dados_Retornados(1) [ô]Se der erro, troque 1 por 2, e assim por diante...
    End if
...


Estou sem o VB no momento, qualquer coisa poste aí
AUTOMATION 03/05/2011 19:23:39
#373139
Pessoal, necessito de ajuda.

Tentei todos os códigos acima e não consegui fazer o retorno do banco. Explico...

Tenho um COMBOBOX e quando seleciono um valor nele, ele busca no banco e verifica se é verdadeiro, se for teria que me retorna o valor da columa 2 do banco. [Ô]o valor [Ô]d[Ô][Ô]
mas não estou conseguindo fazer isso.

uso o VB 2010 professinal. com sql express 2008.

o codigo que estou usando segue abaixo, se tiver algo errado podem postar como corrigir ou indiar um código novo, não sei muito sobre BD mas estou estudando.

........................................

[txt-color=#e80000]Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim conn As New SqlConnection
Dim comando As New SqlCommand
Dim cTipoPerfil As String


conn.ConnectionString = My.Settings.bancoProjcalcConnectionString
cTipoPerfil = Me.TipoPerfilComboBox.Text

Try
conn.Open()
comando.Connection = conn
comando.CommandText = [Ô]SELECT d FROM Bitolas Where d = cTipoPerfil[Ô]

conn.Close()

txtd.text = ??????????

Catch ex As SqlException
MessageBox.Show([Ô]Erro ao efetuar a conexão com a base de dados : [Ô] + ex.Message)

conn.Dispose()
End Try
End Sub[/txt-color]


att
Alessandro
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar