XProfan

Deutsch

Thomas
Kallenberger

Hallo Leute,

kann ich mit XProfan über ADO bzw. OLEDB auf eine Access-datenbank zugreifen. Über ODBC geht das zwar setzt aber eine DSN voraus. Diese kann ich nicht überall erstellen lassen (Rechte)

Mit XBase geht es wie nachfolgend - geht so etwas auch mit XProfan?
Danke für Eure Antwort!
Kompilieren Markieren Separieren

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

29.03.2010 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Hallo Thomas, unsere DB-Spezies sind wohl grad im Urlaub ^^ , eine Klasse ADODB bzw. etwas wie ADODB.Open bzw. CreateObject("ADODB.Connection") hat für XProfan imho noch niemand vorbereitet.

30.03.2010 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Wenn es irgendwo im WWW eine Dokumentation der entsprechenden APIs gäbe, wäre das wohl machbar.

Gruß
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 zitieren Zeilenweise zitieren

Vielleicht hilft dies ein wenig:

Component Object Model (COM)

ADO is an application programmers interface (API) that provides developers with an 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)

</>
^^

30.03.2010 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Uwe
''Pascal''
Niemeier

Hallo Leute!

@ Thomas:

Über ODBC geht das zwar setzt aber eine DSN voraus

Du kannst auch den Treiber direkt ansprechen:
Kompilieren Markieren Separieren

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

Ist vielleicht die einfachste Lösung.

@iF:

eine Klasse ADODB bzw. etwas wie ADODB.Open bzw. CreateObject("ADODB.Conne ction") hat für XProfan imho noch niemand vorbereitet.

ADO = ActiveX Data Object...

Kompilieren Markieren Separieren

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 Markieren Separieren

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 der Felder, z.B. "Kunde" oder Name"
    FeldB&=ocxget(Rec&,"Fields","B")--In meiner 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")
ocxMethod(Con&,"Close")
ocxrelease(Rec&,Con&)
ocxDeInit()
waitinput