none
Preencher um text box com dados do sql RRS feed

  • Pergunta

  • EAe galera estou começando a programar em vb6 agora e to boiando bastante....é o seguinte eu preciso preencher um text box com uma informaçao no sql e nao estou conseguindo......se alguem ae puder criar um exemplo que faça algo parecido ja me ajudaria bastante , pq ainda nao entendo muito como criar a conexao com o sql etc....Desde ja agradeço...
    terça-feira, 21 de dezembro de 2010 18:48

Respostas

Todas as Respostas

  • Carinha, já que você está começando a programar agora, seria uma boa começar já com o VB.NET, nada contra o VB6, mesmo porque eu já programei com esta linguagem.

    Digo isso porque VB.NET é mais nova, mais recursos, com certeza o pessoal do forum poderá ajudar mais e você vai encontrar muitos códigos fontes de exemplo para te ajudar.

    Mas se mesmo assim quiser começar com vb6, abaixo segue um exemplo de conexão em VB6. Me desculpe se der algum erro no código abaixo, mas não tenho VB6 na máquina para poder testar.

     

    Dim conn As ADODB.Connection

      Dim rst As ADODB.Recordset

      Set conn = New ADODB.Connection

      With conn

        .Provider = "Microsoft.Jet.OLEDB.4.0"

        .Mode = adModeReadWrite   

        .ConnectionString = "data source=" & CaminhoBD    'caminho do seu banco de dados

        .Open

      End With

      Set rst = New ADODB.Recordset

      rst.Open "Clientes", conn, adOpenKeyset, adLockOptimistic

     

    rst.movefirst

    'vincula as caixas de texto aos campos da tabela 

    textbox1.text = rst!nome

    textbox2.text = rst!endereco

    terça-feira, 21 de dezembro de 2010 19:28
  • A valew mano ja deu uma ajuda só q ta acontecendo o seguinte....eu preciso selecionar um email que está no sql e inserir em um text box só que pra isso preciso relacionar o numero de um cliente pra pegar o email correto...se der pra vc me ajudar cara eu agradeço muito ...só ve se da pra postar um exemplo +/- assim que me viro aqui...Valew
    quarta-feira, 22 de dezembro de 2010 13:28
  • Você pode fazer assim:

    Private Sub Command1_Click()
    Dim conn As ADODB.Connection
      Dim rst As ADODB.Recordset
      Set conn = New ADODB.Connection
      With conn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Mode = adModeReadWrite  
        .ConnectionString = "data source=" & CaminhoBD    'caminho do seu banco de dados
        .Open
      End With
      Set rst = New ADODB.Recordset
      rst.Open "Select email from clientes where codigo = & txtcodigo.text", conn, adOpenKeyset, adLockOptimistic
    'vincula as caixas de texto aos campos da tabela
    txtemail.text = rst!email
    End Sub

     

    No link abaixo você verá outros exemplos relacionado ao que deseja.
    http://www.macoratti.net/ado_seek.htm


    Se a resposta for útil, favor macá-la como tal.

     

    Att.,

    Jeimes Ribeiro

    quarta-feira, 22 de dezembro de 2010 17:44
  • rcd1990!

    Algum progresso?

    O exemplo do Jeimes atende a tua necessidade.

    Att;


    Eder Costa - LATAM Forum Support Engineer
    Microsoft Corporation
    quarta-feira, 29 de dezembro de 2010 11:02
    Moderador
  • Eae Eder ,entao eu ainda nao pude testar corretamente pq estou de férias do trabalho mas segunda dia 3 volto lá e vou testar ...se nao conseguir eu dou um toke aki...valew e Boas Festas!
    quarta-feira, 29 de dezembro de 2010 14:06
  • Valew Jeimes consegui fazer funcionar aqui, Muito Obrigado!
    segunda-feira, 3 de janeiro de 2011 11:30