Beiträge von Mr-Ferret

Mr-Ferret

@aka McBarby,

vielen Dank für dein Script, bzw. das Script aus dem EN-Forum.

Ich hab das mal versucht zu testen, ich erhalte auch immer einen Exit-Code 0, was ich ja auch positiv finde, nur habe ich dabei noch 2 Probleme:

1. ich muss ganz klar sagen, ich verstehe die Funktion nicht!
2. ich erhalte kein Ergebnis, ausser den Returncode.

Kannst du mir das erklären?

Sorry aber ich bin wohl noch nicht so weit.

Mr-Ferret

Sorry, da stand ich wohl etwas auf der Leitung!

Da werd ich mich mal dran machen!

Danke!

Mr-Ferret

Danke für die Tipp, aber gibt es da keine elegantere Lösung? zumal das dann nicht in mein Formular passt?!

Gibt es keine Möglichkeit das Ergebnis einer Abfrage (Select) in ein Array zu schreiben und dann den Feldern zu zuordnen?

Mr-Ferret

Zitat von alpines

Na wie wäre es denn die Daten einfach zu queryen und in einer ListView anzuzeigen wobei die Spalten mit der Datenbank übereinstimmen?

Du meinst GUICtrlCreateListView ?!

Darin kann ich aber die Daten nicht änderen und zurückschreiben?!

Mr-Ferret

Hallo Gemeinde,

Ich habe gerade angefangen mich mit MySQL und AutoIt zu versuchen.

Kurze Rede langer Sinn:

Ich hab mir eine Gui gebaut, wenn ich dort etwas eingebe, auf einen Button klicke, werde die eingegebenen Daten in eine MySQL DB geschrieben.

Soweit so gut. Nun würde ich mich gerne an ein Update versuchen. dazu möchte ich aber die vorhandenen Daten in der Gui ausgeben, dann ändern und wieder zurück schreiben.

Jetzt kommt mein Problem:

Ich habe keinen Ahnung, wie ich die Daten in die Gui bekomme! Im Netz habe ich hierzu nichts gefunden,

Für den insert nutze ich die MySQL.au3 UDF.

Kann mir jemand evtl. ein Beispiel geben wie ich das zustande bekomme?

Vielen Dank!

PS: Wenn die Anfrage zu ungenau ist, bitte nicht gleich schimpfen, ich werde bestimmt jede Frage dies bzgl. versuchen zu beantworten.

Gruß

Manfred

Mr-Ferret

@ water

ja, das hatte ich bereits gesehen, ich habs noch ein wenig, na ja, sagen wir verschönert

@ autoiter,

ich werds mir noch mal reinziehen, testen.

Vielen Dank auch alle!!!!

Mr-Ferret

@ water

vielen Dank! das wars, damit bekomme ich genau was ich wollte!

Und wenn ein Fehler kommt, erscheint zusätzlich noch eine MsgBox

@ autoiter,

die UDF _FileCopyEx ist die nicht eher für Verzeichnisse als für Dateien gebaut?

So liest es sich jedenfalls in der Beschreibung!

Aber Danke für deinen Hinweis! Werd ich bestimmt auch noch mal brauchen

Mr-Ferret

water

Vielen Dank für den Tip! Das sollte dann wohl so aussehen:

Spoiler anzeigen

Code

