Beiträge von mausk

  • Sonderzeichen

    Hi name22,


    danke für die schnelle Antwort.

    Anbei das ganze Coding:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <GuiButton.au3>
    #include <SQLite.au3>
    #include <SQLite.dll.au3>
    Global $hDB
    $frmMain = GUICreate("Carrier - Störungshierarchie v1.0 ©Mike Schmaler",481,226,-1,-1,-1,-1)
    $cboSchadensbild = GUICtrlCreateCombo("",127,119,230,21,-1,-1)
    GUICtrlSetData(-1,"")
    GUICtrlSetState(-1,144)
    GUICtrlSetTip(-1,"Bitte Schadensbild auswählen...")
    $cboSchadensgruppe = GUICtrlCreateCombo("",127,89,230,21,-1,-1)
    GUICtrlSetData(-1,"")
    GUICtrlSetState(-1,144)
    GUICtrlSetTip(-1,"Bitte Schadensgruppe auswählen...")
    $cboMassnahme = GUICtrlCreateCombo("",127,179,230,21,-1,-1)
    GUICtrlSetData(-1,"")
    GUICtrlSetState(-1,144)
    GUICtrlSetTip(-1,"Bitte Maßnahme auswählen...")
    $cboUrsache = GUICtrlCreateCombo("",127,149,230,21,-1,-1)
    GUICtrlSetData(-1,"")
    GUICtrlSetState(-1,144)
    GUICtrlSetTip(-1,"Bitte Ursache auswählen...")
    $cboObjektteil = GUICtrlCreateCombo("",127,59,230,21,-1,-1)
    GUICtrlSetData(-1,"")
    GUICtrlSetState(-1,144)
    GUICtrlSetTip(-1,"Bitte Objektteil auswählen...")
    $cboObjektgruppe = GUICtrlCreateCombo("",127,29,230,21,-1,-1)
    GUICtrlSetData(-1,"")
    GUICtrlSetTip(-1,"Bitte Objektgruppe auswählen...")
    GUICtrlCreateLabel("",372,62,106,15,-1,-1)
    GUICtrlSetColor(-1,"0x008000")
    GUICtrlSetBkColor(-1,"-2")
    $lblObjektgruppe = GUICtrlCreateLabel("bitte auswählen...",371,32,106,15,-1,-1)
    GUICtrlSetColor(-1,"0x008000")
    GUICtrlSetBkColor(-1,"-2")
    GUICtrlCreateLabel("",372,152,106,15,-1,-1)
    GUICtrlSetColor(-1,"0x008000")
    GUICtrlSetBkColor(-1,"-2")
    GUICtrlCreateLabel("",372,182,106,15,-1,-1)
    GUICtrlSetColor(-1,"0x008000")
    GUICtrlSetBkColor(-1,"-2")
    GUICtrlCreateLabel("",372,92,106,15,-1,-1)
    GUICtrlSetColor(-1,"0x008000")
    GUICtrlSetBkColor(-1,"-2")
    GUICtrlCreateLabel("",372,122,106,15,-1,-1)
    GUICtrlSetColor(-1,"0x008000")
    GUICtrlSetBkColor(-1,"-2")
    GUICtrlCreateLabel("Ursache",27,149,106,15,-1,-1)
    GUICtrlSetBkColor(-1,"-2")
    GUICtrlCreateLabel("Schadensbild",27,119,106,15,-1,-1)
    GUICtrlSetBkColor(-1,"-2")
    GUICtrlCreateLabel("Schadensgruppe",27,89,106,15,-1,-1)
    GUICtrlSetBkColor(-1,"-2")
    GUICtrlCreateLabel("Objektgruppe",27,29,106,15,-1,-1)
    GUICtrlSetBkColor(-1,"-2")
    GUICtrlCreateLabel("Objektteil",27,59,106,15,-1,-1)
    GUICtrlSetBkColor(-1,"-2")
    GUICtrlCreateLabel("Maßnahme",27,179,106,15,-1,-1)
    GUICtrlSetBkColor(-1,"-2")
    GUISetState(@SW_SHOW,$frmMain)
    _OpenDB()
    _GetData("tblObjektgruppen", "ObjGrpTxt", "", $cboObjektgruppe)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ; Datenbank schliessen
    _CloseDB()
    ; Programm verlassen
    Exit
    Case $cboObjektgruppe
    ; Combobox des nächsten Level aktivieren
    GUICtrlSetState($cboObjektteil,$GUI_ENABLE)
    GUICtrlSetState($cboSchadensgruppe,$GUI_DISABLE)
    GUICtrlSetState($cboSchadensbild,$GUI_DISABLE)
    GUICtrlSetState($cboUrsache,$GUI_DISABLE)
    GUICtrlSetState($cboMassnahme,$GUI_DISABLE)
    ; Leere Combobox des nächsten Level
    GuiCtrlSetData($cboObjektteil, "")
    Case $cboObjektteil
    ; Combobox des nächsten Level aktivieren
    GUICtrlSetState($cboSchadensgruppe,$GUI_ENABLE)
    GUICtrlSetState($cboSchadensbild,$GUI_DISABLE)
    GUICtrlSetState($cboUrsache,$GUI_DISABLE)
    GUICtrlSetState($cboMassnahme,$GUI_DISABLE)
    ; Leere Combobox des nächsten Level
    GuiCtrlSetData($cboSchadensgruppe, "")
    Case $cboSchadensgruppe
    ; Combobox des nächsten Level aktivieren
    GUICtrlSetState($cboSchadensbild,$GUI_ENABLE)
    GUICtrlSetState($cboUrsache,$GUI_DISABLE)
    GUICtrlSetState($cboMassnahme,$GUI_DISABLE)
    ; Leere Combobox des nächsten Level
    GuiCtrlSetData($cboSchadensbild, "")
    Case $cboSchadensbild
    ; Combobox des nächsten Level aktivieren
    GUICtrlSetState($cboUrsache,$GUI_ENABLE)
    GUICtrlSetState($cboMassnahme,$GUI_DISABLE)
    ; Leere Combobox des nächsten Level
    GuiCtrlSetData($cboUrsache, "")
    Case $cboUrsache
    ; Combobox des nächsten Level aktivieren
    GUICtrlSetState($cboMassnahme,$GUI_ENABLE)
    ; Leere Combobox des nächsten Level
    GuiCtrlSetData($cboMassnahme, "")
    Case $cboMassnahme
    EndSwitch
    WEnd
    Func _OpenDB()
    ; SQLite starten
    _SQLite_StartUp()
    ; Datenbank öffnen
    $hDB = _SQLite_Open("StoerHier.s3db")
    EndFunc
    Func _CloseDB()
    ; Datenbank schliessen
    _SQLite_Close($hDB)
    ; SQLite beenden
    _SQLite_Shutdown()
    EndFunc
    Func _GetData($sTable, $sField, $sWhere, ByRef $cbo)
    Local $hQuery, $aRow, $sValue, $sSQL
    ; SQL-String zusammensetzen
    If $sWhere <> "" Then
    $sSQL = "SELECT " & $sField & " FROM " & $sTable & " " & $sWhere & " ORDER BY " & $sField
    Else
    $sSQL = "SELECT " & $sField & " FROM " & $sTable & " ORDER BY " & $sField
    EndIf
    ; Abfrage ausführen
    _SQLite_Query($hDB, $sSQL, $hQuery)
    While _SQLite_FetchData($hQuery, $aRow) = $SQLITE_OK
    ; Eintrag in Combobox schreiben
    GUICtrlSetData($cbo, BinaryToString($aRow[0], 4))
    WEnd
    EndFunc

    [/autoit]

    Die mit SQLite erstellte Datenbank habe ich auch angehangen.


    Vielen Dank für Deine Hilfe, Mike

  • Sonderzeichen

    Hallo,


    ich schreibe die Datensätze einer SQL-Abfrage in eine Combobox, doch leider werden die Umlaute als '?' dargestellt :(

    Wer kann mir bitte helfen?

    [autoit]


    While _SQLite_FetchData($hQuery, $aRow) = $SQLITE_OK
    ; Eintrag in Combobox schreiben
    GUICtrlSetData($cbo, BinaryToString($aRow[0], 4))
    WEnd

    [/autoit]


    Vielen Dank!


    Thx, Mike

  • Scite für VBScript konfigurieren

    Hallo Fangemeinde,

    wenn ich mich richtig erinnere, kann man Scite wohl auch für die Nutzung von VBScript konfigurieren (IntelliSense ?).

    Ist das korrekt und wo kann ich eine Anleitung dazu finden?

    Vielen Dank, Mike

    P.S. Ich weiß, gehört eigentlich nicht zu AutoIt, wußte aber nicht, wo ich die Frage sonst hätte stellen können :)

  • ISN AutoIt Studio

    Hi ISI360,

    die IDE ist klasse! Da ich In der Firma keine Adminrechte besitze, kann ich sie dort leider nicht nutzen 8|

    Gibt es die Möglichkeit eine portable Version zu erstellen, die ich vom USB-Stick laufen lassen kann?


    Vielen Dank und Grüsse, Mike

  • SQLite 'mitgeben'

    Guten morgen zusammen.

    Ich lade per Script Daten vom SQLSERVER und möchte diese dann in eine SQLite-Datenbank transferieren,

    um lokal damit weiter zu arbeiten (wegen der Performance).


    Nun stellt sich mir die Frage, wie ich die SQLite-DB mit meiner Anwendung weitergeben kann. Auf den Zielrechnern ist

    SQLite nicht vorhanden. Ich bin zu folgenden Ansätzen gekommen, benötige jedoch Hilfe bei der Umsetzung :love:


    1. SQLite-DB erstellen und in die exe-Datei packen (geht das überhaupt?) Dann mit SQL-Anweisungen aus dem Script zugreifen.

    2. SQLite-DB immer bei Start der exe-Datei neu erstellen und beim Schließen der exe-datei wieder löschen.


    Bin gespannt auf Eure Antworten.

    Viele Grüsse und danke, mausk.

  • StoredProcedure MS SQL Server mit Parameter

    Hi Schumi,

    mein Script funktioniert nun, doch bei RecordCount erhalte ich IMMER -1 als Ergebnis,
    obwohl ich adOpenStatic als CursorType verwende...

    [autoit]

    AutoItSetOption("MustDeclareVars", 1)

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

    ; ADO-Reference >>> http://www.w3schools.com/ado/
    Dim $objConnection, $objRecordSet, $objCommand, $objParameter
    Dim $strConnection = "DRIVER=SQL Server;SERVER=MeinServer :( ;DATABASE=MeineDB;LANGUAGE=Deutsch;Trusted_Connection=Yes;Regional=Yes"
    Dim $strStoredProcName = "spTest"
    Dim $adOpenStatic = 3 ; CursorType
    Dim $adCommandType = 4 ; StoredProcedure
    Dim $adParamInput = 1 ; InputParameter
    Dim $adSize = 0 ; DefaultValue, (LengthDataType 'VARCHAR(50)'
    Dim $adInteger = 3 ; INT
    Dim $adVarChar = 200 ; VARCHAR
    Dim $varParamValue ; InputValue

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

    $objConnection = ObjCreate("ADODB.Connection")
    $objConnection.Open($strConnection)

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

    $objCommand = ObjCreate("ADODB.Command")
    $objCommand.ActiveConnection = $objConnection
    $objCommand.CommandText = $strStoredProcName
    $objCommand.CommandType = $adCommandType

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

    ; >>> Add InputParameters <<<
    ; 1.Parameter
    $varParamValue = 2
    $objCommand.Parameters.Append($objCommand.CreateParameter("@ID", $adInteger, $adParamInput, $adSize, $varParamValue))
    ; 2.Parameter
    $varParamValue = "Vorname2"
    $adSize = 50
    $objCommand.Parameters.Append($objCommand.CreateParameter("@Vorname", $adVarChar, $adParamInput, $adSize, $varParamValue))

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

    $objRecordSet = ObjCreate("ADODB.Recordset")
    $objRecordSet.CursorType = $adOpenStatic
    $objRecordSet = $objCommand.Execute

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

    MsgBox (64, "RecordCount", $objRecordSet.RecordCount)

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

    If $objRecordSet.BOF = True Or $objRecordSet.EOF = True Then
    MsgBox(64,"Test", "No records found")
    Else
    Do
    ConsoleWrite($objRecordSet.Fields(0).Value & @CRLF)
    $objRecordSet.MoveNext
    Until $objRecordSet.EOF = True
    EndIf

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

    $objConnection.Close

    [/autoit]

    Vielleicht weißt Du Rat :)

    Grüsse, Mike

  • StoredProcedure MS SQL Server mit Parameter

    Hallo,

    mit nachfolgendem Testscript lese ich Datensätze aus, die die StoredProcedure 'spSelectComboboxen' liefert.

    Wie müßte der Aufruf lauten, damit ich auch Parameter an die StoredProcedure übergeben kann?

    [autoit]

    $strConnexion = "DRIVER=SQL Server;SERVER=MeinServer;DATABASE=MeineDatenbank;LANGUAGE=Deutsch;Trusted_Connection=Yes;Regional=Yes"
    $strSqlQuery = "spSelectComboboxen"
    $oConn1 = ObjCreate("ADODB.Connection")
    $oRS1 = ObjCreate("ADODB.Recordset")
    $oConn1.open($strConnexion)
    $oRS1.open($strSqlQuery,$oConn1)
    $oRS1.MoveFirst
    Do
    ConsoleWrite($oRS1.Fields(0).Value & @CRLF)
    $oRS1.MoveNext
    Until $oRS1.EOF = True
    $oRS1.close
    $oConn1.close

    [/autoit]

    Vielen Dank und Grüsse, mausk

  • Script per HotKey starten

    Hallo,

    ich bin Neuling und teste gerade ein wenig AutoIt mit Scite.

    Wollte ein Script per HotKey {F10} starten, aber die exe.Datei rührt sich nicht :(

    Kann mir bitte jemand auf die Sprünge helfen?

    Vielen Dank, Mike

    [autoit]

    HotKeySet("{F10}","fnAusgabe")
    Func fnAusgabe()
    msgbox(64,"Testtitel","Testtext")
    EndFunc

    [/autoit]