Search found 166 matches

by Franklin Demont
Fri Aug 17, 2018 3:28 pm
Forum: FiveWin for Harbour/xHarbour
Topic: tTimePick
Replies: 0
Views: 589

tTimePick

Hello , Trying to use tTimePick with oTime:nStyle := NOR( oTime:nStyle, DTS_SHOWNONE ) tTime := nil @ 30 , 50 TMPicker oTime VAR tTime OF oDlg PIXEL SIZE 60,12;           VALID (MsgInfo(tTime) , .T.) oTime:nStyle := NOR( oTime:nStyle, DTS_TIMEFORMAT) oTime:nStyle := NOR( oTime:nStyle, DTS_SHOWNONE )...
by Franklin Demont
Thu Aug 16, 2018 9:16 am
Forum: FiveWin for Harbour/xHarbour
Topic: ADO FILTER , BOOLEAN EXPRESSION
Replies: 1
Views: 587

ADO FILTER , BOOLEAN EXPRESSION

Hello , Testing ADO oRs:Field := cExpression I found some difficulties : oRS.FILTER := "FIRST='Jon' OR (Married=0 AND LAST LIKE 'D*')"// Accepted oRS.FILTER := FIRST='Jon' OR Married=0 AND LAST LIKE 'D*'" // NOT ACCEPTED oRS.FILTER := "(FIRST='Jon' OR Married=0) AND LAST LIKE 'D*...
by Franklin Demont
Sat Mar 24, 2018 10:58 am
Forum: FiveWin for Harbour/xHarbour
Topic: Autoincrement field for DBFCDX
Replies: 9
Views: 1504

Autoincrement field for DBFCDX

Hello , I made some test with autoincrement field : DBCREATE(cDbfFile , {{"ID","+",10,0}} , "DBFCDX" , .T. ) DBG DbStruct() // gives ID , + , 4 , 0 ? FieldLen("ID") // 4 WHY TRUNCATED TO 4 ????????????????????????? FOR i := 1 TO 10001 DBAPPEND() NEXT ? Recno()...
by Franklin Demont
Wed Jan 31, 2018 9:51 am
Forum: FiveWin for Harbour/xHarbour
Topic: DBG Adofield
Replies: 0
Views: 1468

DBG Adofield

Hello , FWH 1402 DBG ors:Field(..) Gives an error in cValtoStr . in :    if Left( cVal, 1 ) == "*" .and. Len( cVal ) > 2 .and. ValType( uVal ) == 'N'   cVal seems to be a object Solved with adding    ------    IF VALTYPE(uVal)=="O"       cVal := cStr(uVal)      END    ------    i...
by Franklin Demont
Sun Jan 21, 2018 7:42 am
Forum: FiveWin for Harbour/xHarbour
Topic: Ado : Field Definition
Replies: 1
Views: 718

Ado : Field Definition

Hello , I try to use the defined datatypes from adodef.ch , i can only test in ADO , *.mdb or *.accdb The goal is that the syntax is also accepted in MySql , MsSql , Oracle and Sqlite (see Adofuncs.prg) Some defines are accepted in the syntax as : [Fld2] TynyInt where TynyInt comes from adoDef.ch : ...
by Franklin Demont
Fri Jan 12, 2018 10:23 am
Forum: FiveWin for Harbour/xHarbour
Topic: Using dbftype + , T , =
Replies: 3
Views: 622

Re: Using dbftype + , T , =

Hello ,

It is ok , i was confused using VALTYPE(Fieldget(1)) , giving 'N'

Frank
by Franklin Demont
Thu Jan 11, 2018 10:06 am
Forum: FiveWin for Harbour/xHarbour
Topic: Using dbftype + , T , =
Replies: 3
Views: 622

Using dbftype + , T , =

