PREENCHER VALORES DO RECORDSET NO TEXTBOX-VB2008

AKANAGUSKU 28/03/2010 18:32:43
#338076
Boa noite a todos,

Estou tentando desenvolver um programa para trabalho da escola em visual basic 2008. Não sei ao certo se por ser a versão 2008, estou desenvolvendo em .net mas eu aprendi como se fosse vb para windows form.
Preciso colocar os valores que tenho no banco de dados no text box.
Por enquanto estou usando o seguinte código:

Private Sub frmCadastroCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cnncomando As New ADODB.Command
        cnncomando.ActiveConnection = cnnKei
        cnncomando.CommandType = ADODB.CommandTypeEnum.adCmdText
        cnncomando.CommandText = [Ô]select * from cliente[Ô]
        rsselecao = cnncomando.Execute
        If rsselecao.EOF = False Then
            lblCodigo.Text = rsselecao!cod
            txtNome.Text = rsselecao!nome
        End If
    End Sub


Mas acontece que aparece o seguinte erro na parte que esta em negrito: Error 1 Expression does not produce a value.
Error 2 Overload resolution failed because no accessible [ô]Fields[ô] accepts this number of arguments.

Alguem pode me dizer o porque desse erro, ou pelo menos como fazer funcionar...
A versão 6 do visual basic funcionava normalmente, mas com a versão 2008 parou de funcionar.

Desde já agradeço.
AKANAGUSKU 29/03/2010 14:48:32
#338128
Não apareceu a parte em negrito...mas é :
txtNome.Text = rsselecao!nome
lblCodigo.Text = rsselecao!cod
ACG1574 05/04/2010 16:20:25
#338604
vc nao definiu o rsselecao ?

dim rsselecao as adodb.recordset
TBANDREATA 13/05/2012 10:00:15
#401919
Ola AKANAGUSKU, como vai?
Voce conseguiu resolver o problema?
Estou com o mesmo problema porém como pratica de programação eu estou colocando os comandos dentro do with... será que é isso?
OMAR2011 14/05/2012 08:15:27
#401941
Tente assim:

Private Sub frmCadastroCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cnncomando As New ADODB.Command
cnncomando.ActiveConnection = cnnKei
cnncomando.CommandType = ADODB.CommandTypeEnum.adCmdText
cnncomando.CommandText = [Ô]select * from cliente[Ô]
rsselecao = cnncomando.Execute
If rsselecao.EOF = False Then
lblCodigo.Text = rsSelecao.Fields([Ô]Cod[Ô]).Value
txtNome.Text = rsSelecao.Fields([Ô]Nome[Ô]).Value
End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar