XProfan

Jörg
Sellmeyer

Müßte como no @db("Pack") helfen?

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

Kompilieren Marca Separación

Detlef
Jagolski

¡Hola,

sin MS Access es en ODBC Datenquelle.

 $P+
Conjunto("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
Declarar appexit%
Declarar Button1&
Conjunto("TrueColor",1)
Ventana de Estilo $003F
Título de la ventana "ODBC"
Ventana %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

Sinestar encargado appexit%

    WaitInput

    If %key = 2

        appexit%=1

    ElseIf Clicked(Button1&)

        RunControl("odbccp32","")

    ElseIf %key = 4

        ' Fenstergröße

    ElseIf %key = 5

        ' Ayuda

    EndIf

Wend

OnApplicationExit

Wähle el MS Access ODBC Treiber y luego klicke en el Button Konfigurieren..

.

Saludo

Detlef

odbc_2.jpg	26 kB

Hochgeladen:	09.11.2011

Ladeanzahl:
		Descargar

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

Christof
Neuß

db("Pack") hilft sólo en dBase-Archivos, oder? Yo habe hier aber una SQL-Datenbank.

Der Aufruf el ODBC-Schnittstelle sería zwar trabajo, aber el mag Yo el Anwender no zumuten. Soll sólo alles en el Programa o. en el Hintergrund laufen.

Kann uno 2 Datenbanken gleichzeitig en el Zugriff haben? Dann podría Todavía una Función escribir, el todos Tabellen de el una en el otro Datenbank hievt y luego el erste löscht.

Win10 16 GB RAM

Detlef
Jagolski

Das debería Usted más helfen: [...]

, [...]

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

10.11.2011 ▲

Kompilieren Marca Separación

Uwe
''Pascal''
Niemeier

Hi Personas!

Laut diverser VB-Schnipsel en el Web legt dieser Quellcode una Kopie uno Access-db a, el entonces angeblich komprimiert es.
Voll ausgetestet es el alles allerdings no!
(PS: El Kopie darf todavía no 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()
imprimir "Fertig"
waitkey

El en el 2. Verbindungsstring angegebene "Engine Type 5" hängt anscheinend con el verwendeten Access- o db-Treiberversion zusammen.
Falls el no paßt, hay nämlich una Fehlermeldung.
A Ermittlung des richtigen Typs podría dies helfen:

Kompilieren Marca Separación

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

Frag mich aber keiner después de Funktionsweise oder Einzelheiten; Yo hab's simplemente veces stumpf en el Schnelle traducido...

HTH
Pascal

11.11.2011 ▲

Christof
Neuß

¡Hola Pascal,

mensch, klasse. Das voluntad Yo nachher veces ausprobieren.

DANKE

Win10 16 GB RAM

13.11.2011 ▲

Christof
Neuß

¡Hola Pascal,

el funktioniert en me hervorragend. Nochmals "DANKE".

Yo muss ahora veces testen, como el en otro PCs aussieht. Insbesondere, si como kein Access installiert es. Yo voluntad berichten...

Win10 16 GB RAM

13.11.2011 ▲