CONEXAO COM BD ACCESS 2000

USUARIO.EXCLUIDOS 26/05/2005 14:01:24
#85336
nao consigo de jeito nenhum fazer essa conexao.... o que pode estar errado???

Set cnBD1 = New Connection

cnBD1.Provider = "Microsoft.jet.oledb.4.0"
cnBD1.ConnectionString = "data source=C:\Meus documentos\db1teste1.mdb"
cnBD1.Open
WEBMASTER 26/05/2005 14:07:57
#85337 Resposta escolhida
Set cnBD1 = CreateObject("adodb.connection")

cnBD1.Provider = "Microsoft.jet.oledb.4.0"
cnBD1.ConnectionString = "data source=C:\base.mdb"
cnBD1.Open
FABIO.ALEXANDRE 26/05/2005 14:14:01
#85340
BOM , TENTA ASSIM

DIM VAR_CNNCONECTION AS NEW ADODB.CONNECTION

VAR_CNNCONECTION.CONNECTIONSTRTING="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DAT
A SOURCE= C:\Meus documentos\db1teste1.mdb"
VAR_CNNCONECTION.OPEN

[txt-color=#ff0000]C TIVER SENHA NA BASE[/txt-color]

VAR_CNNCONECTION.CONNECTIONSTRTING="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DAT
A SOURCE= C:\Meus documentos\db1teste1.mdb;JET OLEDB :DATABASE PASSWORD=SENHA;UID=ADMIN"
VAR_CNNCONECTION.OPEN

ESPERO TER AJUDADO
ALEXANDRE.SANTO 26/05/2005 14:29:30
#85344
Public Cnn As ADODB.Connection

Fonte = App.Path & "\Contatos.mdb"
Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source") = Fonte
.Properties("Jet OLEDB:Database Password") = "info"
.Open
End With
USUARIO.EXCLUIDOS 26/05/2005 14:31:37
#85345
tenta

Set cnBD1 = New Connection

cnBD1.Provider = "Microsoft.jet.oledb.4.1"
cnBD1.ConnectionString = "data source=C:\Meus documentos\db1teste1.mdb"
cnBD1.Open
WEBMASTER 26/05/2005 14:34:09
#85346
o pessoal está de brincadeira,

só pode ser
[S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S51][S45][S45][S45][S44][S44]
USUARIO.EXCLUIDOS 26/05/2005 16:34:44
#85355
valeu.... agora consigui....
FORMIGINHA 26/05/2005 16:54:15
#85357
encerre o topico.
Tópico encerrado , respostas não são mais permitidas
Voltar