1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. gmmg

Beiträge von gmmg

  • Probleme mit SELECT COUNT auf MSSQL DB

    • gmmg
    • 12. April 2010 um 16:34

    achso, es geht nur das count nicht ...

    hab hier noch was auf unserem sql server gefunden ...

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

    SELECT count(SPALTENNAME) as anzahl from TABELLE;

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

    ; anzahl = hier wird ein feld mit diesem namen erzeugt

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

    #include <mssql.au3>

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

    $server = "xxxx"
    $user = "xxxxx"
    $pass = "xxxx"
    $db = "db"

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

    $sql = _SQLCon($server, $user, $pass, $db)

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

    $sQuery = "Select count(id) as anzahl from HTMLTemplate"

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

    $var = _SQLQuery($sql, $sQuery)

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

    With $var
    While Not .EOF
    ;MsgBox(0, 'Output', .Fields("loginname").value)
    MsgBox(0, 'Output', .Fields("anzahl").value)

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

    .MoveNext
    WEnd
    EndWith
    _SQLEnd($sql)

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

    das funktioniert da auf jedenfall

    gruß gmmg

  • Probleme mit SELECT COUNT auf MSSQL DB

    • gmmg
    • 12. April 2010 um 16:15

    hallo thhasseler,

    versuch es mal so:

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

    $sql = _SQLCon("IP", "USER", "PW", "DB")

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

    $testvariable = _SQLQuery($sql, "select count (Spalte) from tabelle")

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

    _SQLEnd($sql)

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

    das dbo. mal weglassen ...

    hier ein beispiel, dass ich mal benutzt habe!

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

    #include <mssql.au3>

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

    $server = "xxxx"
    $user = "xxxxx"
    $pass = "xxxx"
    $db = "db"

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

    $sql = _SQLCon($server, $user, $pass, $db)

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

    $sQuery = "Select * From mitarbeiter WHERE loginname='horst'"

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

    $var = _SQLQuery($sql, $sQuery)

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

    With $var
    While Not .EOF
    MsgBox(0, 'Output', .Fields("loginname").value)
    .MoveNext
    WEnd
    EndWith
    _SQLEnd($sql)

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

    gruß gmmg

  • _ftp_fileput problem

    • gmmg
    • 7. April 2010 um 19:48

    Scripter192

    hast du nochmal getestet?

    gruß gmmg

  • _ftp_fileput problem

    • gmmg
    • 6. April 2010 um 22:54

    ich habe mir eben ein square7.ch account aufgemacht und das script getestet!

    hier habe ich 2 testdateien in die root hochgeladen und konnte die dann auch wieder löschen! (siehe bild)

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.


    was geht jetzt bei dir mit welchen dateien nicht? haben die eine bestimmte größe?

    gruß gmmg

    Dateien

    ftp_tool.JPG 25,17 kB – 0 Downloads
  • _ftp_fileput problem

    • gmmg
    • 6. April 2010 um 14:35

    folgend das script!

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <FTPEx.au3>

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

    #include<GuiTreeView.au3>
    #include<EditConstants.au3>
    #include<GUIConstantsEx.au3>
    #include<TreeViewConstants.au3>
    #include<WindowsConstants.au3>

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

    FileInstall("C:\bloodonthedancefloorgreen.jpg", @ScriptDir & "\bloodonthedancefloorgreen.jpg")

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

    Dim $filelist, $conn, $open, $setdir

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

    $server = 'ftp.strato.com'
    $username = 'ftp_user'
    $pass = 'xxx'

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

    $path = '/intern/documente/'

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

    $open = _FTP_Open($server) ;_FTP_Open
    $conn = _FTP_Connect($open,$server,$username,$pass, true)
    ;MsgBox(0,"",$conn)

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

    $setdir = _FTP_DirSetCurrent($conn, $path)
    $filelist = _FTP_ListToArrayEx($conn)

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

    ;GUI CODE STARTET HIER;
    #Region ### START Koda GUI section ### Form=C:\scripte\ftp_down_upload\Gui_miniFtp.kxf
    $Gui = GUICreate("FTP Client 1.0.0.0", 492, 500, 192, 125)
    ;GUISetBkColor(0x00708090) ; setzt hintergrundfarbe
    $pic = GUICtrlCreatePic(@ScriptDir & "\bloodonthedancefloorgreen.jpg", -60, -130, 0, 0)
    GuiCtrlSetState($pic,$GUI_DISABLE)
    $Group1 = GUICtrlCreateGroup("Filepath from Server = " & $path, 8, 16, 345, 473)
    $liste = GUICtrlCreateList("", 20, 38, 320, 435)
    ;GUICtrlSetData($liste, "")
    $Group2 = GUICtrlCreateGroup("FTP Functions", 368, 152, 105, 217)
    ;GUICtrlSetColor($Group2, 0xFFFFFF)
    $downloadbutton = GUICtrlCreateButton("Download", 379, 174, 79, 26, $WS_GROUP)
    GUICtrlSetBkColor(-1,0x00708090)
    ;GUIctrlSetState($downloadbutton,$GUI_HIDE)
    ;GUIctrlSetState($downloadbutton,$GUI_Disable)
    $uploadbutton = GUICtrlCreateButton("Upload", 379, 212, 79, 26, $WS_GROUP)
    GUICtrlSetBkColor(-1,0x00708090)
    $filedel = GUICtrlCreateButton("Delete", 379, 250, 79, 26, $WS_GROUP)
    ;GUICtrlSetBkColor(-1,0x66CC00)
    GUICtrlSetBkColor(-1,0x00708090)
    ;GUIctrlSetState($filedel,$GUI_Disable)
    $refresh = GUICtrlCreateButton("Refresh", 379, 328, 79, 26, $WS_GROUP)
    GUICtrlSetBkColor(-1,0x00708090)
    ;GUIctrlSetState($refresh,$GUI_Disable)
    $rename = GUICtrlCreateButton("Rename", 379, 286, 79, 26, $WS_GROUP)
    GUICtrlSetBkColor(-1,0x00708090)
    ;GUIctrlSetState($rename,$GUI_Disable)

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

    For $i = 1 to UBound ($filelist) -1
    GUICtrlSetData ($liste, $filelist [$i][0]&"|")
    Next

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    ;GUI CODE ENDET HIER;

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

    while 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    _FTP_Close($conn)
    ;_FTPUnInit()
    FileDelete(@ScriptDir & "\bloodonthedancefloorgreen.jpg")
    Exit
    Case $downloadButton
    ;_download()
    _splash()
    Case $uploadbutton
    _upload()
    Case $filedel
    _fileDel()
    Case $refresh
    ;_refresh()
    _splash()
    Case $rename
    ;_rename()
    _splash()
    EndSwitch
    WEnd

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

    ;----Functions----

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

    Func _download()
    $DownFile = GUICtrlRead ($liste)
    If $DownFile = "" Then
    MsgBox (16, "STOP", "Du musst erst eine Datei auswählen")
    Else
    DirCreate (@ScriptDir & "\Download")
    _FTP_ProgressDownload($conn, @ScriptDir & "\Download\" & $DownFile, "/" & $DownFile)
    EndIf
    EndFunc

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

    Func _upload()

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

    $Uploaddatei = FileOpenDialog("Auswählen","C:\","Alle (*.*)")
    If $Uploaddatei = "" Then
    MsgBox (0, "Achtung!", "Erst eine Datei auswählen!")
    Else
    $dateinamensplit = StringSplit($Uploaddatei, "\")
    $teile = $dateinamensplit[0]
    ;MsgBox(0,"",$teile)
    Global $UploadVorgang = _FTP_ProgressUpload($conn, $Uploaddatei, $path & $dateinamensplit[$teile])
    If $UploadVorgang = 1 Then
    MsgBox (64, "Okay", "hochladen erfolgreich")
    GUICtrlDelete($liste)
    _verbinden()
    $liste = GUICtrlCreateList("", 20, 38, 320, 435)
    For $i = 1 to UBound ($filelist) -1
    GUICtrlSetData ($liste, $filelist [$i][0]&"|")
    Next
    Else
    MsgBox (16, "Error", "Aufgrund eines Fehlers wird das Programm beendet!")
    Exit
    EndIf
    EndIf

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

    EndFunc

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

    Func _fileDel()

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

    $del = MsgBox(52,"Aktion bestätigen","Die datei " & GUICtrlRead($liste) & " wirklich löschen?")
    If $del = 6 Then
    $s_RemoteFile = GUICtrlRead($liste)
    _FTP_FileDelete($conn, $s_RemoteFile)
    MsgBox(64,"ok","Ok, Die Datei wurde erfolgreich gelöscht")
    GUICtrlDelete($liste)
    _verbinden()

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

    $liste = GUICtrlCreateList("", 20, 38, 320, 435)
    For $i = 1 to UBound ($filelist) -1
    GUICtrlSetData ($liste, $filelist [$i][0]&"|")
    Next
    Else
    MsgBox(16,"abbruch","Aktion abgebrochen")
    EndIf

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

    EndFunc

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

    Func _refresh()

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

    GUICtrlDelete($liste)
    _verbinden()

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

    $liste = GUICtrlCreateList("", 20, 38, 320, 435)
    For $i = 1 to UBound ($filelist) -1
    GUICtrlSetData ($liste, $filelist [$i][0]&"|")
    Next
    MsgBox(0,"ok","Erfolgreich aktualisiert")
    ;~ MsgBox(64,"nönö","schon vergessen? das geht noch nit!")

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

    EndFunc

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

    Func _rename()

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

    $s_Existing = GUICtrlRead($liste)
    $s_New = InputBox("Rename","in welchen Namen soll die Datei umbenannt werden?",$s_Existing)
    If Not @error Then
    _FTP_FileRename($conn, $s_Existing, $s_New)
    MsgBox(0,"ok","Die Datei wurde umbeannt")
    GUICtrlDelete($liste)
    _verbinden()
    $liste = GUICtrlCreateList("", 20, 38, 320, 435)
    For $i = 1 to UBound ($filelist) -1
    GUICtrlSetData ($liste, $filelist [$i][0] & "|")
    Next
    Else
    MsgBox(64,"oioi","Aktion abgebrochen!")
    EndIf

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

    EndFunc

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

    Func _splash()

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

    SplashTextOn("Info!", "Button deaktiviert!", 155,38,500,400,0,"",8)
    Sleep(1500)
    SplashOff()
    EndFunc

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

    Func _verbinden()
    $open = _FTP_Open($server)
    $conn = _FTP_Connect($open,$server,$username,$pass, true)
    $setdir = _FTP_DirSetCurrent($conn, $path)
    $filelist = _FTP_ListToArray2D($conn,0,0x80000000)
    EndFunc

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

    Dateien

    FTPEx.au3 74,74 kB – 391 Downloads
  • _ftp_fileput problem

    • gmmg
    • 6. April 2010 um 14:21

    ich kann dir ja mal mein komplettes script hochladen!

    ist ein kleiner ftp up-downloader!

    gruß gmmg

  • _ftp_fileput problem

    • gmmg
    • 6. April 2010 um 11:18

    hallo,

    ich benutze die _FTP_ProgressUpload funktion der FTPEx.au3, im beispiel in eine upload funktion integriert ...

    [autoit]


    Func _upload()

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

    $Uploaddatei = FileOpenDialog("Auswählen","C:\","Alle (*.*)")
    If $Uploaddatei = "" Then
    MsgBox (0, "Achtung!", "Erst eine Datei auswählen!")
    Else
    $dateinamensplit = StringSplit($Uploaddatei, "\")
    $teile = $dateinamensplit[0]
    ;MsgBox(0,"",$teile)
    ;Global $UploadVorgang = _FTP_UploadProgress($conn, $Uploaddatei, $path & $dateinamensplit[$teile])
    Global $UploadVorgang = _FTP_ProgressUpload($conn, $Uploaddatei, $path & $dateinamensplit[$teile])
    If $UploadVorgang = 1 Then
    MsgBox (64, "Okay", "hochladen erfolgreich")
    GUICtrlDelete($liste)
    $open = _FTP_Open($server)
    $conn = _FTP_Connect($open,$server,$username,$pass, true)
    $setdir = _FTP_DirSetCurrent($conn, $path)
    $filelist = _FTP_ListToArray2D($conn,0,0x80000000)
    $liste = GUICtrlCreateList("", 20, 38, 320, 435)
    For $i = 1 to UBound ($filelist) -1
    GUICtrlSetData ($liste, $filelist [$i][0]&"|")
    Next
    Else
    MsgBox (16, "Error", "Aufgrund eines Fehlers wird das Programm beendet!")
    Exit
    EndIf
    EndIf

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

    EndFunc

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

    gruß gmmg

  • Versetckten ordner erstellen

    • gmmg
    • 6. April 2010 um 08:34

    aber auch daran denken, dass man die trotzdem sieht, wenn man in den ordneroptionen die entsprechenden hacken setzt!

    gruß gmmg

  • Installations exe erstellen

    • gmmg
    • 2. April 2010 um 18:28

    denke mal, das es auf die größe der bilder ankommt!

    ich benutze bilder eingentlich nur in einer gui zum beispiel ist das dann ein logo ...
    das füge ich dem script mit fileinstall bei ...und lass es beim schließen wieder löschen ...

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

    ;--------- fügt bilder dem setup hinzu .......
    FileInstall("..\01Logo.gif", @ScriptDir & "\TEMP\01Logo.gif",1)
    FileInstall("..\gradientbar2.bmp", @ScriptDir & "\TEMP\gradientbar2.bmp",1)

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

    $gui = GUICreate("Setup 1.0.0.1 ...", 251, 90, 222, 137)
    GUISetBkColor(0xFFFFFF) ; setzt hintergrundfarbe
    $picbk = GUICtrlCreateLabel("", 20, 50, 205, 15)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $pic = GUICtrlCreatePic(@ScriptDir & "\TEMP\gradientbar2.bmp", 28, 70, 5, 15)
    $Pic1 = GUICtrlCreatePic(@ScriptDir & "\TEMP\01Logo.gif", 64, 0, 105, 57, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS))
    $label = GUICtrlCreateLabel("... Setup wird vorbereitet ...", 20, 70, 205, 15, $SS_CENTER)
    GUISetState(@SW_SHOW)

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

    ich benutze "Installer2Go", wenn ich ein z.b. ein msi packet aus den autoit scripten erstellen will (für softwareverteilung über gpo)

    gruß gmmg

  • Installations exe erstellen

    • gmmg
    • 2. April 2010 um 18:17

    ja ... das geht!

    hänge dir mal ein beispiel an ...

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

    FileInstall("C:\scripte\7z.dll", @ScriptDir & "\TEMP\7z.dll",1)
    ;7z.dll liegt im pfad C:\scripte\ und wird nach @ScriptDir & "\TEMP\7z.dll extrahiert

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


    clezZ, Schnitzel
    scheinbar schreiben wir alle zur fast gleichen zeit :)

  • Installations exe erstellen

    • gmmg
    • 2. April 2010 um 18:10

    hallo darter,

    was willst du genau machen?

    beispiel:

    1. du hast dein script, daraus machst du eine exe
    2. mit dieser exe willst du was machen?
    3. mit fileinstall kannst du andere dateien in dein script (exe) packen, dieses wird dann beim starten der exe in den angegebenen pfad extrahiert!
    4. registry einträge kannst du mit autoit schreiben ...
    5. zip entpacken geht auch, ich mach das über eine eingebundene 7zip.dll

    schreib mal biss mehr zu deinem anliegen ...

    wie soll der user den pfad eingeben, das musst du ihm ja über deine routine mitgeben!

    du kannst eine gui machen und machst einen open dialog, wo er dann den pfad auswählen kann, dann noch einen button " entpacken"

    gruß gmmg

  • Verbindung zur Datenbank und SQL update

    • gmmg
    • 1. April 2010 um 11:37

    hallo @anfänger,

    ich würde es mal so probieren!
    wäre schön, wenn du das ganze script mal posten könntest!

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

    Global $SQLstatement

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

    ;$SQLstatement = "UPDATE Tabelle SET Preis1 = DruckAnz where DruckAnz > 1;"
    $SQLstatement = "UPDATE Tabelle SET RESERVED1 = DruckAnz, NOTUSED = 123456 WHERE DruckAnz >= 1;"
    _db_auf_null_setzen()
    $SQLstatement = "" ; statement leeren

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

    ;Der Inhalt aus DruckAnz wird auf 0 gesetzt
    $SQLstatement = "UPDATE Tabelle SET DruckAnz = 0 where DruckAnz >= 1;"
    _db_auf_null_setzen()
    $SQLstatement = "" ; statement leeren

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

    Func _db_auf_null_setzen()
    $objconn =objCreate("ADODB.Connection")
    $objconn.Provider="Microsoft.Jet.OLEDB.4.0"
    ;$datenbank = "c:\Verzeichnis\datei.mdb"definiert oder direkt durch den Pfad ersetzt:
    $objconn.Open ($p_datenbank)
    ;$objConn.Open ("dsn=Servername;uid=Benutzername;pwd=Passwort")Anschließend folgen die SQL Statements.
    $SQLexecute = $objConn.Execute($SQLstatement)
    $objconn.close()

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

    endfunc

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

    $search = FileFindFirstFile($FirstFile)
    ; Prüfen, ob die Suche erfolgreich war
    If $search = -1 Then
    MsgBox(0, "Fehler", "Es wurden keine Dateien/Verzeichnisse gefunden, die zu dem Suchmuster passen")
    Exit
    EndIf

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

    ungetestet und ohne garantie ...

    gruß gmmg ;)

  • unattend Script für VLC-Player 1.0.5 bekomme ich nicht hin. beim Lizenzabkommen bleibt Autoit hängen.

    • gmmg
    • 29. März 2010 um 15:04

    hallo,

    man findet über google folgenden eintrag:

    Use vlc-0.9.9-win32.exe /L=1033 /S for silent install using dutch language

    natürlich in deinem beispiel mit der neuen version :)

    gruß gmmg

  • Ladebalken

    • gmmg
    • 22. März 2010 um 15:59

    es sind es nur beispiele, bei denen du den pfad anpassen musst!

    poste doch mal dein script, sonst kann keienr die fehler sehen!

    progess on in meinem beispiel 2erstellt automatisch die gui!
    bei dem anderen, muss das bild "\gradientbar2.bmp" im verzeichnis @ScriptDir & "\TEMP liegen oder in jedem beliebigen pfad den du dort angibst!

    [autoit]


    DirCreate(@ScriptDir & "\TEMP\") ;erstellt den temp pfad
    FileInstall("c:\gradientbar2.bmp", @ScriptDir & "\TEMP\gradientbar2.bmp",1) ;integriert das bild in die exe

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

    $pic = GUICtrlCreatePic(@ScriptDir & "\TEMP\gradientbar2.bmp", 28, 70, 5, 15)

    [/autoit]


    gruß gmmg

  • Ladebalken

    • gmmg
    • 22. März 2010 um 14:28

    hallo habe hier auch ein beispiel!

    einfacher ladebalken ...

    Spoiler anzeigen
    [autoit]


    #Include <Misc.au3>
    #include <File.au3>
    #include <Process.au3>
    #include <String.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    #Region ### START Koda GUI section ### Form=C:\scripte\gui.kxf
    $gui = GUICreate("Setup 1.0.0.1 ...", 251, 90, 222, 137)
    GUISetBkColor(0xFFFFFF) ; setzt hintergrundfarbe
    $picbk = GUICtrlCreateLabel("", 20, 50, 205, 15)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    ;$pic = GUICtrlCreatePic("C:\scripte\gradientbar2.bmp", 28, 70, 5, 15)
    ;$Pic1 = GUICtrlCreatePic("C:\scripte\01Logo.gif", 64, 0, 105, 57, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS))
    $pic = GUICtrlCreatePic(@ScriptDir & "\TEMP\gradientbar2.bmp", 28, 70, 5, 15)
    ;$Pic1 = GUICtrlCreatePic(@ScriptDir & "\TEMP\01Logo.gif", 64, 0, 105, 57, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS))
    $label = GUICtrlCreateLabel("... Setup wird vorbereitet ...", 20, 70, 205, 15, $SS_CENTER)
    ;$Label1 = GUICtrlCreateLabel("Label1", 16, 72, 212, 17, $SS_CENTER)

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    For $n = 1 to 200
    ControlMove($gui,"",$pic,20,50,5 + $n,15)
    sleep(20)
    Next

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

    $Counter = 5
    AdlibRegister("CountDown", 1000) ;-- ruft function countdown auf
    Sleep (6000)

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

    ;--------countdown---------------------------
    Func CountDown()
    $Counter = $Counter - 1
    GUICtrlSetData($label, "... Setup beginnt in " & $counter & " sek. ...")
    If Not $Counter Then
    AdlibUnRegister()
    GUICtrlSetData($label, "... Setup wird durchgeführt ...")
    ;GUIDelete()
    ;Exit
    EndIf
    EndFunc

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

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    beispiel 2 "progress on"

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #Include <File.au3>
    #Include <Array.au3>

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

    $FileList_01 =_FileListToArray("\\server\d$\Profiles\pc\") ; listet dateien (user) in array
    If @Error=1 Then
    MsgBox (0,"","No Files\Folders Found.")
    Exit
    EndIf

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

    ;_ArrayDisplay($FileList_01,"$FileList")
    ;MsgBox(0,"",$FileList[0])
    ;---------------
    Global $w1,$V

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

    $w1 = ($FileList_01[0] /100) ;berechnung --> $w1 = 1% von $FileList_01[0]
    ;MsgBox(0,"",$FileList_01[0] & " /" & $w1)

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

    ProgressOn("Progress Meter - Profile", " ... lösche Dateien ...", "0 %")

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

    For $x = 1 to $FileList_01[0]
    ;Msgbox(0,'Record:' & $x, $FileList_01[$x],1)

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

    $FileList_02 =_FileListToArray("\\server\d$\Profiles\pc\" & $FileList_01[$x] & "\tool\", "*.bmp",1) ; filelist to array aus zusammengesetztem pfad
    ;_ArrayDisplay($FileList_02,"$FileList")

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

    FileDelete("\\server\d$\Profiles\pc\" & $FileList_01[$x] & "\tool\", "*.bmp") ;lösche files
    $x1 = Round( $x / $w1, 0) ; wert runden

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

    sleep(100)
    ProgressSet( $x1, $x1 & " %")

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

    Next
    ProgressSet(100 , "Done", "Complete")
    sleep(500)
    ProgressOff()

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


    gruß gmmg ;)

    Bilder

    • ladebalken.JPG
      • 4,87 kB
      • 257 × 115
  • Mysql Insert + Update Data

    • gmmg
    • 22. März 2010 um 08:41

    ok, danke für deine info!

    gruß gmmg

  • Mysql Insert + Update Data

    • gmmg
    • 19. März 2010 um 14:15

    hallo progandy :)

    ok, mit Number!

    und komplett so oder?

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

    Local $sQuery = "UPDATE tab_vorgang SET `UMSATZEUR` = '" & _MySQL_Real_Escape_String($s_Row_txt_t1[2]) & _
    "',`STdatum` = '" & _MySQL_Real_Escape_String($s_Row_txt_t1[4]) & _
    "' WHERE `xNr` = " & Number($s_Row_txt_t1[1])

    [/autoit]

    gruß gmmg

  • Mysql Insert + Update Data

    • gmmg
    • 19. März 2010 um 09:49
    Zitat von gmmg

    danke für deine hilfe!

    es funktioniert jetzt ...

    es lag an der "_MySQL_Real_Escape_String()" die war falsch geschrieben!
    mir ist es aber auch nicht aufgefallen ...

    kann man das auch direkt hier machen:

    [autoit]


    Local $sQuery = "UPDATE tab_vorgang SET `UMSATZEUR` = '" & $s_Row_txt_t1[2] & "',`STdatum` = '" & $s_Row_txt_t1[4] & _
    "' WHERE `xNr` = '" & $s_Row_txt_t1[1] & "'"

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

    Local $sQuery = "UPDATE tab_vorgang SET `UMSATZEUR` = '" & _MySQL_Real_Escape_String($s_Row_txt_t1[2]) & _
    "',`STdatum` = '" & _MySQL_Real_Escape_String($s_Row_txt_t1[4]) & _
    "' WHERE `xNr` = '" & $s_Row_txt_t1[1] & "'"

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

    ;-----

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


    geht das so auch wie im zweiten beispiel?

    gruß gmmg ;)

    Alles anzeigen

    hallo,

    kann man das so wie im zweiten beispiel machen?

    gruß gmmg

  • Mysql Insert + Update Data

    • gmmg
    • 17. März 2010 um 13:57

    danke für deine hilfe!

    es funktioniert jetzt ...

    es lag an der "_MySQL_Real_Escape_String()" die war falsch geschrieben!
    mir ist es aber auch nicht aufgefallen ...

    kann man das auch direkt hier machen:

    [autoit]


    Local $sQuery = "UPDATE tab_vorgang SET `UMSATZEUR` = '" & $s_Row_txt_t1[2] & "',`STdatum` = '" & $s_Row_txt_t1[4] & _
    "' WHERE `xNr` = '" & $s_Row_txt_t1[1] & "'"

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

    Local $sQuery = "UPDATE tab_vorgang SET `UMSATZEUR` = '" & _MySQL_Real_Escape_String($s_Row_txt_t1[2]) & _
    "',`STdatum` = '" & _MySQL_Real_Escape_String($s_Row_txt_t1[4]) & _
    "' WHERE `xNr` = '" & $s_Row_txt_t1[1] & "'"

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

    ;-----

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


    geht das so auch wie im zweiten beispiel?

    gruß gmmg ;)

  • Mysql Insert + Update Data

    • gmmg
    • 17. März 2010 um 12:23

    einige klammerfehler beseitigt, funktioniert trotzdem noch nicht ...

    [autoit]


    $z_string = ("'" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[85]) & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[86]) & _
    "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[64]) & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[87]) & _
    "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[88]) & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[89]) & _
    "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[90]) & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[92]) & _
    "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[93]) & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[99]) & _
    "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[100]) & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[101]) & _
    "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[102]) & "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[103]) & _
    "','" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[105]) & "'")

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

    fehler:

    ERROR: _MySQL_RealEscapeString(): undefined function.
    $z_string = ("'" & _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[85])
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

    der abschnitt _MySQL_RealEscapeString($MysqlConn, $s_Row_txt_t1[85]) muss aber nicht in die query bei values

    die query funktioniert aber auch ohne das sichermachen, aber ist ja nicht so gut ...


    gruß gmmg

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™