Como abrir um DBF??


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Como abrir um DBF??

Fabio-RSC

NITEROI
RJ - BRASIL

ENUNCIADA !

Postada em 02/05/2005 21:58 hs

Alguém sabe como abrir um arquivo *.DBF utilizando o DAO?

Acredito que seja simples, mas fiz algumas tentativas e não consegui acertar.

Obrigado!

Jayme

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 03/05/2005 09:09 hs

CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:TESTE;Extended Properties=dBASE III;"
CNN.CursorLocation = adUseClient
RS.Open "SELECT * FROM Clientes", CNN, adOpenKeyset, adLockOptimistic

Jayme

kerplunk

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 03/05/2005 10:23 hs

Jayme, do jeito que vc passou, vai funcionar, está correto. Fábio, não há como abrir um arquivo DBF (do dBase) usando DAO. A solução do Jayme seria a mais cabível, abrir com ADO.

Roßerto

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 03/05/2005 10:43 hs

Fabio, o que o nosso colega Kerplunk disse está errado, tem como abrir um DBF

via DAO, segue abaixo um exemplo

Dim tbname As Recordset
Dim dbname As Database

Set dbname = DBEngine.Workspaces(0).OpenDatabase(App.Path, False, False, "dBase III;")
Set tbname = dbname.OpenRecordset("select * from produtos.dbf", dbOpenDynaset)

    While Not tbname.EOF
        If Not IsNull(tbname("Referencia")) Then
            a = a + 1
            Set NewItem = lsvFuro.ListItems.Add(, , tbname("referencia"))

            With NewItem
                .SubItems(1) = tbname!qtdeestq
                .SubItems(2) = tbname!disponiv
                .SubItems(3) = Trim(Str(a))
                .EnsureVisible
            End With

        End If
        tbname.MoveNext
    Wend

Roberto
roberto@vbweb.com.br

Cardoso
não registrado

Postada em 03/04/2010 18:26 hs

Tenho um arquivo .dbf não consigo abrir e editar. COnsegui um programa que transforma em .xls contudo tem muitas linhas e não abre o arquivo.

Alguem sabe como faço para abrir e trabalhar uma arquivo com muitas linhas e colunas em .dbf?

Preciso de um programa que faça isso para que eu possa editar o arquivo.

Agradeço

CArdoso

Bhyllo

PARAISÓPOLIS
MG - BRASIL

Postada em 07/04/2010 01:39 hs

Olá, bom dia!

Já lidei com DBF usando DAO e nunca tive dificuldades para abrir e editar os Campos do Arquivo como se fosse um MDB. Segue um código exemplo que testei novamente e tá funcionando correto aqui comigo!

Abra o DBF listando os Campos em TextBox.

Private Sub cmdBusca_Click()

Dim AreaTrabalho As Workspace

Dim BD As Database

Dim RS As Recordset

Set AreaTrabalho = DBEngine.Workspaces(0)

Set BD = AreaTrabalho.OpenDatabase("C:Teste", False, False, "Dbase III")

Set RS = BD.OpenRecordset("Select * From SOCIO.DBF Where CODIGO = '" & TxtBusca & "'", dbOpenDynaset)

If Not RS.EOF Then

TxtCodigo = RS.CODIGO

TxtNome = RS.SOCIO

TxtEndereço = RS.ENDEREÇO

End If

RS.Close

BD.Close

End Sub

Com os dados listados nas TextBox, faça as alterações e clique em Salvar!

Private Sub cmdSalvar_Click()

Dim AreaTrabalho As Workspace

Dim BD As Database

Dim RS As Recordset

Set AreaTrabalho = DBEngine.Workspaces(0)

Set BD = AreaTrabalho.OpenDatabase("C:Teste", False, False, "Dbase III")

Set RS = BD.OpenRecordset("Select * From SOCIO.DBF Where CODIGO = '" & TxtBusca & "'", dbOpenDynaset)

If Not RS.EOF Then

RS.Edit

RS.SOCIO = TxtNome

RS.ENDEREÇO = TxtEndereço

RS.Update

End If

RS.Close

BD.Close

End Sub

Espero que seja o que procura!

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR