XProfan

Jörg
Sellmeyer

Müßte là pas @db("Pack") aider?

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

Kompilieren Marque Séparation

Detlef
Jagolski

Salut,

sans MS Access ca va sur qui ODBC Datenquelle.

 $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
Déclarer appexit%
Déclarer Button1&
Set("TrueColor",1)
Fenêtre Style $003F
Titre de la fenêtre "ODBC"
Fenêtre %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

    Si %clé = 2

        appexit%=1

    ElseIf Clicked(Button1&)

        RunControl("odbccp32",»)

    ElseIf %clé = 4

        ' Fenstergröße

    ElseIf %clé = 5

        ' Aider

    EndIf

Wend

OnApplicationExit

Wähle den MS Access ODBC Treiber et ensuite klicke sur den Button Konfigurieren..

.

Salut

Detlef

odbc_2.jpg	26 kB

Hochgeladen:	09.11.2011

Downloadcounter:
		Download

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

Christof
Neuß

db("Pack") hilft seulement chez dBase-Fichiers, ou bien? j'ai ici mais une SQL-banque de données.

qui Aufruf qui ODBC-Schnittstelle serait zwar marcher, mais cela mag je dem Anwender pas zumuten. Soll arrêt alles im Programme bzw. im Hintergrund courir.

peux on 2 Datenbanken gleichzeitig im Zugriff avons? ensuite pourrait je doch une Funktion écrivons, qui alle Tabellen de qui une dans l'autre banque de données hievt et ensuite la première löscht.

Win10 16 GB RAM

Detlef
Jagolski

cela sollte Dir plus aider: [...]

, [...]

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

10.11.2011 ▲

Kompilieren Marque Séparation

Uwe
''Pascal''
Niemeier

Hi gens!

le son diverser VB-Schnipsel im Web legt cette Quellcode une Kopie einer Access-db à, qui ensuite angeblich komprimiert ist.
Voll ausgetestet ca sera tout allerdings pas!
(PS: qui Kopie darf encore pas existieren)

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()
imprimer "Fertig"
waitkey

qui im 2. Verbindungsstring angegebene "Engine Type 5" hängt anscheinend avec qui verwendeten Access- bzw db-Treiberversion zusammen.
si qui pas paßt, gibt es nämlich une Fehlermeldung.
Zur Ermittlung des richtigen Typs pourrait ca aider:

Kompilieren Marque Séparation

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")
imprimer "Engine Type: ",ocxGet(Type&,"Value")
ocxRelease(Type&,Properties&,Connection&)
ocxDeInit()
waitkey
end

Demandez à mich mais aucun pour Funktionsweise ou bien Einzelheiten; je hab's simple la fois stumpf sur qui Schnelle traduit...

HTH
Pascal

11.11.2011 ▲

Christof
Neuß

allô Pascal,

homme, super. cela werde je après la fois ausprobieren.

DANKE

Win10 16 GB RAM

13.11.2011 ▲

Christof
Neuß

allô Pascal,

cela funktioniert chez mir hervorragend. Nochmals "DANKE".

je muss maintenant la fois testen, comment cela sur anderen PCs aussieht. Insbesondere, si là ne...aucune Access installiert ist. je werde berichten...

Win10 16 GB RAM

13.11.2011 ▲