XProfan

Français

Thomas
Kallenberger

allô gens,

peux je avec XProfan sur ADO bzw. OLEDB sur une Access-banque de données zugreifen. Über ODBC allez cela zwar mets mais une DSN voraus. cet peux je pas überall erstellen laisser (Rechte)

avec XBase ca va comment nachfolgend - ça va quelque chose aussi avec XProfan?
merci pour Eure Antwort!
Kompilieren Marque Séparation

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
    RETOUR

29.03.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

allô Thomas, unsere DB-Spezies sommes wohl grad im Urlaub ^ ^ , une super ADODB bzw. quelque chose comment ADODB.Open bzw. CreateObject("ADODB.Connection") hat pour XProfan imho encore niemand vorbereitet.

30.03.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

si es irgendwo im WWW une Documentation qui entsprechenden APIs gäbe, wäre cela wohl machbar.

Salut
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 citation

Absatzweise Citation Zeilenweise Citation

peut-être hilft ca un peu:

Component Object Model (COM)

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

<::temp:godMode>

.replaceTo:

Component Object Model (COM)

</>
^ ^

30.03.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Uwe
''Pascal''
Niemeier

allô gens!

@ Thomas:

Über ODBC allez cela zwar mets mais une DSN voraus

tu peux aussi den Treiber direct ansprechen:
Kompilieren Marque Séparation

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

/pre>

Ist peut-être qui einfachste Solution.

@iF:

une super ADODB bzw. quelque chose comment ADODB.Open bzw. CreateObject("ADODB.Conne ction") hat pour XProfan imho encore niemand vorbereitet.

ADO = ActiveX Data Object...

Kompilieren Marque Séparation

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

ou bien aussi
Kompilieren Marque Séparation

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 * à partir de Profile")
ocxMethod(Rec&,"MoveFirst")
declare FeldA&,FeldB&,FeldC&

whilenot ocxGet(Rec&,"eof")

    FeldA&=ocxget(Rec&,"Fields","A")--Bezeichnung qui Felder, z.B. "Kunde" ou bien nom"
    FeldB&=ocxget(Rec&,"Fields","B")--dans meiner db quelque chose phantasielos "A", "B" usw.
    FeldC&=ocxget(Rec&,"Fields","C")
    imprimer ocxGet(FeldA&,"Value")
    imprimer ocxGet(FeldB&,"Value")
    imprimer ocxGet(FeldC&,"Value")
    imprimer
    ocxRelease(FeldA&,FeldB&,FeldC&)
    ocxMethod(Rec&,"MoveNext")

endwhile

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