USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Erro de conexão no ADO
ED - Claret
não registrado
Postada em 04/04/2006 16:47 hs   
Olá amigos, estou fazendo isso...
Dim Conexão As ADODB.Connection
Dim Tabela As ADODB.Recordset
Dim LOCALDOBANCO As String
LOCALDOBANCO = App.Path & "BD.mdb"
Conexão.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LOCALDOBANCO & ";Persist Security Info=False"
Tabela("Fator") = "Text"
Tabela.Update

 

Só que da erro na linha da conexão - Variavel de bloco não definida - erro 91

Onde estou errando???

Obrigado por qualquer ajuda

 


     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 04/04/2006 18:09 hs            
Esse erro é pq vc abriu a conexao mas nao executou uma query nela, para obter um recordset...
 
faltou instruções do tipo:
Conexão.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LOCALDOBANCO & ";Persist Security Info=False"
Set Tabela = new ADODB.Recordset
Tabela.Open "SELECT * FROM Tabela", Conexao, adOpenKeyset, adLockOptimistic
Tabela("Fator") = "Text"
Tabela.Update


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

     
ED - Claret
não registrado
Postada em 05/04/2006 07:23 hs   
O mesmo erro continua nessa linha
Conexão.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LOCALDOBANCO & ";Persist Security Info=False"
Só que da erro na linha da conexão - Variavel de bloco não definida - erro 91
Já fiz referencia a biblioteca DAO 3.51 e até no ADO 2.8 e nada
     
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 05/04/2006 07:27 hs            
set conexao = new adodb.connection
'outra coisa a variavel conexao nao pode ter acentos, til...
Set conexao = new ADODB.connection
Conexão.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LOCALDOBANCO & ";Persist Security Info=False"
Set Tabela = new ADODB.Recordset
Tabela.Open "SELECT * FROM Tabela", Conexao, adOpenKeyset, adLockOptimistic
Tabela("Fator") = "Text"
Tabela.Update
     
ED - Claret
não registrado
Postada em 05/04/2006 07:54 hs   
Valei amigão, muito obrigado
Agora o problema é o seguinte...
preciso pegar o banco num servidor, fiz assim...
Dim LOCALDOBANCO As String
LOCALDOBANCO = "http://11.111.1.11/SistemaCorporativos/BD.mdb"
Conexão.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LOCALDOBANCO & ";Persist Security Info=False"

...DÁ ERRO DE NOME DE ARQUIVO INVÁLIDO

 


     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 05/04/2006 10:11 hs            
vc nao pode referenciar pelo IP
precisa compartilhar a pasta no servidor, mapear ela no cliente, e referenciar pelo mapeamento...
se o servidor estiver na web, ai nao coloca o HTTP... referencia pelo HostName


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página