Hello , After creating a dbf-file as : aStruct := {{"Fld1","+",2,0},{"Fld2","=",10,2},{"Fld3","T",8,0},{"Fld4","@",10,0},{"Fld5","D",10,0}} DbCreate("TestFld.dbf",aStruct,,.T.) APPEND BLANK ...
by Franklin Demont
Tue May 30, 2017 8:52 am
Forum: FiveWin for Harbour/xHarbour
Topic: Reading property ADODB.Connection
Replies: 1
Views: 404

Re: Reading property ADODB.Connection

Sorry , found the solution in thr source from xbrowse :

oCon:Properties("Data source Name"):Value
by Franklin Demont
Tue May 30, 2017 8:42 am
Forum: FiveWin for Harbour/xHarbour
Topic: Reading property ADODB.Connection
Replies: 1
Views: 404

Reading property ADODB.Connection

Hello ,

Using DBG oCon i can see the property's from this object i.e. :

7 Data Source Name DATA\TEST.MDB

I can't read this data with oCon:Data Source Name

How we can import the object properties in a array ?

Frank Demont
by Franklin Demont
Mon Mar 13, 2017 4:25 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Connecting to MySql
Replies: 4
Views: 1059

Re: Connecting to MySql

Sorry , as expected the same result. The FW routine builds exact the same connection string and after creating the ADODB.connection it executes : oCn:Open( cCon ) The real question is : how install MYSQL with ODBC connector ? 1) download and install MySql\mysql-installer-web-community-5.7.17.0.msi M...
by Franklin Demont
Mon Mar 13, 2017 10:57 am
Forum: FiveWin for Harbour/xHarbour
Topic: Connecting to MySql
Replies: 4
Views: 1059

Connecting to MySql

I still have problems to connect , see also http://forums.fivetechsupport.com/viewtopic.php?f=3&t=32470#p195453 During a few days i could make connection , from then no connection anymore. Now , i try to start from scratch on a new computer. What i am doing wrong ? From MySql site dowmload and i...
by Franklin Demont
Mon Nov 14, 2016 11:29 am
Forum: FiveWin for Harbour/xHarbour
Topic: Connect to MySql db
Replies: 14
Views: 3827

Re: Connect to MySql db

May I know what is your FWH version? if FW_SetUniCode( .t. ) then Fw_OpenAdoConnection(...) automatically uses Unicode driver, without changing the prg. FW_SetUnicode( .t. ) oCn := FW_OpenAdoConnection( ... ) FW_SetUnicode( .f. )  // if not required   Sorry , it is only FW1404 Have i to use unicode...
by Franklin Demont
Mon Nov 14, 2016 10:17 am
Forum: FiveWin for Harbour/xHarbour
Topic: Connect to MySql db
Replies: 14
Views: 3827

Re: Connect to MySql db

You have 3 options. Hello , During a few days i am trying to use MySql : 1) Use TMySql.Lib // harbour contributions I can't build this lib 2) Use dolphin.lib // great class from Mr Daniel I can build the ewamples , they are working (made some corrections) BUT : FWH:ERP2.prg Gives in module login : ...
by Franklin Demont
Sun Nov 13, 2016 9:37 am
Forum: FiveWin for Harbour/xHarbour
Topic: Connect to MySql db
Replies: 14
Views: 3827

Re: Connect to MySql db

You have 3 options. 1) Use TMySql.Lib // harbour contributions 2) Use dolphin.lib // great class from Mr Daniel 3) Use ADO For options (1) and (2) you need to (a) Obtain tmysql.lib or dolphin.lib built for xHarbour or Harbour (b) Download libmysql.dll from mysql site (c) Make implib libmysql.lib fr...
by Franklin Demont
Sun Nov 06, 2016 9:23 am
Forum: FiveWin for Harbour/xHarbour
Topic: ADO : doesn't work anymore
Replies: 2
Views: 671

ADO : doesn't work anymore

Hello , I used to work with ADO (mdb-files) , till last month no problems. Since then i can't changed data in a mdb-file , i.e. (see also http://forums.fivetechsupport.com/viewtopic.php?f=3&t=33115) oRs                 := TOleAuto():New( "ADODB.Recordset" ) oRs:CursorType      := 1    ...