O COMANDO DE TEXTO NAO FOI DEFINIDO PARA O OBJETO
Boa tarde Pessoal,
Estou com um problema aqui que não consigo enxergar a solução. Realizei diversas pesquisas mais todas sem sucesso.
Quando executo meu projeto apresenta o seguinte erro:
Run-time Error [ô]-2147217908 (80040e0c)
O Comando de texto não foi definido para o objeto de comando
O código que apresenta o erro é o sequinte
Private Sub MostrarBanco()
Dim CN As New ADODB.Connection
Dim rsSelecaoBanco As New ADODB.Recordset
Dim cnnComandoBanco As New ADODB.Command
CN.Provider = [Ô]SQLOLEDB[Ô] [ô] Provedor de acesso ao SQL Server
CN.Properties([Ô]Data Source[Ô]).Value = [Ô]ROGERIO-PC\SQLEXPRESS2008[Ô] [ô]Nome da Maquina\Instancia onde está instalado o BD
CN.Properties([Ô]Initial Catalog[Ô]).Value = [Ô]SYSCONTROL[Ô] [ô]Nome do BD
CN.Properties([Ô]User ID[Ô]).Value = [Ô]SYSCONTROL[Ô] [ô]Usuário para conexão no BD no SQL SERVER 2008
CN.Properties([Ô]Password[Ô]).Value = [Ô]tecsis[Ô] [ô]Senha para conexão no BD no SQL SERVER 2008
CN.Open [ô] Abrindo a conexão
Set rsSelecaoBanco = New ADODB.Recordset
Set rsSelecaoBanco.ActiveConnection = CN
txtcodigo.Text = rsSelecaoBanco!CODIGO
txtcodbanco.Text = rsSelecaoBanco!CODIGOFEBRABAN
txtabrbanco.Text = rsSelecaoBanco!ABREVIATURA
txtnomebanco.Text = rsSelecaoBanco!Nome
End Sub
No qual o debug para em cima da linha txtcodigo.Text = rsSelecaoBanco!CODIGO
Alguem poderia me auxiliar, por gentileza?
Abraço
Rogério Couto
Estou com um problema aqui que não consigo enxergar a solução. Realizei diversas pesquisas mais todas sem sucesso.
Quando executo meu projeto apresenta o seguinte erro:
Run-time Error [ô]-2147217908 (80040e0c)
O Comando de texto não foi definido para o objeto de comando
O código que apresenta o erro é o sequinte
Private Sub MostrarBanco()
Dim CN As New ADODB.Connection
Dim rsSelecaoBanco As New ADODB.Recordset
Dim cnnComandoBanco As New ADODB.Command
CN.Provider = [Ô]SQLOLEDB[Ô] [ô] Provedor de acesso ao SQL Server
CN.Properties([Ô]Data Source[Ô]).Value = [Ô]ROGERIO-PC\SQLEXPRESS2008[Ô] [ô]Nome da Maquina\Instancia onde está instalado o BD
CN.Properties([Ô]Initial Catalog[Ô]).Value = [Ô]SYSCONTROL[Ô] [ô]Nome do BD
CN.Properties([Ô]User ID[Ô]).Value = [Ô]SYSCONTROL[Ô] [ô]Usuário para conexão no BD no SQL SERVER 2008
CN.Properties([Ô]Password[Ô]).Value = [Ô]tecsis[Ô] [ô]Senha para conexão no BD no SQL SERVER 2008
CN.Open [ô] Abrindo a conexão
Set rsSelecaoBanco = New ADODB.Recordset
Set rsSelecaoBanco.ActiveConnection = CN
txtcodigo.Text = rsSelecaoBanco!CODIGO
txtcodbanco.Text = rsSelecaoBanco!CODIGOFEBRABAN
txtabrbanco.Text = rsSelecaoBanco!ABREVIATURA
txtnomebanco.Text = rsSelecaoBanco!Nome
End Sub
No qual o debug para em cima da linha txtcodigo.Text = rsSelecaoBanco!CODIGO
Alguem poderia me auxiliar, por gentileza?
Abraço
Rogério Couto
rsSelecaoBanco não tem nenhum comando sql...
E pode ter certeza que ele vai quebrar a cabeça sendo que é mais
simples do que imagina.
Coloca o cabeção para funcionar.
simples do que imagina.
Coloca o cabeção para funcionar.
Conforme os nossos amigos disse, não existe instrução SQL para o RecordSet!
Aos que me ajudaram agradeço a ajuda, deu certinho aqui.
Agora, Omar, se não está disposto a ajudar peço que não esnobe.
Se todos soubessem programar 100% não precisava existir fórum e assim não teria espaço para palhaços como você ficar fazendo piadas de mal gosto.
Agora, Omar, se não está disposto a ajudar peço que não esnobe.
Se todos soubessem programar 100% não precisava existir fórum e assim não teria espaço para palhaços como você ficar fazendo piadas de mal gosto.
Cem comentários??????
Vai dar o que falar, pode ter certeza.
Vai dar o que falar, pode ter certeza.
Pessoal vamos nos conscientizar por favor!
Caro amigo ROGERCSANTOS, se a sua duvida foi solucionada feche o tópico!
Obrigado
Caro amigo ROGERCSANTOS, se a sua duvida foi solucionada feche o tópico!
Obrigado
Tópico encerrado , respostas não são mais permitidas