Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

   /* Connect using the ODBC driver:DRIVER to
    * the server:SERVER and the database:DATABASE
    * using the given uid:username and pwd:password.
    */
   cConnect := "DBE=ODBCDBE;DRIVER=SQL Server;"
   cConnect += "SERVER=ALCEPROJECT;DATABASE=TestDB;UID=TestUser;PWD=1P_73kny!!;"
   oSession := DacSession():New( cConnect )

   // Test for connection success
   IF .NOT. oSession:isConnected()
     ?"Error code :", oSession:getLastError()
     ?"Description:", oSession:getLastMessage()
     MSGBOX("SORUN VAR")
     RETURN
   ELSE
    * MSGBOX("Connection to server established.","OK - I'm in.")
   ENDIF

SELECT 9
WERNER="SELECT TOP 1000   MOULDTYPE,ORDERNO,ORDERITEMNO,CUSTOMERNO,STOCKCODE,PRODUCTGROUP,OPENTOTAL,CURRENCY,QUANTITY,OPENQUANTITY FROM   ACIK_SATISSIPARISLERI;"    
  BROWSE()                                      /*                sql DATAS can be opened ; everything works fine till here  */

    SELECT 10                          
    USE STO1 EXCLUSIVE NEW          /*   HERE I try to open STO1.DBF  --->  I get ERROR !!!   */
    IF NETERR()=.T.
      CLOSE ALL
     RETURN
    ENDIF

    BROWSE()

Code: Alles auswählen

IF !DbeLoad( 'DBFDBE', .F. )
	Alert( 'Not able to load database-engine DBFDBE' , {'OK'} )
ENDIF
IF !DbeLoad( ODBCDBE', .F. )
	Alert( 'Not able to load database-engine ODBCDBE' , {'OK'} )
ENDIF

Code: Alles auswählen

USE STO1 VIA DBFDBE EXCLUSIVE NEW

Code: Alles auswählen

    SELECT 9      /*   SQL -  werner.dbf   */
    GO TOP
  
    DO WHILE .NOT. EOF()

       SELECT 7         /*  zafer.dbf - DBFDBE  */

      APPEND BLANK                          ---->  Here the error message is given !!!!!
      IF NETERR()=.F.
          REPLACE IKI WITH 9->MOULDTYPE
         REPLACE UC WITH 9->ORDERNO
      ENDIF

      SELECT 9         /*    SQL DATABANK      */
      SKIP


    ENDDO


    SELECT 7
    BROWSE()

Code: Alles auswählen

SELECT 8

Code: Alles auswählen

SELECT (ZAFER)

Code: Alles auswählen

   aList := WorkSpaceList()

Code: Alles auswählen

zafer->(DbAppend(1))
if .not. NETERR()
	zafer->IKI := HAL1
	zafer->UC := HAL2
	zafer->(DbUnlock())
endif

Code: Alles auswählen

 WERNER="SELECT TOP 100 SIPARISOLUSTURMATARIHI,MOULDTYPE,ORDERNO,ORDERITEMNO,CUSTOMERNO,STOCKCODE,PRODUCTGROUP,OPENTOTAL,TOTAL,CURRENCY,QUANTITY,OPENQUANTITY,SALESENGINEER,DELIVERY_YEAR,DELIVERY_MONTH,DELIVERY_DAY FROM ACIK_SATISSIPARISLERI;"     /

USE (WERNER) VIA ODBCDBE        /*    OPEN ORDERS  */

    **********  DBF CREATE  ************
    aDbf:={}
    AADD(aDbf, { "BES","C",10,0 })     
    AADD(aDbf, { "ALTI","C",40,0  })   
    AADD(aDbf, { "YEDI","C",15,0  })   
    AADD(aDbf, { "SEKIZ","C",5,0  })   
    AADD(aDbf, { "DOKUZ","C",20,0  })   
    AADD(aDbf, { "ON9","N",15,0  })     
    DBCREATE("ZAFER",aDbf, "DBFDBE")
    ****************************************

    ZAFER="ZAFER VIA DBFDBE EXCLUSIVE NEW"
    *********************
    SELECT 7
    USE ZAFER VIA DBFDBE EXCLUSIVE NEW
    IF NETERR()=.T.
      CLOSE ALL
      MSGBOX("DBF not openedI !")
      RETURN
    ENDIF
    **********************

    SELECT 9      /*   SQL -  werner.dbf   */
    GO TOP

    DO WHILE .NOT. EOF()

      SELECT 9
  
      SELECT (ZAFER)         /*   zafer.dbf - DBFDBE   */
      APPEND BLANK

      IF NETERR()=.F.
   
          REPLACE ZAFER->BES WITH SUBSTR(9->CUSTOMERNO,1,7)    
          REPLACE ZAFER->ALTI WITH SUBSTR(9->CUSTOMERNO,8,30) 
          REPLACE ZAFER->YEDI WITH 9->STOCKCODE

          REPLACE ZAFER->SEKIZ WITH SUBSTR(9->PRODUCTGROUP,1,5)  
          REPLACE ZAFER->DOKUZ WITH SUBSTR(9->PRODUCTGROUP,6,20) 

          REPLACE ZAFER->ON9 WITH 9->(SIPARISOLUSTURMATARIHI)                                    ---> [b]HERE I GET THE ERROR !!!![/b]
     
          DBUNLOCK()
      ENDIF


      SELECT 9         /*    SQL DATABANK      */
      SKIP


    ENDDO

Code: Alles auswählen

WERNER="SELECT TOP 100 SIPARISOLUSTURMATARIHI,MOULDTYPE,ORDERNO,ORDERITEMNO,CUSTOMERNO,STOCKCODE,PRODUCTGROUP,OPENTOTAL,TOTAL,CURRENCY,QUANTITY,OPENQUANTITY,SALESENGINEER,DELIVERY_YEAR,DELIVERY_MONTH,DELIVERY_DAY FROM ACIK_SATISSIPARISLERI;" /

USE (WERNER) VIA ODBCDBE

Code: Alles auswählen

@1,1 say FieldName(1)

Code: Alles auswählen

    SELECT 7      /*     zafer.dbf      */
  
    SELECT 9      /*   SQL -  werner.dbf   */
    go top

DO WHILE .not EOF() 

  SELECT 9         /*   SQL -  werner.dbf   */
 
  IF EMPTY(FIELDGET(1))=.T.
         BOS=0                                                        [b]----> IT GETS LIKE there is no such a  field[/b]
        ELSE
         BOS=VAL(SIPARISOLUSTURMATARIHI)             [b] ----> here its NUMERIC[/b]
         @11,10 SAY type((FIELDGET(1)))
  ENDIF

   SELECT (ZAFER)         /*  zafer.dbf - DBFDBE  */
      APPEND BLANK
      IF NETERR()=.F.
          REPLACE ZAFER->ON8 WITH 9->TOTAL
          REPLACE ZAFER->ON10 WITH SUBSTR(9->SALESENGINEER,1,4)
          REPLACE ZAFER->SIPTAR WITH BOS       
          DBUNLOCK()
      ENDIF

ENDDO