OleDB Hatası Hk.

TESTDATALOC = _samples+"data\testdata.DBC"

 

PUBLIC oForm

oForm = createobject('myForm')

oForm.Show

 

Define CLASS myform AS form

  Top = 0

  Left = 0

  Height = 450

  Width = 750

  DoCreate = .T.

  Caption = "Form1"

  Name = "Form1"

 

  Add OBJECT hflex AS olecontrol WITH ;

    Top = 0, ;

    Left = 0, ;

    Height = 420, ;

    Width = 750, ;

    Name = "Hflex", ;

    OleClass = 'MSHierarchicalFlexGridLib.MSHFlexGrid'

 

  Procedure Init

    Local oRecordset,oConnection, strCn, strShp

 

    strCn =    [Provider=MSDataShape;Persist Security Info=False;]+;

      [Data Source=]+TESTDATALOC+[;Data Provider=VFPOLEDB]

 

*!*        strShp = [SHAPE TABLE customer ]+;

*!*          [  APPEND ( (SHAPE TABLE orders   ]+;

*!*          [    APPEND (TABLE orditems RELATE order_id TO order_id)) ]+;

*!*          [  RELATE cust_id TO cust_id ) ]

 

    strShp = [SHAPE {select Company,Cust_id from customer} as Customers ]+;

      [  APPEND ( {select cust_id,order_date,order_id from orders} RELATE cust_id TO cust_id ) ]

 

    oRecordset = CreateObject("adodb.recordset")

    oConnection = CreateObject("adodb.connection")

 

    With oConnection

      .Provider = "MSDataShape"

      .ConnectionString = strCn

      .Open

    Endwith

 

    With oRecordset

      .ActiveConnection = oConnection

      .Source = strShp

      .Open

    Endwith

 

    With this.hflex

      .Datasource = oRecordset

      .GridColorBand(0) = rgb(255,0,0)

      .GridColorBand(1) = rgb(0,0,255)

      .Cols(0) = 2

      .ColWidth(0,0) = 16*15

      .ColWidth(1,0) = 250*15

      .CollapseAll

      *.BandDisplay = 1

    Endwith

  Endproc

Enddefine

LOCAL oCon as AdoDb.Connection, oRS as ADODb.Recordset

oCon = CREATEOBJECT('AdoDb.Connection')

oCon.ConnectionString = ;

  "Provider=VFPOLEDB;Data Source="+_samples+'data\testdata.dbc'

oCon.Open()

 

TEXT to m.lcSQL NOSHOW PRETEXT 8

Select c.cust_id, c.company,

  o.order_id, o.order_date,

  e.First_Name-(' '+e.Last_Name) As Employee,

  oi.line_no, p.prod_name,

  oi.unit_price, oi.quantity

  FROM  testdata!customer c

  INNER Join testdata!orders o

  ON  c.cust_id = o.cust_id

  INNER Join testdata!Employee e

  ON  o.emp_id = e.emp_id

  INNER Join testdata!orditems oi

  ON  o.order_id = oi.order_id

  INNER Join testdata!products p

  ON  oi.product_id = p.product_id

  order By p.prod_name

ENDTEXT

 

oRS = oCon.Execute(m.lcSQL)

PUBLIC oForm

oForm = CREATEOBJECT('myForm',oRS)

oForm.Show()

 

 

DEFINE CLASS myForm as Form

  Height = 450

  Width = 750

  Add OBJECT hflex AS olecontrol WITH ;

    Height = 420, ;

    Width = 750, ;

    DragIcon = "c:\program files\microsoft visual foxpro 9\graphics\cursors\h_point.cur",;

    OleClass = 'MSHierarchicalFlexGridLib.MSHFlexGrid'

 

  PROCEDURE init(toRS)

    with This.HFlex

      .Datasource = toRS

      for ix = 1 to .Cols - 1

        .MergeCol(ix) = .t.

      endfor

      .MergeCells = 3

    endwith

    this.DoSort(This.HFlex)

  ENDPROC

 

  PROCEDURE doSort(toObject)

    with toObject

      .Col = 0

      .ColSel = .Cols - 1

      .Sort = 1 && Generic Ascending

    endwith

  ENDPROC

 

  PROCEDURE hFlex.MouseDown

    LPARAMETERS button, shift, x, y

    with this

      .Tag = ""

      If .MouseRow = 0

        .Tag = Str(.MouseCol)

        .Drag( 1 )

      endif

    endwith

  ENDPROC

 

  PROCEDURE HFlex.DragDrop

    LPARAMETERS oSource, nXCoord, nYCoord

    If !empty(this.Tag)

      with this

        .Redraw = .F.

        .ColPosition(Val(.Tag)) = .MouseCol

        thisform.DoSort(this)

        .Redraw = .t.

      endwith

    endif

  endproc

enddefine