Início
RicketyKnave2 27/9/2023, 16:59Olá,
Estou tentando criar uma conexão direta por meio vba, mas está apresentando a crítica abaixo:
Estou tentando criar uma conexão direta por meio vba, mas está apresentando a crítica abaixo:
2 participantes
Criar conexão por VBA do access para o SQL SERVER
RicketyKnave2- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 23
Registrado : 25/03/2016
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Coloque estas duas variaveis assim, para ver se você ao digitar quando pedir, dá erro na mesma;
E acrescente o adLockReadOnly na abertura do recordset;
E no fecho do recordset, só pode fechar se tiver aberto, senão vai dar erro também;
- Código:
User_ID = ""
Password = ""
E acrescente o adLockReadOnly na abertura do recordset;
- Código:
rs.Open SQLStr, Cn, adOpenStatic, adLockReadOnly
E no fecho do recordset, só pode fechar se tiver aberto, senão vai dar erro também;
- Código:
If Not rs Is Nothing Then
rs.Close: Set rs = Nothing
Cn.Close: Set Cn = Nothing
End If
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...