FileWrite("C:\KopErgeb.txt", FileCopy($TargetFcnTest01 & $aFcn[$i], $Verz_Fcn_Sich & "\" & $aFcn[$i]))

aber da kommt dann bei jedem erfolgreichem kopiervorgang eine 1 dazu!

Ich würde das Ergebnis lieber sofort in eine MsgBox ausgeben.

Folgender Hintergrund:

Wir kopieren (wenns fertig ist) Dateien von einem Server auf 3 andere Server. Wobei 1 Server in der nähe von Plauen steht, der andere in Frankreich.

Anders gesagt, 1 Datei sind min. 3 Kopien. Wenn ich also filten könnte (bei Fehlschlag) Datei wurde auf Server x nicht kopiert, könnte ich mir im Anschluss viel arbeit ersparen.

Mr-Ferret

Hallo,

ich hab mal wieder eine Frage:

Versuche gerade mehrere Dateien von einem Ordner in einen anderen zu kopieren, (funktioniert) und danach abzufragen ob der Kopiervorgang erfolgreich war.

Also erst mit FileOpenDialog die Dateien zum kopieren auswählen, dann mit FileCopy in einen Ordner zu kopieren und nun komm ich nicht weiter.

Wie kann ich den FileExist bauen, damit dieser die Dateien im Array, aus dem FileOpenDialog, mit den kopierten Dateien vergleicht??????

Nun müsste ich wohl mit StringSplit weitermachen, aber hier stoße ich an meine Grenzen, ich kapiers nicht.

Spoiler anzeigen

Code

Func FcnKopierenTest()
    $sSichOrdner =  GUICtrlRead($RFC_Nr)
    $TargetFcnTest01 =  IniRead("Settings.ini", "pfade", "Test_Funktion","")
    $TargetFcnDev01 =  IniRead("Settings.ini", "pfade", "Dev_Funktion","")
    
        Local Const $sMessage = "Strg oder Shift drücken um mehrere Dateien auszuwählen."
        Local $sFcnOpenDialog = FileOpenDialog($sMessage, $TargetFcnDev01, "Overlay (*.fcn)|Alle (*.*)", BitOR($FD_FILEMUSTEXIST, $FD_MULTISELECT))
            If @error Then
                ; Zeigt die Fehlermeldung.
                MsgBox($MB_SYSTEMMODAL, "", "Keine Dateien ausgewählt.")
            Else
                $sSichOrdner =  GUICtrlRead($RFC_Nr)
                $Verz_Fcn_Sich =  $TargetFcnTest01  & @YEAR & @MON & @MDAY & @HOUR & @MIN & "_" & $sSichOrdner &  "\"
                  DirCreate($Verz_Fcn_Sich)
                     ConsoleWrite($Verz_Fcn_Sich)
                $lEintrag =  "Verzeichnis " & $Verz_Fcn_Sich & "wurde erstellt."
                    _WriteLog($lEintrag)
               
               Local $aFcn = StringSplit($sFcnOpenDialog, "|") ; Trennt den String durch das Trennzeichen ",".
                For $i = 2 To $aFcn[0] ; Durchläuft das Array, welches durch StringSplit zurückgegeben wurde und stellt die Werte dar.

                  FileCopy($TargetFcnTest01 & $aFcn[$i], $Verz_Fcn_Sich  & $aFcn[$i])
                    If FileExists($Verz_Fcn_Sich & *.fcn) Then 
                        $lEintrag =  "Folgende Datei/en" & @CRLF & $aFcn[$i] & " wurden in das Verzeichnis " & $Verz_Fcn_Sich &  " kopieret"
                            _WriteLog
                     Else 
                        MsgBox(0,  "Error",  "Achtung es wurden keine Dateien gesichert.")
                    EndIf
                            
                    MsgBox(0, "", $TargetFcnTest01 & $aFcn[$i], $Verz_Fcn_Sich  & $aFcn[$i])
                    
                    FileCopy($TargetFcnDev01 & $aFcn[$i], $TargetFcnTest01 & $aFcn[$i], 1)
                    $lEintrag =  "Folgende Datei/en" & @CRLF & $aFcn[$i] & " wurden in das Verzeichnis " & $TargetFcnTest01 &  " kopieret"
                        _WriteLog
                     Next
                $sDateiAuswahl = StringReplace($sFcnOpenDialog, "|", @CRLF)
                                
                $LogEintrag =  "Folgende Dateien wurden kopiert : " & @CRLF & $sDateiAuswahl
                    _WriteLog($LogEintrag)
            EndIf
    EndFunc

Alles anzeigen

Vielen Dank!

Mr-Ferret

Guten Morgen und erst mal vielen Dank für die schnellen informativen Antworten.

GuiGetMsg werde ich mir gleich mal genau ansehen.

autoiter

sorry für die Formatierung, ist wohl beim einfügen in den Spoiler passiert, mein Code sieht im allgemeinen nicht so unformatiert aus. Eigentlich so:

Spoiler anzeigen

Code

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
            
;======================================================================================================================================
;                                        DUX Dateien kopieren
;======================================================================================================================================
        Case $BtnDuxKopie
            $DuxGUI = GUICreate("", $ChildBreite, $ChildHoehe, 170, 220, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST)
            GUISetBkColor(0xfffaf0, $DuxGUI)
            $BtnKopieOk = GUICtrlCreateButton("Kopie", 800, 500, 90, 20)
            $BtnKopieCancel = GUICtrlCreateButton("Cancel", 800, 600, 90, 20)
            GUISetState(@SW_SHOW, $DuxGUI)
            DllCall("user32.dll", "int", "SetParent", "hwnd", WinGetHandle($DuxGUI), "hwnd", WinGetHandle($MainGui))
            GUICtrlCreateLabel("Dux File.:",260,100,70,20,-1,-1)
            GUICtrlSetFont(-1,10,700,0,"MS Sans Serif")
            GUICtrlSetBkColor(-1,"-2")
            $DuxDatei = GUICtrlCreateInput("",340,100,150,20,-1,$WS_EX_CLIENTEDGE)
            $EingabeFile =  GUICtrlRead(26)
            
                While 1
                $nMsg = GUIGetMsg()
                switch $nMsg
                    Case $BtnKopieOk
                        $DevDuxPath =  IniRead("Settings.ini", "pfade", "Dev_Dux","" )
                        $DevEventPath =  IniRead("Settings.ini", "pfade", "Dev_Event","" )
                        $DevProcessPath =  IniRead("Settings.ini", "pfade", "Dev_Process","" )
                                
                        Local $aFileList = _FileListToArray($DevDuxPath, $EingabeFile)
                    
                        If @error = 1 Then
                                MsgBox($MB_SYSTEMMODAL, "Fehler 1", "Path was invalid.")
                            ExitLoop 
                        EndIf
                        If @error = 4 Then
                                MsgBox($MB_SYSTEMMODAL, "Fehler 4", $DevDuxPath & $EingabeFile)
                            ExitLoop 
                        EndIf
                        ; Display the results returned by _FileListToArray.
                            _ArrayDisplay($aFileList, "$aFileList")

                        ExitLoop
                        
                    Case $BtnKopieCancel
                        ExitLoop
                EndSwitch
            WEnd

Alles anzeigen

okey, immer noch nicht schön aber zumindest übersichtlicher.

Und ja, ich nutze ISN. An dieser Stelle noch einen Dank an den Autor von ISN.

Nachtrag:

Nun hab ich es geschaft, das mit den Fenstern funtioniert so wie ich das haben wollte.

Vielen Dank nochmal für die Hilfe!

Mr-Ferret

Hallo Gemeinde,

ich hoffe ich werde nicht gleich erschlagen wenn ich jetzt mit so einer (für euch ) doofen Anfänger frage komme. (Ich finde aber irgendwie nicht die Lösung)

Folgendes: Ich hab mir ein Fenster gebaut, links ein paar Button's die rechts ein Child Fenster öffnen mit etwas darin.

Sobald ich nun einen Button links klicke, bin ich im Child in einer Schleife. Die Schleife ist nötig, ich muss ja was tun. Ich komme aus der Schleife nicht ohne ExitLoop raus.

Nun meine Frage, was muß ich tun, damit ich im Menü links weiter klicken kann ohne im Child Fenster einen Button zu drücken?

Spoiler anzeigen

#include <StaticConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#Include <GuiButton.au3>

#include <DateTimeConstants.au3>

#include <EditConstants.au3>

#include <WinAPIFiles.au3>

#include <Array.au3>

#include <File.au3>

#include <MsgBoxConstants.au3>

#Region

;----------- Hauptfenster deninieren ----------------------------------------

Global $MainGui = GUICreate("StreamGui",1200,950,-1,-1,-1,-1)

GUICtrlSetTip(-1,"Dux Dateien vom Entwicklungsserver zum Testserver kopieren")

;----------- Definition der Menübuttons -------------------------------------

Global $BtnDuxKopie = GUICtrlCreateButton("Dux Kopie",21,187,100,30,-1,-1)

_GUICtrlButton_SetFocus ( $BtnDuxKopie, $BST_INDETERMINATE = True)

GUICtrlSetTip(-1,"Dux Dateien kopieren")

Global $BtnOverlayLxf = GUICtrlCreateButton("Overlay lxf",21,247,100,30,-1,-1)

_GUICtrlButton_SetFocus($BtnOverlayLxf)

GUICtrlSetTip(-1,"Overlay's mit Endung .lxf kopieren")

Global $BtnOverlayTab = GUICtrlCreateButton("Overlay .tab",21,307,100,30,-1,-1)

GUICtrlSetTip(-1,"Overlay's mit Endung .tab kopieren")

_GUICtrlButton_SetFocus($BtnOverlayTab)

Global $BtnLanguage = GUICtrlCreateButton("Language",21,367,100,30,-1,-1)

GUICtrlSetTip(-1,"Language.sls kopieren.")

Global $BtnFunktionFile = GUICtrlCreateButton("Funnktion File",21,427,100,30,-1,-1)

GUICtrlSetTip(-1,"Funktion Fieles auswählen und kopieren.")

Global $BtnLogDatei = GUICtrlCreateButton("Logdateien",21,607,100,30,-1,-1)

GUICtrlSetTip(-1,"Logdateien prüfen, sehen ob alles richtig gelaufen ist.")

Global $BtnEinstellungen = GUICtrlCreateButton("Einstellungen",21,664,100,30,-1,-1)

GUICtrlSetTip(-1,"Die Programm Einstellungen prüfen oder ändern.")

Global $BtnEnde = GUICtrlCreateButton("Ende",21,778,100,30,-1,-1)

GUICtrlSetTip(-1,"Programm beenden.")

;---------------Kopfzeilen definieren ------------------------------------------

GUICtrlCreateLabel("StreamServ Entwicklung nach Test.",380,30,331,47,-1,-1)

GUICtrlSetFont(-1,15,400,0,"MS Sans Serif")

GUICtrlSetBkColor(-1,"-2")

$RFC_Nr = GUICtrlCreateInput("20",510,100,150,20,-1,$WS_EX_CLIENTEDGE)

GUICtrlSetFont(-1,10,400,0,"MS Sans Serif")

GUICtrlSetTip(-1,"Geben Sie bitte die RFC Nummer ein.")

GUICtrlCreateLabel("RFC Nr.:",428,104,68,20,-1,-1)

GUICtrlSetFont(-1,10,700,0,"MS Sans Serif")

GUICtrlSetBkColor(-1,"-2")

GUICtrlCreateLabel("Programmierer:",380,140,116,24,-1,-1)

GUICtrlSetFont(-1,10,700,0,"MS Sans Serif")

GUICtrlSetBkColor(-1,"-2")

$Programmierer = GUICtrlCreateInput("",510,140,150,20,-1,$WS_EX_CLIENTEDGE)

GUICtrlSetFont(-1,10,400,0,"MS Sans Serif")

GUICtrlSetTip(-1,"Geben Sie bitte den Namen des Programmieres ein.")

GUICtrlCreateLabel("Datum:",442,185,50,15,-1,-1)

GUICtrlSetFont(-1,10,700,0,"MS Sans Serif")

GUICtrlSetBkColor(-1,"-2")

GUICtrlCreateDate("Saturday, 1. January 2011",510,179,186,21,-1,-1)

$Notizen = GUICtrlCreateInput("",835,100,236,105,-1,$WS_EX_CLIENTEDGE)

GUICtrlCreateLabel("Notitzen:",760,100,60,15,-1,-1)

GUICtrlSetFont(-1,10,700,0,"MS Sans Serif")

GUICtrlSetBkColor(-1,"-2")

GUICtrlCreateLabel("Sie sind angemeldet als: " & @UserName ,760,50,400)

GUICtrlSetFont(-1,10,700,0,"MS Sans Serif")

GUICtrlSetBkColor(-1,"-2")

GUISetState(@SW_SHOW)

Global $ChildBreite = 1000

Global $ChildHoehe = 700

#EndRegion

;---------------Programm start ------------------------------------------

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

ExitLoop

;======================================================================================================================================

; DUX Dateien kopieren

;======================================================================================================================================

Case $BtnDuxKopie

$DuxGUI = GUICreate("", $ChildBreite, $ChildHoehe, 170, 220, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST)

GUISetBkColor(0xfffaf0, $DuxGUI)

$BtnKopieOk = GUICtrlCreateButton("Kopie", 800, 500, 90, 20)

$BtnKopieCancel = GUICtrlCreateButton("Cancel", 800, 600, 90, 20)

GUISetState(@SW_SHOW, $DuxGUI)

DllCall("user32.dll", "int", "SetParent", "hwnd", WinGetHandle($DuxGUI), "hwnd", WinGetHandle($MainGui))

GUICtrlCreateLabel("Dux File.:",260,100,70,20,-1,-1)

GUICtrlSetFont(-1,10,700,0,"MS Sans Serif")

GUICtrlSetBkColor(-1,"-2")

$DuxDatei = GUICtrlCreateInput("",340,100,150,20,-1,$WS_EX_CLIENTEDGE)

$EingabeFile = GUICtrlRead(26)

While 1

$nMsg = GUIGetMsg()

switch $nMsg

Case $BtnKopieOk

$DevDuxPath = IniRead("Settings.ini", "pfade", "Dev_Dux","" )

$DevEventPath = IniRead("Settings.ini", "pfade", "Dev_Event","" )

$DevProcessPath = IniRead("Settings.ini", "pfade", "Dev_Process","" )

Local $aFileList = _FileListToArray($DevDuxPath, $EingabeFile)

If @error = 1 Then

MsgBox($MB_SYSTEMMODAL, "Fehler 1", "Path was invalid.")

ExitLoop

EndIf

If @error = 4 Then

MsgBox($MB_SYSTEMMODAL, "Fehler 4", $DevDuxPath & $EingabeFile)

ExitLoop

EndIf

; Display the results returned by _FileListToArray.

_ArrayDisplay($aFileList, "$aFileList")

ExitLoop

Case $BtnKopieCancel

ExitLoop

EndSwitch

WEnd

;======================================================================================================================================

; Overlay LXF Dateien kopieren

;======================================================================================================================================

Case $BtnOverlayLxf

$OverlayLxfGui = GUICreate("", $ChildBreite, $ChildHoehe, 170, 220, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST)

GUISetBkColor(0xfffaf0, $OverlayLxfGui)

$BtnCancel = GUICtrlCreateButton("Cancel", 800, 500, 90, 20)

$BtnLxfAusw = GUICtrlCreateButton("Dateien", 400, 300, 90, 20)

$BtnOk = GUICtrlCreateButton("OK", 700, 500, 90, 20)

GUISetState(@SW_SHOW, $OverlayLxfGui)

DllCall("user32.dll", "int", "SetParent", "hwnd", WinGetHandle($OverlayLxfGui), "hwnd", WinGetHandle($MainGui))

GUICtrlCreateLabel("Overlay Dateien Kopieren.",260,100,300,20,-1,-1)

GUICtrlSetFont(-1,10,700,0,"MS Sans Serif")

GUICtrLCreateLabel("Klicken Sie auf den Button Datein, im darauf folgenden Fenster wählen Sie die zu übernehmenden Datein aus.", 260, 140)

GUICtrLCreateLabel("Drücken Sie danach auf den OK Butten, anschließend werden die ausgeählten Dateien noch einmal angezeigt.", 260, 160)

GUICtrlCreateLabel("Ein weitere Klick auf OK erstellt eine Sicherungskopie der Orginaldatein und kopiert die Dateien auf den TestServer.", 260, 180)

GUICtrlSetBkColor(-1,"-2")

EndSwitch

WEnd

#cs

While 1

$aMsg = GUIGetMsg()

Switch $aMsg

Case $BtnLxfAusw

; Create a constant variable in Local scope of the message to display in FileOpenDialog.

Local $sMessage = "Um mehrere Dateien auszuwählen, die Taste [Strg] oder [Shift] gedrückt halten."

; Display an open dialog to select a list of file(s).

Local $sFileOpenDialog = FileOpenDialog($sMessage, @WindowsDir & "\", "Images (*.jpg;*.bmp; *.*)|Videos (*.avi;*.mpg)", BitOR($FD_FILEMUSTEXIST, $FD_MULTISELECT))

If @error Then

; Display the error message.

MsgBox($MB_SYSTEMMODAL, "", "Sie haben keine Datei ausgewählt.")

ExitLoop

Else

; Replace instances of "|" with @CRLF in the string returned by FileOpenDialog.

$sFileOpenDialog = StringReplace($sFileOpenDialog, "|", @CRLF)

; Display the list of selected files.

MsgBox(0, "", "Sie haben folgende Dateien ausgewählt:" & @CRLF & $sFileOpenDialog)

ExitLoop

EndIf

; KopieLxf()

Case $BtnCancel

ExitLoop

MsgBox(0, "", "raus oder nicht")

Case $BtnDuxKopie

ExitLoop

Case $BtnLanguage

ExitLoop

EndSwitch

WEnd

#ce

Vielen Dank in der Hoffnun das ich nicht gesteinigt werde

Mr-Ferret

Vielen Dank!
Jetzt funktioniert das so wie ich mir das vorgestellt habe.
Manchmal kommt man auf die essentiellen Dinge nicht.

Mr-Ferret

Hallo Gemeinde,
ich wollte mit einer kleinen DB anfangen, geht ja eingentlich schon ein wenig, aber nun stecke ich fest:
Wenn ich die Werte im Script direct eintrage, (ab zeile 53) wird alles in die DB Tabelle geschrieben, aber über die GUI bekomme ich immer nur die gleichen Zahlen eingetragen.
Vielleicht ist jemand so freundlich und zeigt mir den Fehler bzw. Weg.

Spoiler anzeigen

AutoIt: AdressenIns

#include "Mysql.au3"
#include-once
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>


$adressen = GUICreate("adressen",470,510,-1,-1,-1,-1)
GUICtrlCreateLabel("Adressen",140,25,85,20,-1,-1)
GUICtrlSetFont(-1,14,400,0,"MS Sans Serif")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Name",40,80,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Vorame",40,120,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Strasse",40,160,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Nummer",40,200,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("PLZ",40,240,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Ort",40,280,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Geb. Datum",40,320,63,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Tel. Nr.",40,360,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Handy Nr.",40,400,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
$name = GUICtrlCreateInput("",140,80,250,20,-1,512)
$vorname = GUICtrlCreateInput("",140,120,250,20,-1,512)
$strasse = GUICtrlCreateInput("",140,160,250,20,-1,512)
$strnummer = GUICtrlCreateInput("",140,200,250,20,-1,512)
$plz = GUICtrlCreateInput("",140,240,250,20,-1,512)
$ort = GUICtrlCreateInput("",140,280,250,20,-1,512)
$gebdatum = GUICtrlCreateInput("",140,320,250,20,-1,512)
$telnr = GUICtrlCreateInput("",140,360,250,20,-1,512)
$handynr = GUICtrlCreateInput("",140,400,250,20,-1,512)
$submit = GUICtrlCreateButton("OK",140,440,100,30,-1,-1)
$cancel = GUICtrlCreateButton("Cancel",290,440,100,30,-1,-1)
GUISetState(@SW_SHOW,$adressen)


dim $values[9]
$values[0] = "name"
$values[1] = "vorname"
$values[2] = "strasse"
$values[3] = "hausnr"
$values[4] = "plz"
$values[5] = "ort"
$values[6] = "geb"
$values[7] = "tel"
$values[8] = "";make sure u have one extra blank element


dim $werte[9]
$werte[0] = $name
$werte[1] = $vorname
$werte[2] = $strasse
$werte[3] = $strnummer
$werte[4] = $plz
$werte[5] = $ort
$werte[6] = $gebdatum
$werte[7] = $telnr
$werte[8] = ""


; $Verz = $asSplit[$asSplit[0]]


$sql = _MySQLConnect("root","","datenbank","localhost")




While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			_MySQLEnd($sql)
			Exit
		Case $cancel
			_MySQLEnd($sql)
			Exit
		Case $submit
			_AddRecord($sql, 'adressen', $values, $werte)
	EndSwitch
WEnd

Alles anzeigen

Danke!

Mr-Ferret

Vielen Dank nochmal,
ich find diese Variante von Kanashius noch besser! Da ist man doch gleich noch ne ganze Ecke flexibler!

Mr-Ferret

Vielen Dank für die schnellen Antworten,
jedoch kann mir das jemand anhand eines Beispiels erklären?!
Ich muss zu meiner Schande gestehen, den Teil mit dem Tail habe ich "nur" angepasst.

Dnke nochmal.

Mr-Ferret

Hallo Gemeinde,

vielleicht (und davon gehe ich aus) kann mir jemand von euch bei der Lösung meines Problems helfen.
Ich hab mir ein kleins Prog. geschrieben mit verschiedenen Funktionen unter anderem ein Fenster in dem ein Tail läuft.
Das funktioniert auch alles, sobald ich aber den Tail aufrufe, komme ich aus der Schleife nicht mehr raus. Das Fenster des Tail läßt sich nicht mehr verbergen und ist immer im Vordergrund.

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <IniDateiTst.au3>
; #include <LaufwerkeTst.au3>
Func Start()
EndFunc ;==>Start

[/autoit] [autoit][/autoit] [autoit]

#region ### Aufbau der Benutzeroberfläche ###

[/autoit] [autoit][/autoit] [autoit]

$Form1_1 = GUICreate("Persuasion Manager", 800, 600, 200, 100)
$Beginn = GUICtrlCreateTab(16, 48, 585, 353)
GUICtrlCreateLabel("Persuasioin Manager für die Test! ", 100, 10, 400, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x55AA00)
$OverLayInst = GUICtrlCreateTabItem("Start")
GUICtrlCreateLabel("Persuasion Manager ", 176, 124, 208, 28)
GUICtrlSetColor(-1, 0x0066CC)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Schön das Sie sich für den Persuasion Manager entschieden haben ;-)", 80, 180, 400, 17)
GUICtrlCreateLabel("Dises Programm soll Sie bei der Verwaltung der Output Server für M3 unterstützen.", 80, 200, 400, 17)
GUICtrlCreateLabel("Durch klicken auf die oberen Reiter gelangen Sie zu den einzelnen Funktionen.", 80, 220, 400, 17)

[/autoit] [autoit][/autoit] [autoit]

; ===================================================== D U X F I L E I N S T A L L A T I O N ======================================

[/autoit] [autoit][/autoit] [autoit]

$DuxInstall = GUICtrlCreateTabItem("Dux Install")
$DuxInstButton = GUICtrlCreateButton("OK", 224, 320, 89, 25)
GUICtrlCreateLabel("Dux File Installation ", 176, 144, 208, 28)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0066CC)
GUICtrlCreateLabel("Bitte tragen Sie im unten stehende Feld die RFC Nummer für die Sicherung ein.", 120, 200, 375, 17)
$sDuxSichVerz = GUICtrlCreateInput("", 192, 225, 177, 20)
GUICtrlSetBkColor(-1, "-2")
GUICtrlCreateLabel("Bitte geben Sie hier den Namen des neuen Dux-files ein. z.B. MWS435", 120, 260, 375, 30, -1, -1)
$fDuxFile = GUICtrlCreateInput("", 192, 285, 177, 20, -1, 512)

[/autoit] [autoit][/autoit] [autoit]

; ===================================================== O V E R L A Y I N S T A L L A T I O N ======================================

[/autoit] [autoit][/autoit] [autoit]

$OverLayInst = GUICtrlCreateTabItem("Overlay Install")
$aSichNr = GUICtrlCreateInput("", 192, 248, 177, 21)
$Label3 = GUICtrlCreateLabel("Overlay Installation ", 176, 144, 185, 28)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0066CC)
$sOverButton = GUICtrlCreateButton("Overlay", 216, 320, 123, 25)
$TextOver_1 = GUICtrlCreateLabel("Tragen Sie Bitte die RFC Nummer in das Feld ein und klicken anschliessend", 115, 181, 378, 17)
$TextOver_2 = GUICtrlCreateLabel("auf den Button Overlay um die zu Installierende Datei auszuwählen.", 115, 201, 378, 17)
; ==============================================================================================================
; L o g D a t e i l e s e n
; ==============================================================================================================
$TabSheet8 = GUICtrlCreateTabItem("Log File lesen")
; $aDateiLesen = GUICtrlCreateEdit(" ", 20,80,500,300)
$aButtonLogStart=GUICtrlCreateButton("Start", 520,100,80)
; ==============================================================================================================
; L o g D a t e i l e s e n
; ==============================================================================================================
$TabSheet9 = GUICtrlCreateTabItem("Platzhalter")