29 Nov 2013 10:46
Acho uma boa voce usar comandos SQL para acesso a DBFs para que vá aprendendo a manipular esta forma de obtenção de dados.
29 Nov 2013 12:17
Isto quer dizer que se pode usar o ADO para cessar DBF's ?
Outro detalhe amigo, todos os links que apontam para o FiveWin (5Evolution) estão quebrados.
29 Nov 2013 13:06
29 Nov 2013 13:31
31 Mar 2014 19:13
ADO CLOSE
Error ADODB.Recordset/6 DISP_E_UNKNOWNNAME: END
Arguments: ()
oRecordSet[nRecordSet]:End()
ADO CLOSE ALL
31 Mar 2014 22:48
26 Dez 2014 18:41
Descrição do erro .............: [ODBC Firebird Driver][Firebird]unsuccessful metadata update object ESTOQUE is in use (0x80004005)
Nome do arquivo ...............: Microsoft OLE DB Provider for ODBC Drivers
Objeto do Erro ................: EXECUTE
Área - Select() ...............: 1
TraceLog do Erro:
TOLEAUTO:EXECUTE.Linha: 0 Módulo:
ADOEXECUTE.......Linha: 551 Módulo: FireFio.prg
MAIN.............Linha: 46 Módulo: FireFio.prg
oADOConection[nConnect]:Execute( cSql )
ADO EXECUTE "DROP TABLE Estoque"
Tamanho Variável Tipo Valor
--------------------------------------------
18 Bytes -> cSQL Tipo C => DROP TABLE Estoque
26 Dez 2014 23:56
27 Dez 2014 08:25
**
#include "adoXb.ch"
#include "AdoXb.prg"
*
#Include 'Inkey.ch'
#Include 'i_keybd.ch'
#include "MiniGUI.ch"
#include "ado.ch"
#include "set.ch"
#include "common.ch"
#include "directry.ch"
#include "fileio.ch"
#include "hbcompat.ch"
#include "hbwin.ch"
*
*STATIC oWnd, oClients, oClient, oName
*STATIC cName
*STATIC oSplit
*
REQUEST HB_GT_WIN_DEFAULT && Janela DOS - Temporário para testes.
*
*==================================================================================================
FUNCTION Main()
*
LOCAL oError := ErrorBlock( { | oError | MyErrorFunc( oError ) } )
*
PUBLIC oMenu, user_nivel := 5
PUBLIC StrDatabas := "C:\Teste\Exemplo.gdb"
PUBLIC StrConnect := "DRIVER=Firebird/InterBase(r) driver; UID=sysdba; PWD=masterkey; DBNAME="+StrDatabas
*
// Necessária para criar objetos e variaveis visiveis o tempo todo
ADOSetRDD( "FIREBIRD" ) // ADOGDB
ADORDDDefault( "FIREBIRD" ) // ADOGDB
cADORDD := "FIREBIRD"
*
ADO CONNECT StrConnect
*
ADO USE Estoque
*
ADO SELECT Estoque
ADO GOBOTTOM
*
ADO EXECUTE "DROP TABLE Estoque"
*
SELE 1
c_Estoque := 'D:\Dev\Clipper\Datafio\Estoque'
USE ( c_Estoque )
*
Clear
*
WHILE Estoque->( ! EOF() )
*
@ 08,00 say Estoque->( Recno() )
*
IF Estoque->FG = "1"
*
c_Referen := Estoque->CODIGO
c_Descric := Estoque->DESCRICAO
n_Quantid := Estoque->QUANT
*
@ 10,10 say n_Reg
@ 11,10 say c_Referen
@ 12,10 say c_Descric
*
nRegistros := ADORecCount()
n_Reg := nRegistros + 01
c_Registro := StrZero( n_Reg, 10 )
c_Codigo := StrZero( n_Reg, 05 )
*
ADO APPEND BLANK
ADO REPLACE REGISTRO WITH c_Registro && 10
ADO REPLACE CODIGO WITH c_Codigo && 5
ADO REPLACE REFERENCIA WITH c_Referen && 14
ADO REPLACE DESCRICAO WITH c_Descric && 45
ADO REPLACE QTD_ATUAL WITH n_Quantid && Double
ADO COMMIT
*
ENDIF
*
Estoque->( DBSkip() )
*
ENDDO
*
* c_Str := 'Select REGISTRO, REFERENCIA, QTD_ATUAL from ESTOQUE'
* ADO EXECUTE ( c_Str )
*
* ADO CLOSE ALL
* ADO CLOSE
*
RETURN( nil )
27 Dez 2014 15:31
29 Dez 2014 09:35
#include "adoXb.ch" ------->>> esta linha já existe no ado.ch. Ela pode ser retirada daqui ?
29 Dez 2014 14:59
30 Dez 2014 16:16
#include "adoxb.ch"
function CUSTOMER(cTitle)
// Necessária para criar objetos e variaveis visiveis o tempo todo
ADOSetRDD( "ACCESS" )
if ADORDDDefault() = "FIREBIRD" // ADOGDB
StrDatabase := ".\adogdb.gdb"
StrConnection := "DRIVER=Firebird/InterBase(r) driver; UID=sysdba; PWD=masterkey; DBNAME="+StrDatabase
endif
MsgRun( "Conectando via "+ADORDDDefault()+"..." )
ADO CONNECT StrConnection
// Cria tabelas se nao existirem
if ADOFile( "clientes" )
else
MsgRun( "Criando tabela CLIENTES..." )
ADO EXECUTE "DROP TABLE clientes"
ADO EXECUTE "CREATE TABLE clientes (nome char(45), email char(45), unique(nome))"
endif
// Abre as tabelas
ADO USE clientes
// Verifica se ja possuem dados
ADO SELECT clientes
nRegistros := ADORecCount()
if nRegistros = 0
ADO APPEND BLANK
ADO REPLACE nome WITH "JOSE CARLOS DA ROCHA"
ADO REPLACE email WITH "IROCHINHA@ITELEFONICA.COM.BR"
ADO COMMIT
endif
ADO CLOSE ALL
return nil
...
// ADO DELETE SuaSentenca
ADO DELETE from tabela
...
...
// ADO DELETE SuaSentenca
ADO DELETE * from tabela
...
07 Jan 2015 18:20
StrConnect := "DRIVER=Firebird/InterBase(r) driver; UID=sysdba; PWD=masterkey; DBNAME=C:\Teste\Small.gdb"
ADO CONNECT StrConnect
ADO USE CliFor
? "ADOAreas:=>", Str( ADOAreas(), 04 ), "= ADOAlias:=>", ADOAlias()
*
oRecordSet := TOLEAUTO():New("ADODB.RecordSet")
c_SeleStr := "select NOME, ENDERE, CIDADE, ESTADO from CliFor"
WITH Object oRecordSet
*
:cursorType := adOpenDynamic // // adOpenForwardOnly // adOpenForward // adOpenStatic //
:activeConnection := oADOConection[nConnection]
:cursorLocation := adUseClient
:maxRecords := 100000
:cacheSize := 100
:source := c_SeleStr
*
:open()
*
IF ! :Eof()
*
? NOME, ENDERE, CIDADE, ESTADO && <<<======= LINHA DO ERRO.
*
:MoveNext()
*
ENDIF
*
END WITH
c_SeleStr := "select NOME c_Nome, ENDERE c_Ender, COMPLE c_Bairro, CGC c_CgcCpf, CIDADE c_Cidade, ESTADO c_Est, CEP c_Cep, FONE c_Fones, where c_Nome like '*Maria*' order by c_Nome"
07 Jan 2015 18:43
Hasse escreveu:? NOME, ENDERE, CIDADE, ESTADO && <<<======= LINHA DO ERRO.