Übergabe an Access

[inselhopper]

Moin Forumgemeinde.

Ich hab da mal ne Frage. Ich kann mir vorstellen dass man die Daten, die man mit dem FMS dekodiert, an Access weitergeben kann. Die Frage ist jetzt wie so etwas geht, vor allem wenn es in eine geöffnete Datenbank geschrieben werden soll.

Diese Datenbank wird im Netzwerk (von mehreren PC gleichzeitig geöffnet) betrieben. In diesem Netzwerk befindet sich ein PC mit dem FMS-Prog.

Gruss vonner Nordsee
inselhopper


Ich hab es bis jetzt so geregelt, das es per Globaler Aktion in eine csv Datei reingeschrieben wird. Ist aber ja nicht so das was ich wollte.

[paeddy]

Hallo inselhopper,

ich hatte vor kurze Zeit das gleiche Problem. Wollte die FMS-32 Daten online und für mich einfach bearbeitbarzumachen speichern. Nach langer überlegung bin ich dann zum Entschluss gekommen dieses mit einer Mysql Datenbank aufzuziehen. Die Soft ist zwar noch inner Testphase aber erfüllt schon seinen Zweck. Da die Software über die Netzwerkschnittstelle mit FMS32 kommuniziert fallen alle Globalen meldungen weg.

Wenn einer dran interessiert ist kann er sich hier mal melden, suche noch tester und bin über jede idee und verbesserung dankbar.

mit freundlichen Grüßen

Paetrick

[Ralf]

Hallo,

das geht eigentlich sehr einfach. FMS32 im Server-Modus betreiben und in Access ein kleines VBA-Programm schreiben, das die Telegramme mit "WinSock" ausliest und in eine Tabelle schreibt. Das Telegrammformat ist im Web bei Heirue-Soft beschrieben.Die Daten sind ungefiltert!

Gruß Ralf

[de010014]

Hi,

wir nutzen www.BOS2WEB.de

Hier wird alles mit einem Agenten in eine SQL-Datenbank geschrieben.

Einfach mal auf deren Internetseite schauen.

Holger

[inselhopper]

@paeddy
Würde dein kleines Prog gerne ausprobieren.

@Ralf
Ist das VBA-Skript groß? Magst du es vielleicht hier posten oder mir schicken?


Gruß
inselhopper

[paeddy]

Hallo Inselhopper,

werde das Programm wenn ich heut abend ausser Uni komme mal hochladen

lg paeddy

[felix000]

Das Telegrammformat ist im Web bei Heirue-Soft beschrieben.

Wo genau??? Kannst du mal den Link posten oder mir die Beschreibung per PN schicken???

[coastboy]

@felix000

Die Beschreibung findest du im Download Bereich von FMS32.


Ist recht einfach, allerdings stört es mich, das die Filter etc. nicht wirken
und er alles roh übergibt.


MfG
coastboy

[Ralf]

Hallo,

@inselhopper
ich werde mal eine kleine Beispieldatenbank erstellen, die ich dann zur Verfügung stelle, dauert aber 1-2 Tage (ist Access 2000, neuer habe ich nicht).

@felix000
der Link ist http://www.heirue-soft.de/servicefms...d/neues321.pdf
(ist kennwortgeschützt, also nur für registrierte User, deshalb werde ich hier auch keine Details posten).
Ist aber leicht zu durchschauen, da Klartext, Felder durch TAB (Chr$(9)) getrennt.


Gruß Ralf

[paeddy]

Hallo,

so habe mal meine kleines Programm zum speichern in eine Mysql Datenbank unten mit angefügt. Wer keine Mysql Datenbankanbindung hat kann das Programm auch als Client für FMS32 benutzen.

Würde mich freuen wenn ein bisschen Rückmeldung von euch kommen würde.

FMSQL v0.20 -> http://paeddy.pa.funpic.de/FMSQL/fmsql0.20.zip

Grüße

Paetrick

