LISTBOX ACCESS

MHDSERAFS23 08/12/2010 10:02:37
#359058
Bom dia!
Gostaria desaber como faço para carregar os dados de registro nos textbox através do listbox
exemplo
no listbox eu carrego os id dos registros.
gostaria de que ao selecionar um registro fosse mostrado nos textbox os dados referente a este registro
grato
MATT1 08/12/2010 11:45:04
#359070 Resposta escolhida 

Dim sql As String = [Ô]select * from suatabela where id = [ô][Ô] & List1.Text & [Ô][ô][Ô]
Dim cmd As New SQLiteCommand(sql, suaconexão)

cmd.CommandType = CommandType.Text

Dim dr As SQLite.SQLiteDataReader = cmd.ExecuteReader()

While (dr.Read())
                Text1.Text = dr.GetString(0) [ô]aqui vc muda o indice, 0,1,2,3 referentes as colunas da sua tabela
                Text2.Text = dr.GetString(1)
                etc...
End While


Nesse exemplo eu estou usando SQLite, vc tem que mudar os comandos referentes ao access.
Ah dependendo do tipo setado no banco, getstring, getdate e etc...
MHDSERAFS23 08/12/2010 16:12:16
#359119
Citação:

:
Bom dia!
Gostaria desaber como faço para carregar os dados de registro nos textbox através do listbox
exemplo
no listbox eu carrego os id dos registros.
gostaria de que ao selecionar um registro fosse mostrado nos textbox os dados referente a este registro
grato




muito obrigado consegui resolver uma das partes!!1
TECLA 09/12/2010 11:21:18
#359180
[txt-size=2]O que falta pra chegar ao objetivo do tópico?[/txt-size]
PEGUDO 09/12/2010 12:45:27
#359186
Dim C as ADODB.Connection
Dim RecSet as ADODB.RecordSet

with C
.Provider = [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
.ConnectionString = CaminhoDoBancoDeDados
.Open()
End With

RecSet = C.Execute([Ô]select dados_do_registro from sua_tabela where ip=[Ô] & ListBox1.Text)

TextBox1.Text = RecSet([Ô]dados_do_registro[Ô]).Value.ToString

RecSet = Nothing
C.Close
Tópico encerrado , respostas não são mais permitidas
Voltar