conexão BDF

[Fabiana Silva]

oi Pessoal

Estou com um problema um tanto quanto estranho.

tenho uma conexao para dbf para uma determinada pasta.

nesta pasta tenho dois arquivos. tento fazer a leitura de dois. no entanto consigo apenas acessar apenas um deles, o erro vocês podem verificar

aqui

segue o codigo para analise. foi baseado num artigo de conexao dbf do Macoratti

<!--#include virtual="/script/global/global.asp"-->
<%

Function AbrirDBFCon(Caminho) 'funciona teste site macoratti 
  Dim Conn
  Set Conn = CreateObject("ADODB.Connection")
  Conn.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Caminho & ";" & "Extended Properties=""DBASE IV;"";" 
  Set AbrirDBFCon = Conn
End Function


Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft dBASE Driver (*.dbf)}; DriverID=21; DBQ=" & local&"\"


local = "D:\WWW\script\correcao\arquivos\dbf"



Set DBConn = AbrirDBFCon(local)

set conn = server.createobject("adodb.connection") '- abre a conexão com a DLL de acesso aos dados 
conn.open "pesquisa" '- abre a conexão com o banco de dados vinculado com a ligação ODBC denominada PESQUISA 


escreve("conexao odbc")
escreve("--------")
set rsquery = Conn.execute("select * from CLIENTES") 

Do While Not rsquery.EOF
       escreve(rsquery("nome") )
       rsquery.MoveNext
Loop
escreve("--------")

escreve("Conexao direta")
Set fso=Server.createobject("Scripting.FileSystemObject")
Set pasta=fso.GetFolder(local)    
Set arquivos=pasta.Files
for each arquivo in arquivos
    escreve( "<BR>Nome do arquivo " &replace(arquivo.name,".","#"))
    escreve("--------")
    Set Clientes = DBConn.Execute("Select * from [" & replace(arquivo.name,".","#") & "]")    
    Clientes.MoveFirst
    
    'exibe o nome , endereco e cidade
    Do While Not Clientes.EOF
       escreve(Clientes("nome") )
       Clientes.MoveNext
    Loop

    
next


escreve(local)
%>

[Ted k']

qua é a linha 43 no seu código?

[Fabiana Silva]

A linha 43 :

set Clientes = DBConn.Execute("Select * from [" & replace(arquivo.name,".","#") & "]")

é a tentativa de abrir o arquivo PAEEFF_1542_001.DBF

a linha 43 funciona para o arquivo Clientes normalmente, tanto que consigo mostrar o conteudo, porem, quando o tento abrir o proximo arquivo já não consigo mais.

tks

Editado Maio 29, 2008 por Fabiana Silva