Ir para conteúdo
Fórum Script Brasil
  • 0

Como Abrir Banco De Dados Access No Visual Basic


Guest --Luciane --

Pergunta

Guest --Luciane --

Como faço para abrir Banco de Dados Access2003 no Visual Basic 6.0

Estou fazendo da seguinte forma:

Global db As Database

Global rdcli As Recordset

Private Sub Form_Load()

Set db = OpenDatabase(App.Path + "\dbintegracao.mdb", False, False)

Set rdcli = db.OpenRecordset("tab_cli", dbOpenDynaset)

End Sub

Porque não está dando certo?

Grata,

Luciane

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

Ola Luciane,

Não sei se é a melhor maneira para fazer isso, mas para mim funcionou:

    Dim objAccess As Object
Dim endRelatorio , nomeBD ,nomeRelatorio, NomeTabela as String

endRelatorio = "c:\MinhaPasta\"
nomeBD = "Relatorio.mdb"
nomeRelatorio = "MeuRelatorio"
NomeTabela = "MinhaTabela"


Set objAccess = CreateObject("Access.Application")

With objAccess
.Visible = True
.OpenCurrentDatabase filepath:= endRelatorio & nomeBD
.DoCmd.OpenReport nomeRelatorio, acViewPreview, , NomeTabela
End With


.DoCmd.Maximize ' Para Maximizar o Access
.DoCmd.Maximize ' Para Maximizar o relatorio[/codebox]

Mas o DoCmd.Maximize não funcionou exatamente com eu gostaria :)

Espero ter ajudado.

Abraços,

Dory.

Link para o comentário
Compartilhar em outros sites

  • 0

Bom,

A outra forma que consegui fazer funcionar foi:

   Dim strArquivo As String
Dim strLocal As String
Dim ConectaAccess As String

Set conexao = New ADODB.Connection
Set db = New ADODB.Recordset
Set conexao = CreateObject("ADODB.Connection")

strArquivo = "Arquivo.mdb"
strLocal = "c:\MinhaPasta\"

ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};" & "Dbq=" & strArquivo & ";" & "DefaultDir=" & strLocal & ";"""

conexao.Open ConectaAccess[/codebox]

Dory.

Link para o comentário
Compartilhar em outros sites

  • 0

Use ADO (faça referência ao Microsoft ActiveX Data Objects 2.x):

Global cn As ADODB.Connection
Global rdcli As ADODB.Recordset

Private Sub Form_Load()

    set cn = new ADODB.Connection
    set rdcli = new ADODB.Recordset

    cn.CursorLocation = adUseClient
    rdcli.CursorLocation = adUseClient

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="App.Path + "\dbintegracao.mdb"
    rdcli.Open "SELECT * FROM tab_cli", cn, adOpenDynamic, adLockBatchOptimistic
End Sub

Certo? ;)

Graymalkin

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...