Hello,
In order to upgrade my program I want to be able to check the structure of dbf's on 2 locations.
While upgrading, I change structures now and then, but I would be handy if I could run a routine that will give the differences from each file (same name), but
sometimes different structures.
Anybody that has this routine already made ?
It is not needed to update the structures or so... only show the difference.
aStruct1 := FW_DBFSTRUCT( <firstdbfwithfullpath> )
aStruct2 := FW_DBFSTRUCT( <seconddbfwithfullpath> )
if FW_ArrayAsList( aStruct1 ) == FW_ArrayAsList( aStruct2 )
// Same structure
else
// different
<your routine to compare aStruct1 with aStruct2>
endifaStruct1 := FW_DBFSTRUCT( <firstdbfwithfullpath> )
aStruct2 := FW_DBFSTRUCT( <seconddbfwithfullpath> )
// Add this, please
aStruct1:= aSort(aStruct1, nil, nil, {|x, y| x[1] < y[1]})
aStruct2:= aSort(aStruct2, nil, nil, {|x, y| x[1] < y[1]})
if FW_ArrayAsList( aStruct1 ) == FW_ArrayAsList( aStruct2 )
  // Same structure
else
 // different
 <your routine to compare aStruct1 with aStruct2>
endifnageswaragunupudi wrote:You can use this to compare structures of two dbfs and know if they are same or not.
For this purpose, you need not even open (with USE) the dbfs.
aStruct1 := FW_DBFSTRUCT( <firstdbfwithfullpath> ) aStruct2 := FW_DBFSTRUCT( <seconddbfwithfullpath> ) if FW_ArrayAsList( aStruct1 ) == FW_ArrayAsList( aStruct2 )   // Same structure else  // different  <your routine to compare aStruct1 with aStruct2> endif
Can you forward me to write //different part for MariaDB?
Can XBrowser show 2 array of data at one time ?
Xbrowser(aData1,adata2) // See the names (even the structure of the 2 arrays next to each other)
I have seen great stuff with just 1 or 2 lines with Xbrowser 
Maybe combine the Arrays to 1 bigger and show this with Xbrowser
It is only for viewing, no changes are to be made.
nageswaragunupudi wrote:This code is only for DBF files.
Can you forward me to write //different part for MariaDB?
I do not understand your question. Can you please clarify?
oCn:RenameColumn( cTable, cOldName, cNewName )
oCn:AddColumn( cTable, aColSpec )
oCn:AlterColumn( cTable, aColSpec )
aColSpec ( dbf column spec )
Eg:
{ "firstname", "C", 30, 0 }
{ "salary", "N", 10, 2 }
etc
oCn:AddColumn( cTable, aColSpec )
oCn:AlterColumn( cTable, aColSpec )
1) Is there any method to delete Column?
2) Has aColSpec more than one field? for example {{"name", "C", 100,0}, {"telefon","C",20,0}
3) Is AlterColumn means can change type, len, dec for a specified fieldname?
  ...
  ...      Â
  lUpdate_Yap := Alter_Table(oCn, cTableName, aNew_Structure)
  ...
  ...
*-----------------------------------------------------------------------------------------------
FUNCTION Alter_Table(oCn, cTableName, aNew, lShow)
LOCAL l, lResult := .f., aCompare_Result, cDel_SQL, cOld
DEFAULT lShow := .F.
  IF oCn<>nil .AND. oCn:TableExists(cTableName)
    aOld := oCn:TableStructure(cTableName)
    aCompare_Result := Compare_Two_Table(aOld, aNew)
    if lShow
      xbrowser aOld slnum TITLE cTableName+" - aOld STRUCTURE"
      xbrowser aNew SLNUM TITLE cTableName+" - aNew STRUCTURE"
      xbrowser aCompare_Result slnum
    ENDIF
   Â
    IF !EMPTY(aCompare_Result[1])    // EKLENECEK VAR
      FOR l:=1 TO LEN(aCompare_Result[1])
        oCn:AddColumn( cTableName, aCompare_Result[1][l] )          Â
      NEXT
      lResult:=.T.
    ENDIF
   Â
    IF !EMPTY(aCompare_Result[2])    // İÇERİĞİ DEĞİŞECEK VAR
      FOR l:=1 TO LEN(aCompare_Result[2])
        oCn:AlterColumn( cTableName, aCompare_Result[2][l] )
      NEXT
      lResult:=.T.
    ENDIF
   Â
    IF !EMPTY(aCompare_Result[3])    // SİLİNECEK VAR
      FOR l:=1 TO LEN(aCompare_Result[3])
        cDel_SQL := "ALTER TABLE "+cTableName+" DROP COLUMN IF EXISTS "+aCompare_Result[3][l,1]
        oCn:Execute(cDel_SQL)
      NEXT
      lResult:=.T.
    ENDIF
  ENDIF Â
RETURN lResult
*------------------------------------------------------------------------------------------------
FUNCTION Compare_Two_Table(aOld, aNew)
LOCAL aInsert:={}, aChange := {}, aDelete := {}, i
  FOR i:=1 TO LEN(aOld)
    IF aOld[i,2]="m"
      aOld[i,3]=10
    ENDIF
  NEXT Â
       Â
  FOR i:=1 TO LEN(aNew)
    nAt := AScan(aOld, {|a|a[1]=aNew[i,1]})
    IF nAt = 0 // Yani bizim table da aradığımız yok ise yenidir.
      aAdd(aInsert, aNew[i])
    ELSE
      IF aOld[nAt,2]<>aNew[i,2] .OR. aOld[nAt,3]<>aNew[i,3] .OR. aOld[nAt,4]<>aNew[i,4]
        aAdd(aChange, aNew[i])
      ENDIF
    ENDIF Â
  NEXT
 Â
  FOR i:=1 TO LEN(aOld)
    nAt := AScan(aNew, {|a|a[1]=aOld[i,1]})
    IF nAt = 0 // Yani bizim table da aradığımız yok ise yenidir.
      aAdd(aDelete, aOld[i])
    ENDIF Â
  NEXT Â
RETURN {aInsert, aChange, aDelete}