[inselhopper]

Freu mich schon auf deine Accessgeschichte. Ich komme zwar mit Access sehr gut klar, aber in VBA bin ich nicht allzu gut drin. Ich kenne nur noch einige Grundbefehle aus der C64-Basic Zeit, viele funktionieren da ja auch.


Das FMSQL probier ich gleich mal aus. Rückmeldung bekommst du selbstverständlich!


Gruss
inselhopper

[felix000]

@felix000
der Link ist http://www.heirue-soft.de/servicefms...d/neues321.pdf
(ist kennwortgeschützt, also nur für registrierte User, deshalb werde ich hier auch keine Details posten).
Ist aber leicht zu durchschauen, da Klartext, Felder durch TAB (Chr$(9)) getrennt.

Danke, in der Uni hatte ich das Passwort für den Downloadbereich nicht zu Hand...

[inselhopper]

Moin,
ich hab mich mal selbst an der ACCESS Geschichte versucht, habs aber leider nicht hinbekommen.

FMS32 im Server-Modus betreiben und in Access ein kleines VBA-Programm schreiben, das die Telegramme mit "WinSock" ausliest und in eine Tabelle schreibt. Das Telegrammformat ist im Web bei Heirue-Soft beschrieben.

Kann es sein dass der WinSock nicht unter VBA funktioniert, sondern nur unter VB?

[Ralf]

Hallo,

ein Formular erstellen und ein Winsock-Steuerelement einfügen mit Namen "Winsock1"

Private Sub Form_Load()
Dim ServerIP As String
ServerIP = "Hier kommt der Name des Computers im Netz rein, auf dem FMS32 läuft"
Winsock1.Connect ServerIP, 9300
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Eingangstext As String
Winsock1.GetData Eingangstext 'Die Variable "Eingangstext" enthält jetzt das Telegramm

Dim Eingang() As String
Eingang() = Split(Eingangstext, Chr$(9))
'Die Variablen "Eingang(0)", "Eingang(1), "Eingang (...)" enthalten jetzt die einzelnen Felder

'Quittungen überspringen, wenn gewünscht
If Eingang(0) = "FMSTlg" Then
If Eingang(6) = "14" Or Eingang(6) = "15" Then
Exit Sub
End If
End If

'Jetzt werden die Felder in die Tabelle "Eingangstabelle" mit den Feldern

Eingangsdatum
Art
Richtung
Adresse
Status
Eingangsmeldung

schreiben

Set FMS = CurrentDb.OpenRecordset("Eingangstabelle")
FMS.AddNew

If Eingang(0) = "ZVEI" Then
FMS!Eingangsdatum = Now()
FMS!Art = "Z"
FMS!Richtung = "an"
FMS!Adresse = Eingang(1)
End If

If Eingang(0) = "FMSTlg" Then
FMS!Eingangsdatum = Now()
FMS!Art = Eingang(9)
FMS!Adresse = Eingang(1)
If Eingang(8) = "0" Then
FMS!Richtung = "von"
Else
FMS!Richtung = "an"
End If
FMS!Status = Eingang(6)
FMS!Eingangsmeldung = Eingang(13)
End If

FMS.Update
FMS.Close
Set FMS = Nothing

End Sub

POCSAC habe ich nicht berücksichtigt, das haben wir hier nicht, lässt sich aber leicht
einfügen.

Viel Erfolg beim Ausprobieren, bei weiteren Fragen gerne melden.

Gruß Ralf

[inselhopper]

Hallo Ralf,
danke für deinen Beitrag.

Das ist soweit alles verständlich und gut beschrieben. Aber eins habe ich noch

...
ein Formular erstellen und ein Winsock-Steuerelement einfügen mit Namen "Winsock1"
...

Ich hab mir dafür die VB6Runtimedateien runtergeladen, das Steuerelement erscheint auch bei Access, nur ..... ich kann es nicht benutzen. Woran kann das liegen?