Conexão Dbase

[lcs_sp]

E aí pessoal, beleza...

Estou tentando fazer uma consulta no banco de dados DBase (*codigo abaixo), mas esta retornando o seguinte erro:

"A tabela externa não esta no formato esperado."

*Codigo:

Private Sub Command1_Click()
    Set rs = CreateObject("ADODB.Recordset")
    Set oConn = CreateObject("ADODB.Connection")
    oConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=C:\banco"
    sql = "select * from estado"
    rs.Open sql, oConn
End Sub

Obrigado...

[PiGmEu]

cara.. nunca usei DBF com vb..

mas vou ver se descubro algo..

[]´s

[William Rodrigues]

cara.. nunca usei DBF com vb..

mas vou ver se descubro algo..

[]´s

Eu também nunca usei...

Mas se eu achar algo...

Posto aqui beleza

Abraços,

William Rodrigues

[Graymalkin]

Já usei dBASE com DAO. Se não me engano, seria algo assim:

    Dim db As Database
    Dim rs As Recordset

    Set db = OpenDatabase("c:\pasta", , , "dBASE III;")
    Set rs = db.OpenRecordset("SELECT * FROM tabela")

Mas não tenho absoluta certeza se isso está certo.

Abraços,

Graymalkin

[lcs_sp]

Pessoal consegui...vou postar a resposta caso alguém mais precise....valeu

Dim sql As String
Set cnn = CreateObject("adodb.connection")
cnn.Open "DRIVER={Microsoft Visual Foxpro Driver}; SourceDB=D:\; SourceType=DBF;DBQ=D:\;Exclusive=yes"
Set rs = CreateObject("adodb.recordset")
sql = "select telefone from [D:\tabela.dbf] where p1='" & UCase(nome(1)) & "' and p2='" & UCase(nome(0)) & "'"
rs.Open sql, cnn
cnn.Execute sql

Valeu pessoal....

[William Rodrigues]

Pessoal consegui

Que bom que você conseguiu brother

vou postar a resposta caso alguém mais precise....valeu

Valeu por ter colocado o código aí pro pessoal brother

Abraços,

William Rodrigues