Edson479
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/07/2009 14:49 hs
tenho esta dica de outro forum mais não de certo de um erro Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "Driver={Microsoft Visual FoxPro Driver};SourceDB=C:Caminho;SourceType=DBF"
rst.Open "controle", cnn
Text1.Text = rst!LOTE |
|
|
|
|
|
|
|
Postada em 16/07/2009 13:36 hs
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/07/2009 14:42 hs
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:folder;Extended Properties=dBASE IV;User ID=Admin;Password=; |
|
|
|
Edson479
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/07/2009 17:40 hs
vou testar, depois de falo ser deu certo, obrigando. |
|
|
|
Edson479
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/07/2009 19:02 hs
deu um erro. FORMATO DE BANCO DE DADOS 'ARQUIVO.DBF' NÃO RECONECIDO e o seguinte eu usava este codigo, quanto ela em DOS feito em clipp. mais agora ele e feito FroxPro. 'On Error Resume Next Dim dbconn As Connection
Set dbconn = openDBFconn("D:SGDpro") Dim JDBPES As Recordset
Dim JDBVEI As Recordset
Set JDBVEI = dbconn.Execute("select * from [JDBVEI#DBF] where FICHA='" & txtFic.Text & "'")
Set JDBPES = dbconn.Execute("select * from [JDBPES#DBF] where doc='" & JDBVEI.Fields("DOC_A") & "'")
If JDBVEI.EOF Then
frmError.F.Cls
frmError.F.Print "Ficha nº " & txtFic.Text
frmError.F.Print "Registro não encontrado!"
frmError.Show vbModal
Else
txtNom.Text = InicialMaiuscula(JDBPES.Fields("nome"))
txtMod.Text = JDBVEI.Fields("descmarc")
End If If JDBVEI.State = 1 Then JDBVEI.Close
If JDBPES.State = 1 Then JDBPES.Close
Set JDBVEI = Nothing
Set JDBPES = Nothing
|
|
|
|
Rogério Lira
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/07/2009 10:19 hs
Dim Conn
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "H:SISTEMA" & ";" & "Extended Properties=""DBASE III;"";"
Dim MT As New ADODB.Recordset
Set MT = Conn.Execute("SELECT ARQPRO.COD_PRO, ARQPRO.NOM_PRO from ARQPRO")
' atencao nome de tabela é case sensitive
' H:SISTEMA é o diretorio das tabelas
If MT.EOF And MT.BOF Then
MsgBox "NENHUM PRODUTO NA TABELA ARQPRO", vbCritical, "Falha na Abertura de Arquivo, Ou na Seleção de Tabelas !"
End If
' nao esqueça de fechar a conexão
SET MT = NOTHING
conn.close
|
|
|
|
