XProfan

Jörg
Sellmeyer

ought to there not @db("Pack") help?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Detlef
Jagolski

Hi,

without MS Access goes it over The ODBC Datenquelle.

Compile Mark Separation

 $P+
Set("ErrorLevel",0)
Def GetSysColor(1) !"USER32","GetSysColor"
Def RunControl(2) WinExec(("RUNDLL32 SHELL32.DLL,Control_RunDLL " + $(1) + ".CPL ") + $(2),1)

Proc OnApplicationExit

ENDPROC

Proc OnApplicationInit

ENDPROC

OnApplicationInit
Declare appexit%
Declare Button1&
Set("TrueColor",1)
Window Style $003F
Window Title "ODBC"
Window %maxX + 5,114 - 498,415
Cls GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
Button1&=CreateButton(%hwnd,"ODBC...",164,178,162,25)
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    WaitInput

    If %key = 2

        appexit%=1

    ElseIf Clicked(Button1&)

        RunControl("odbccp32","")

    ElseIf %key = 4

        ' Fenstergröße

    ElseIf %key = 5

        ' Help

    EndIf

Wend

OnApplicationExit

dial whom MS Access ODBC driver and then click on the Button Konfigurieren..

.

Greeting

Detlef

odbc_2.jpg	26 kB

Hochgeladen:	11/09/11

Downloadcounter:
		Download

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

Christof
Neuß

db("Pack") helps only dBase-Files, or? I have here but a SQL-data base.

The Calling the ODBC-interface would of course functions, but the likes I the users not zumuten. should hold everything in the program or. in the background walk.

Can 2 Databases at the same time in the grabbed having? then could I still a function write, The any tables from the a into others data base hievt and then The first deletes.

Win10 16 GB RAM

Detlef
Jagolski

the ought to you moreover help: [...]

, [...]

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

11/10/11 ▲

Uwe
''Pascal''
Niemeier

Hi people!

loudly diverser VB-shred on the Web places this Source a copy of/ one Access-db on, The then allegedly compressed is.
fully ausgetestet is the everything though not!
(PS: The copy must not yet existieren)

Compile Mark Separation

window 500,500
 $H windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var Engine&=ocxCreate("JRO.JetEngine")
var mdb$="C:\Test.mdb"
var tmp$="C:\Temp.mdb"
mdb$="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+mdb$
tmp$="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+tmp$+";Jet OLEDB:Engine Type=5"
ocxMethod(Engine&,"CompactDatabase",mdb$,tmp$)
ocxRelease(Engine&)
ocxDeInit()
print "Fertig"
waitkey

The in the 2. Verbindungsstring angegebene "Engine Type 5" depends apparently with the verwendeten Access- or db-Treiberversion together.
if The not fits, there namely a Error Message.
to investigation the right Type could this help:

Compile Mark Separation

window 500,500
 $H windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var mdb$="C:\Test.mdb"
var Connection&=ocxCreate("ADODB.Connection")
var Connection$="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+mdb$
ocxMethod(Connection&,"Open",Connection$)
var Properties&=ocxGet(Connection&,"Properties")
var Type&=ocxGet(Properties&,"Item","Jet OLEDB:Engine Type")
print "Engine Type: ",ocxGet(Type&,"Value")
ocxRelease(Type&,Properties&,Connection&)
ocxDeInit()
waitkey
end

Frag me but none to Funktionsweise or Einzelheiten; I hab's simply time stumpf on The speedy Translated...

HTH
Pascal

11/11/11 ▲

Christof
Neuß

Hello Pascal,

human, class. the I will hereafter time try.

THANK YOU

Win10 16 GB RAM

11/13/11 ▲

Christof
Neuß

Hello Pascal,

the functions by me inspired. over again "DANKE".

I must now test times, How the on other PCs looks. particularly, if there no Access installs is. i'll report...

Win10 16 GB RAM

11/13/11 ▲