XProfan

English

Thomas
Kallenberger

Hello people,

can I with XProfan over ADO or. OLEDB on a Access-data base grab. About ODBC does it of course setting but a DSN ahead. These can I not everywhere create let (rights)

with XBase goes it How nachfolgend - goes such a thing too with XProfan?
thanks for Your response!
Compile Mark Separation

PROCEDURE Main
LOCAL oConnection, oRs
oConnection := CreateObject( "ADODB.Connection" )
oConnection:ConnectionString := "Provider= Microsoft.Jet.OLEDB.4.0;Data Source= Kunden.mdb"
oConnection:open()
oRs := CreateObject( "ADODB.Recordset" )
oRs:Open( "SELECT f00_kd_num,f12_aktivv FROM kunden", oConnection:ConnectionString, 0, 3 )
oRs:MoveFirst()

while !oRs:eof

    ? oRS:fields("f00_kd_num"):Value
    ?? "  "
    ?? oRS:fields("f12_aktivv"):Value
    oRs:MoveNext()
    enddo
    oRs:Close()
    oConnection:Close()
    wait
    RETURN

03/29/10 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hello Thomas, our DB-species are well strain in the leave ^^ , a class ADODB or. something How ADODB.Open or. CreateObject("ADODB.Connection") has for XProfan yet imho nobody prepared.

03/30/10 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

If it somewhere in the WWW a Documentation the suitable APIs were, would the well machbar.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

03/30/10 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Perhaps helps this a little bit:

Component Object Model (COM)

ADO is on application programmers interface (API) that provides developers with on easy way to access the underlying OLE DB data access interface. Its part of Microsofts overall Component Object Model (COM) strategy and, as such, works in a variety of environments ranging from Visual Basic to Active Server Pages.

<::temp:godMode>

.replaceTo:

Component Object Model (COM)

</>
^^

03/30/10 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Uwe
''Pascal''
Niemeier

Hello people!

@ Thomas:

About ODBC does it of course setting but a DSN ahead

You can also whom driver directly address:
Compile Mark Separation

...
var Init$="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:Test.mdb;Uid=;Pwd=;"
var Handle&=sqlinit(Init$)
print Handle&

/pre>

is Perhaps The simplest Solution.

@iF:

a class ADODB or. something How ADODB.Open or. CreateObject("ADODB.Conne ction") has for XProfan yet imho nobody prepared.

ADO = ActiveX Data Object...

Compile Mark Separation

window 800,600
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var Rec&=ocxCreate("ADODB.Recordset")
var Con$="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Test.mdb;User Id=admin;Password=;"
ocxMethod(Rec&,"Open","Select * from Profile",Con$,0,3)--Profile: Tabelle in C:Test.mdb
ocxMethod(Rec&,"MoveFirst")
declare FeldA&,FeldB&,FeldC&

whilenot ocxGet(Rec&,"eof")

    FeldA&=ocxget(Rec&,"Fields","A")--Bezeichnung der Felder, z.B. "Kunde" oder Name"
    FeldB&=ocxget(Rec&,"Fields","B")--In dieser db etwas phantasielos "A", "B" usw.
    FeldC&=ocxget(Rec&,"Fields","C")
    print ocxGet(FeldA&,"Value")
    print ocxGet(FeldB&,"Value")
    print ocxGet(FeldC&,"Value")
    print
    ocxRelease(FeldA&,FeldB&,FeldC&)
    ocxMethod(Rec&,"MoveNext")

endwhile

ocxMethod(Rec&,"Close")
ocxrelease(Rec&)
ocxDeInit()
waitinput

or
Compile Mark Separation

window 800,600
 $H windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var Con&=ocxCreate("ADODB.Connection")
var Con$="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Test.mdb;User Id=admin;Password=;"
ocxMethod(Con&,"Open",Con$)
var Rec&=ocxMethod(Con&,"Execute","Select * from Profile")
ocxMethod(Rec&,"MoveFirst")
declare FeldA&,FeldB&,FeldC&

whilenot ocxGet(Rec&,"eof")

    FeldA&=ocxget(Rec&,"Fields","A")--Bezeichnung the boxes, in example "Kunde" or name"
    FeldB&=ocxget(Rec&,"Fields","B")--In of my db something phantasielos "A", "B" etc.
    FeldC&=ocxget(Rec&,"Fields","C")
    print ocxGet(FeldA&,"Value")
    print ocxGet(FeldB&,"Value")
    print ocxGet(FeldC&,"Value")
    print
    ocxRelease(FeldA&,FeldB&,FeldC&)
    ocxMethod(Rec&,"MoveNext")

endwhile

ocxMethod(Rec&,"Close")
ocxMethod(Con&,"Close")
ocxrelease(Rec&,Con&)
ocxDeInit()
waitinput