Na prática penso o contrário:Itamar M. Lins Jr. escreveu:Ainda penso que vc não entenderam o poder do SQLMIX.
Usando SQLMIX, o acesso é nativo, não precisa ADO, ODBC... Isso é opcional.
Não vi perguntas sobre SQLMIX.Se estão fazendo errado, é porque ninguém de HWGUI ajuda.
Concordo e discordo.Itamar M. Lins Jr. escreveu:ADO = ARRAY do WINDOWS (OS) para manipular usamos comandos ADO, rs:MOVEFIRTS etc... SQLMIX ARRAY do HARBOUR! (DBF) DBSKIP,GOTOP() etc...
E se for só esse o problema:Itamar M. Lins Jr. escreveu:ADO = ARRAY do WINDOWS (OS) para manipular usamos comandos ADO, rs:MOVEFIRTS etc... SQLMIX ARRAY do HARBOUR! (DBF) DBSKIP,GOTOP() etc...
Código: Selecionar todos
CREATE CLASS ADOClass
VAR Rs
METHOD GoTop() INLINE Rs:MoveFirst()
METHOD GoBottom() INLINE Rs:MoveLast()
METHOD Skip( n ) INLINE Rs:Move( iif( n == NIL, 1, n ) )
METHOD FieldGet( x ) INLINE Rs:Fields( x ):Value
METHOD LastRec() INLINE Rs:RecordCount()
ENDCLASS
Código: Selecionar todos
x := ADOClass():new()
x:Rs := cn:Execute( "SELECT * FROM CLIENTES" )
DO WHILE ! x:Eof()
? x:FieldGet( "CODIGO" )
? x:FieldGet( "NOME" )
x:Skip()
ENDDO
Quem disse que é da forma que vc está pensando e escrevendo erradamente ?put. que par... vai gostar de DBF assim lá longe... porque ficar diferente de tudo que é linguagem de programação?
Código: Selecionar todos
#require "hbpgsql"
PROCEDURE Main( cHost, cDatabase, cUser, cPass )
LOCAL cQuery, oQuery, oRow, i, x
LOCAL oServer := TPQServer():New( cHost, hb_defaultValue( cDatabase, "postgres" ), cUser, cPass )
IF oServer:NetErr()
? oServer:ErrorMsg()
RETURN
ENDIF
oServer:SetVerbosity( 2 )
oServer:traceon( "simple.log" )
? "Tables..."
FOR EACH i IN oServer:ListTables()
? i
NEXT
IF oServer:TableExists( "test" )
? oQuery := oServer:Execute( "DROP TABLE test" )
oQuery:Destroy()
ENDIF
? "Creating test table..."
cQuery := ;
"CREATE TABLE test(" + ;
" Code integer not null primary key," + ;
" dept Integer," + ;
" Name Varchar(40)," + ;
" Sales boolean," + ;
" Tax Float4," + ;
" Salary Double Precision," + ;
" Budget Numeric(12,2)," + ;
" Discount Numeric(5,2)," + ;
" Creation Date," + ;
" Description text )"
oQuery := oServer:Query( cQuery )
IF oQuery:NetErr()
? oQuery:ErrorMsg()
ENDIF
oQuery:Destroy()
? "Structure of test table"
FOR EACH i IN oServer:TableStruct( "test" )
?
FOR EACH x IN i
?? x, ""
NEXT
NEXT
? "Inserting, declared transaction control"
oServer:StartTransaction()
FOR i := 1 TO 10
cQuery := "INSERT INTO test(code, dept, name, sales, tax, salary, budget, Discount, Creation, Description) " + ;
"VALUES( " + hb_ntos( i ) + ", 2, 'TEST', 'y', 5, 3000, 1500.2, 7.5, '2003-12-17', 'Short Description about what ?')"
oQuery := oServer:Query( cQuery )
IF oQuery:NetErr()
? oQuery:errorMsg()
ENDIF
oQuery:destroy()
NEXT
oServer:Commit()
oQuery := oServer:Query( "SELECT code, name, description, sales FROM test" )
FOR EACH i IN oQuery:Struct()
? i[ 1 ], i[ 2 ], i[ 3 ], i[ 4 ]
NEXT
? "Fields:", oQuery:FCount()
oRow := oQuery:Blank()
? ;
oRow:FCount(), ;
oRow:FieldPos( "sales" ), ;
oRow:FieldGet( 1 ), ;
oRow:FieldName( 2 ), ;
oRow:FieldType( 1 ), ;
oRow:FieldDec( 1 ), ;
oRow:FieldLen( 1 )
oRow:FieldPut( 1, 150 )
oRow:FieldPut( 2, "MY TEST" )
? oRow:FieldGet( 1 ), oRow:FieldGet( 2 )
? oRow:aRow[ 1 ], oRow:aRow[ 2 ], oRow:aOld[ 1 ], oRow:aOld[ 2 ]
? oQuery:Append( oRow )
? oQuery:ErrorMsg()
DO WHILE ! oQuery:Eof()
? ;
oQuery:RecNo(), ;
oQuery:FieldPos( "code" ), ;
oQuery:FieldGet( oQuery:FieldPos( "code" ) ), ;
oQuery:FieldGet( 4 ), ;
oQuery:FieldGet( 2 ), ;
oQuery:FieldName( 1 ), ;
oQuery:FieldType( 1 ), ;
oQuery:FieldDec( 1 ), ;
oQuery:FieldLen( 1 ), ;
oQuery:FieldGet( 3 )
IF oQuery:RecNo() == 50
oRow := oQuery:getrow()
oRow:FieldPut( 2, "My Second test" )
? "Update:", oQuery:Update( oRow )
ENDIF
IF oQuery:RecNo() == 60
oRow := oQuery:getrow()
? "Delete:", oQuery:Delete( oRow )
ENDIF
oQuery:Skip()
ENDDO
oQuery:Refresh()
FOR i := 1 TO oQuery:LastRec()
oRow := oQuery:getrow( i )
? i, ;
oRow:FieldGet( oRow:FieldPos( "code" ) ), ;
oRow:FieldGet( 4 ), ;
oRow:FieldGet( 2 ), ;
oRow:FieldName( 1 ), ;
oRow:FieldType( 1 ), ;
oRow:FieldDec( 1 ), ;
oRow:FieldLen( 1 ), ;
oRow:FieldGet( i, 3 )
NEXT
oQuery:Destroy()
oServer:Destroy()
? "Closing..."
RETURN
Lógico, é para os usuários comprarem o RDDSQL() (EMULADOR de DBF dentro do SGBD) Ai sim eu concordo quando diz, que não consegue se livrar do DBF.Muitos usando XHARBOUR e xHarbour NÃO TEM SQLMIX.
O que chama de restrição de campos?cjp escreveu:Fui tentar fazer uma restrição de campos para exibir, mas não funcionou.
com atenção especial para WebServiceConexión con múltiples bases de datos: Nativo SQLITE y MYSQL, ADO y como Web Service
Se HwGUI fizer isso, fica perfeito, pq no final das contas, independente da lib gráfica que vai fazer a "casca", o que realmente importa é manipular os dados, e se focar no WebService, ter um software consumindo corretamente uma instância de um banco de dados na nuvem, fechou !!!!La ventaja de Xailer frente al resto de entornos de desarrollo es su sencillez, por ser básicamente una herramienta de desarrollo de software de gestión basada inicialmente en el estándar Xbase, aunque actualmente está más centrada en bases de datos SQL pero siempre intentando en lo posible incluir la simplicidad del uso Xbase en el acceso a las nuevas BBDD.
SQLMIX tem todas as opções do DBF disponível.O ADO tem a opção FILTER() onde se passa uma expressão no formato ADO, parecida com SQL mas nem sempre igual.
Exemplo: oRs:Filter( "NOME LIKE 'JOS%' " )
Código: Selecionar todos
index ... for temporary... "CDX/NTX"
...
WHILE OrdWildSeek( '*' + cStrPes + '*', .T.)
OrdKeyAdd('_TEMP_')
END
...
sb->(OrdScope(0,cNF+cModel))
sb->(OrdScope(1,cNF+cModel))
Só se tiver lá na cabeça dele, pq nunca vi ele mencionar nada.Se HwGUI fizer isso, fica perfeito, pq no final das contas, independente da lib gráfica que vai fazer a "casca", o que realmente importa é manipular os dados, e se focar no WebService, ter um software consumindo corretamente uma instância de um banco de dados na nuvem, fechou !!!!
Isso que escreveu não tem lógica.Mas.... no SQLMIX quem trabalha é o Harbour, no ADO quem trabalha é o Windows.
Quem é mais rápido? o Harbour ou o Windows?
Quem aproveita melhor os recursos do Windows? o Harbour ou a Microsoft?
Código: Selecionar todos
A tecnologia ADO - ActiveX Data Objects - causou uma grande mudança no tratamento e acesso a fontes de dados pois trouxe muitas inovações que pretendiam otimizar e melhorar o desempenho. Muita coisa no entanto ficou somente no marketing. Com o crescimento da Web e de suas tecnologias criou-se uma grande demanda por aplicações distribuídas e escaláveis ; ficou evidente que a ADO tinha muitos problemas e que alguma coisa precisava ser feita.
Eis que surge então a tecnologia .NET e com ela , o que nos interessa no momento , uma nova maneira de acesso aos dados : ADO.NET. A primeira coisa que você deve fixar é que ADO.NET não é uma atualização da ADO. A tecnologia ADO se baseia no modelo COM - Component Object Model - e a ADO.NET tem seus pilares no XML e no acesso desconectado.Sendo assim eu diria que dbf também está ultrapassado até antes do ado, assim como os hbnetio, letodbf e similares, então é melhor abandonar o harbour né?Itamar M. Lins Jr. escreveu:Não esqueça de que ADO é uma tecnologia ultrapassada!
Vai distorcer assim lá longe...Sendo assim eu diria que dbf também está ultrapassado até antes do ado, assim como os hbnetio, letodbf e similares, então é melhor abandonar o harbour né?
Mais precisamente desde o Windows 7 Service Pack 1, a Microsoft declarou que o ADO era ultrapassado.Itamar M. Lins Jr. escreveu:Não esqueça de que ADO é uma tecnologia ultrapassada!
Faça pra você mesmo a pergunta.Itamar M. Lins Jr. escreveu:Rapaz, sei não... para quê tanta polêmica...