ABRIR BD EM TEXTBOX
Boa Tarde Pessoal,
Tenho um Cadastro é sempre que abro a Base de Dados traz(como sempre) os dados do primeiro registro.
todos os campos de textbox eu abri por Array.
Criei um Text inicial chamado de TxtField e através deste são criados os outros.
então quando é feita a conexão os campos são preenchidos assim:
Depois de aberta a conexão e nomeado o Recordeset o dados são preenchidos assim:
Dim oText As TextBox
For Each oText In Me.TxtFields
Set oText.DataSource = adoRecordset
Next
Minha pergunta é a seguinte:
Como faço para que os dados sejam colocados diretamente em cada Text
Exemplo:
Text1.Text = Nome
Text2.Text = Endereço
Porque eu preciso fazer assim, pois as vezes preciso abrir a base de dados só para alguns campos especÃficos e não tenho conseguido, sei que é fácil , mas não tenho conseguido.
Obrigado.
Tenho um Cadastro é sempre que abro a Base de Dados traz(como sempre) os dados do primeiro registro.
todos os campos de textbox eu abri por Array.
Criei um Text inicial chamado de TxtField e através deste são criados os outros.
então quando é feita a conexão os campos são preenchidos assim:
Depois de aberta a conexão e nomeado o Recordeset o dados são preenchidos assim:
Dim oText As TextBox
For Each oText In Me.TxtFields
Set oText.DataSource = adoRecordset
Next
Minha pergunta é a seguinte:
Como faço para que os dados sejam colocados diretamente em cada Text
Exemplo:
Text1.Text = Nome
Text2.Text = Endereço
Porque eu preciso fazer assim, pois as vezes preciso abrir a base de dados só para alguns campos especÃficos e não tenho conseguido, sei que é fácil , mas não tenho conseguido.
Obrigado.
Vc pode fazer assim...
Text1.Text = Nome_do_Recordset!Nome
Text2.Text = Nome_do_Recordset!Endereço
Tópico encerrado , respostas não são mais permitidas