I'm old and stupid, and looking for an error of where he was not found
:)
1. Mlcount() on Win gives the wrong number of lines, if there is a chr
(10) only as eof - like in file
C:\harbour\contrib\rddsql\tests\test1.prg
(i have function like hb_run, that use MlCount()).
2. My olds ( from Clipper times) programs from fear have eliminated
semicolon from texts such as:
"Provider= {Microsoft ODBC dla
Oracle};Server=WriteInTNSNAMESOra;Uid=UserName;Pwd=PassForUser;"
In Harbour allways was, is and will acces to Oracle databases ! :)
Habour is great (and speed :)!
Here is working example :
Local sel
HB_AdoSetEngine( 'ORACLE' )
HB_AdoSetServer( "myWriteIn:C:\orant\NET80\ADMIN\TNSNAMES.ORA" )
HB_AdoSetUser( "dbNameUser" )
HB_AdoSetPassword( "UserPassword" )
Cls
// my code can read strings without EOL
sel := "
select ASSIGNMENT_NUMBER, DATA_ROZW_UMOWY, DATA_AKTUALIZACJI,
LOCATION_CODE, ORGANIZATION_NAME,
EFFECTIVE_START_DATE, D_EFFECTIVE_END_DATE,
EFFECTIVE_END_DATE
from t0_wynik"
HB_AdoSetQuery( sel)
dbUseArea( .T., "ADORDD", "TEST_2",, Nil, .F. )
? Alias(), Select(), RddName(), Fcount(), hb_ValToExp( dbStruct())
HB_AdoSetQuery( "select assignment_number przydzial from t4" )
dbUseArea( .T., "ADORDD", "TEST_1",, Nil, .F. )
? Alias(), Select(), RddName(), Fcount(), hb_ValToExp( dbStruct())
While !Test_2->( Eof())
Test_2->( Qout( ASSIGNMENT_NUMBER, DATA_ROZW_UMOWY,
DATA_AKTUALIZACJI, LOCATION_CODE))
Test_2->( dbSkip( 1))
End
Test_1->( dbAppend())
Test_1->Przydzial := 'Marek'
Test_1->( Browse())
dbCloseAll()
Return
Regards,
Marek Horodyski
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
