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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  RecordSource
Mateus
AMADORA
PT - PORTUGAL
ENUNCIADA !
Postada em 28/01/2005 13:17 hs            
Quem disse que o VB só funciona com Office 97?
 
É que isso não é verdade!
 
Se utiliza o objecto DataControl para se conectar à base de Dados precisa actualizar o VB com SP6.
Se usar DAO (código) basta o SP5(marque nas referências do seu projecto o DAO 3.6
Se usar ADO(também basta o SP5), utilize o Jet4.
 
Por outro lado, deverá sempre ter o MDAC devidamente actualizado. A versão mais recente (para access) é o 2.6. Se lhe falarem no 2.7, para o JET (o motor do access) não tem qualquer utilidade.
 
Eis um exemplo de conexão ADO para o officeXP:
 

Public Function ConexaoDados() As Connection

 

base = PstrCamDados & "mvdoctab.mdb"

Set dbDados = New ADODB.Connection

With dbDados

    .Provider = "Microsoft.Jet.OLEDB.4.0"

    .Properties("Data Source") = base

    .Properties("Jet OLEDB:Database Password") = "password"

    .Open

End With

 

End Function

 
 
 
 
 
 

João Mateus

Se precisar de ajuda extra, visite:

http://joaomateus.planetaclix.pt

   
Mateus
AMADORA
PT - PORTUGAL
Postada em 28/01/2005 13:21 hs            
Quem disse que o VB só funciona com o access 97?
 
É que mentiu!
 
Se quizer exemplos dele a trabalhar com o 2000(também serve para o XP) veja a minha página.

João Mateus

Se precisar de ajuda extra, visite:

http://joaomateus.planetaclix.pt

     
GAMBET
TRÊS PONTAS
MG - BRASIL
Postada em 28/01/2005 13:52 hs            
Funciona sim mas vc tem de instalar o sp6 que tem no site da microsoft, e seu conecção tem de ser assim:
'no modulo
Global Soft As ADODB.Connection
Sub main()
base = App.Path & "anco de dados.mdb"
Set Soft = New ADODB.Connection
With Soft
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = base
    .Properties("Jet OLEDB:Database Password") = "Senha"      'se tiver
    .Open
End With
End Sub
     
Página(s): 2/2     « ANTERIOR  


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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