Okunan bilginin türünü öğrenmek

Clear

Local lcTableName,lcConnection,lcSQL, lcXLSName

lcTableLocation = _samples+'data'

lcConnection    = "Provider=VFPOLEDB;Data Source="+ m.lcTableLocation

 

TEXT TO lcSQL TEXTMERGE noshow

SELECT line_no, order_id, product_id, quantity, unit_price

from orditems

ENDTEXT

 

oExcel = Createobject('Excel.Application')

With oExcel

  .WorkBooks.Add

  .Visible = .T.

  With .ActiveWorkBook.ActiveSheet

    VFP2ExcelCopy(m.lcConnection,m.lcSQL,.Range('A1'))

 

    For ix = 1 To .UsedRange.Columns.Count

      v=.Cells(2, m.ix ).Value

      ? m.v, Type('m.v'), Vartype(m.v)

    Endfor

 

    .UsedRange.Columns(5).NumberFormat = '@'

 

    For ix = 1 To .UsedRange.Columns.Count

      v=.Cells(2, m.ix ).Value

      ? m.v, Type('m.v'), Vartype(m.v)

    Endfor

 

    If Type('.UsedRange.Cells(2,5).Value') != 'C'

        .UsedRange.Cells(2,5).Value = TRANSFORM(.UsedRange.Cells(2,5).Value)

    Endif

 

    For ix = 1 To .UsedRange.Columns.Count

      v=.Cells(2, m.ix ).Value

      ? m.v, Type('m.v'), Vartype(m.v)

    Endfor

 

 

  Endwith

Endwith

 

Function VFP2ExcelCopy

  Lparameters tcDataSource, tcSQL, toRange

  Local loConn As AdoDB.Connection, ;

    loRS As AdoDB.Recordset,;

    ix

  loConn = Createobject("Adodb.connection")

  loConn.ConnectionString = m.tcDataSource

  loConn.Open()

  loRS = loConn.Execute(m.tcSQL)

 

  For ix=1 To loRS.Fields.Count

    toRange.Offset(0,m.ix-1).Value = Proper(loRS.Fields(m.ix-1).Name)

    toRange.Offset(0,m.ix-1).Font.Bold = .T.

  Endfor

  toRange.Offset(1,0).CopyFromRecordSet( loRS )

  loRS.Close

  loConn.Close

Endfunc