XProfan

Español

Thomas
Kallenberger

¡Hola Personas,

kann I, con XProfan encima ADO o. OLEDB en una Access-datenbank zugreifen. Über ODBC va el zwar setzt aber una DSN voraus. Diese kann Yo no überall redactar dejar (Rechte)

Mit XBase es como nachfolgend - va así algo auch con XProfan?
Gracias para Eure Antwort!
Kompilieren Marca Separación

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
    RETORNO

29.03.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hola Thomas, unsere DB-Spezies son wohl grad en el Fiesta ^ ^ , una Klasse ADODB o. algo como ADODB.Open o. CreateObject("ADODB.Connection") ha para XProfan imho todavía niemand vorbereitet.

30.03.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Wenn lo irgendwo en el WWW una Documentación el entsprechenden APIs gäbe, wäre el wohl machbar.

Saludo
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

30.03.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Tal vez hilft dies una wenig:

Component Object Model (COM)

ADO is a application programmers interface (API) that provides developers with a 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 en a variety of environments ranging from Visual Basic to Active Server Pages.

<::temp:godMode>

.replaceTo:

Component Object Model (COM)

</>
^ ^

30.03.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Uwe
''Pascal''
Niemeier

¡Hola Personas!

@ Thomas:

Über ODBC va el zwar setzt aber una DSN voraus

Usted puede auch el Treiber direkt ansprechen:
Kompilieren Marca Separación

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

/pre>

Ist tal vez el einfachste Solución.

@IF:

una Klasse ADODB o. algo como ADODB.Open o. CreateObject("ADODB.Conne ction") ha para XProfan imho todavía niemand vorbereitet.

ADO = ActiveX Data Object...

Kompilieren Marca Separación

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

oder auch
Kompilieren Marca Separación

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")
declarar FeldA&,FeldB&,FeldC&

whilenot ocxGet(Rec&,"eof")

    FeldA&=ocxget(Rec&,"Fields","A")--Bezeichnung el Felder, por ejemplo "Kunde" oder Name"
    FeldB&=ocxget(Rec&,"Fields","B")--In meiner db algo phantasielos "A", "B" usw.
    FeldC&=ocxget(Rec&,"Fields","C")
    imprimir ocxGet(FeldA&,"Value")
    imprimir ocxGet(FeldB&,"Value")
    imprimir ocxGet(FeldC&,"Value")
    imprimir
    ocxRelease(FeldA&,FeldB&,FeldC&)
    ocxMethod(Rec&,"MoveNext")

endwhile

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