Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

  odbc_treiber:=SQLConnection():new(Kundlag,,,.t.)       // Kundlag Name der ODBC Dbase Datenbank
  oCursor:=SQLSelect():new( chselect, odbc_treiber)
  nSuccess := oCursor:execute() // don't really need to execute an SQLDataSet, it's just here for consistency

Code: Alles auswählen

   oConX := SQLConnection():new()
   cLine := "Driver={" + SQLUGetDriverName("EXCEL", oConX) + "};ReadOnly=0;MaxScanRows=0;FirstRowHasNames=1;FIL=excel 8.0;DBQ=" + cXFile + ";"
   IF !oConX:driverConnect(NIL, cLine)
      ConfirmBox(, "Could not connect to Excel subsystem (ODBC)", "Error", XBPMB_OK, XBPMB_INFORMATION)
      RETU(.F.)
   ENDIF

Code: Alles auswählen

   cLine := "CREATE TABLE Overview (Area VARCHAR, Record FLOAT, Findings VARCHAR)"
   oCur1 := SQLSelect():new(cLine)
   oCur1:execute()

Code: Alles auswählen

   aSet := {"BaseHist", nBaseRecs, ""}
   oCur1:append()
   oCur1:recordPut(aSet)
   oCur1:updateRow()

Code: Alles auswählen

#DEFINE FALSE .F.
#DEFINE TRUE  .T.

#INCLUDE "Xbp.CH"

#PRAGMA Library("SQLXPP.LIB")

FUNCTION SQLUGetDriverName(cDriver, oConn)
   Local lCreated, aList, nLen, nI, cLook4, cName
   cDriver := Upper(cDriver)
   cName := ""
   lCreated := FALSE
   IF oConn == NIL
      oConn := SQLConnection():new()
      lCreated := TRUE
   ENDIF
   aList := oConn:getDrivers()
   nLen := Len(aList)
   FOR nI := 1 TO nLen
      cLook4 := Upper(aList[nI, 1])
      IF At(cDriver, cLook4) > 0
         cName := aList[nI, 1]
         EXIT
      ENDIF
   NEXT
   IF lCreated
      oConn:destroy()
   ENDIF
RETURN (cName)

Code: Alles auswählen

oCon := SQLConnection():new()
aList := oCon:getDrivers()
FOR nI := 1 TO Len(aList)
   ? aList[nI]
NEXT