Beiträge von chrisatack

  • Inventarliste erstellen MySQL Datenbank

    Zitat von hela

    gibst keine möglichkeit einen insert into befehl zu machen

    weil addrecord anscheinend nicht mehr funktioniert????

    benutze jetzt diese MYSQL UDF von progandy

    huhu

    sorry ich hab gerade nicht so viel Zeit deshalb etwas kürzer...
    etwas aktualisieren geht in etwa so...

    [autoit]

    $MySQL = "UPDATE `infosys`.`options` SET `serveronline` = '1' LIMIT 1"
    _MySQL_Real_Query($MysqlConn, $MySQL)

    [/autoit]

    etwas hinzufügen geht so..

    [autoit]

    $MySQL = "INSERT INTO `infosys`.`security` (" _
    &"`id` ," _
    &"`lasttimestamp`" _
    &")" _
    &"VALUES (" _
    &"NULL ," _
    &"'"&$jetzt&"'" _
    &");"
    _MySQL_Real_Query($MysqlConn, $MySQL)

    [/autoit]

    MFG chris :D

  • Inventarliste erstellen MySQL Datenbank

    Hi...

    Also mir hat das Programm Toad sehr gut geholfen um größere SQL Abfragen zu erstellen. Vieleicht kannst du es ja auch gebrauchen...
    hier :thumbup:

    Ich hab in meinser Software die Daten immer so ausgelesen...

    [autoit]

    $MySQL= "SELECT * FROM `plattenbeobachtung`"
    _MySQL_Real_Query($MysqlConn, $MySQL)
    $res = _MySQL_Store_Result($MysqlConn)
    $array = _MySQL_Fetch_Result_StringArray($res)
    _MySQL_Free_Result($res)
    _ArrayDisplay($array)

    [/autoit]

    Ich benutze dabei die MYSQL UDF von progandy

    MFG chris :D

  • Inventarliste erstellen MySQL Datenbank

    Hi....

    Ich habe auch sowas für meine Firma gemacht... 8|
    Am schluss bin ich zu dem Ergebnis gekommen das die Verarbeitung am besten mit autoit funktioniert. Aber die Außgabe am besten über eine Interne Intranet Seite ist. Daher kann jeder ohne Installation von irgend einem Programm die Informationen abrufen.

    Ich hatte es auch mal kurz hier vorgestellt... 8o
    ( Guck dir vor allem mal das Kommunikationsmodell an, das ist ähnlich was was du willst... )
    Falls du dazu noch genauere Informationen brauchst einfach fragen....

    MFG chris :D

  • Icon auf Bild

    Zitat von Kleiner

    Hi!


    Wo wir gerade bei den unschönen stellen sind, gibt es auch eine Möglichkeit bie ganz normale Button die haben auch immer ein Unschönen Rand?


    Lg Kleiner

    Hi...

    du meinst das Icon mit Alpha auf dem Button?
    Habe ich noch nicht probiert... Mal gucken wenn ich heute noch Zeit dazu bekomme werde ich das mal testen ;)

    MFG Chris :D

  • RibbonsBar (Office 2007 Bar) UDF

    Nein zur Zeit leider nicht....
    Ich weiß auch nicht ob es sich lohnt diese UDF zu erweitern...

    1. es gibt Office 2010. Das noch etwas schöner aussieht...
    2. Wenn dann würde ich alles mit SQLite machen anstatt array...
    3. Grafik alles mit GDI
    4. Hover.au3 benutzen...

    Mal gucken wenn ich etwas Zeit im neuen Jahr bekomme und meine jetztigen Projekte fertig sind...
    Aber ich habe es immer noch im Hinterkopf ^^
    Vieleicht sollten wir es dann auch als Gemeinschaftsprojekt machen?

    MFG chris :D

  • RibbonsBar (Office 2007 Bar) UDF

    Zitat von BugFix

    [OT]
    zur Funktion _Array2DSearch()
    Seit Prod 3.2.12.0 funktioniert _ArraySearch() auch mit 2D-Array (Suche des ersten Vorkommens eines Wertes) und mit _ArrayFindAll() werden alle Vorkommen eines Suchwertes zurückgegeben.
    ( Da ist meine Funktion aber flexibler, da sie dies optional beides tut. :D )
    [/OT]

    Danke ^^ das wusste ich auch noch nicht ;)
    Kommt davon wenn man immer auf gewohnte Funktionen zurückgreift wo man weiß das sie fuktionieren ;)

    MFG chris :D

  • RibbonsBar (Office 2007 Bar) UDF

    Servus...

    Ich hoffe das ist das was du suchst...

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include 'Ribbonsbar.au3'
    #include <array.au3>

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

    $hGui = GUICreate ( "test", 800, 500, -1, -1)
    GUISetBkColor( 0x99B9E3 )
    $hBar = _RibbonsBar_Create( $hGui, 0, 0, 800, 0, 'blue')

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

    $hTab_Start = _RibbonsBar_Create_Tab( $hBar, 'Start' )

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

    $hItem_Zwischenablage = _RibbonsBar_Create_TabItem ( $hTab_Start, 'Zwischenablage' , 163 )
    $hGrandButton_Einfuegen = _RibbonsBar_Create_GrandButton($hItem_Zwischenablage,'',467,'Var1',52, True )
    $hGrandButton_Test = _RibbonsBar_Create_GrandButton($hItem_Zwischenablage,'',47,'Var2',52, True )

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

    _RibbonsBar_Tab_SetState($hTab_Start);aktiven Tab setzen
    GUISetState()

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

    While 1
    Switch _RibbonsBar_GetMsg()
    Case -3
    Exit

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

    Case $hGrandButton_Einfuegen

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

    ; $Bar_CreateGrandButton_Array ist der Array Speicher in dem alle GrandButtons erstellt werden
    ; Hier findest du dann auch unter dem richtigen Buttonhandle das passende Handel zum Label um es aus zu lesen.
    ;~ _ArrayDisplay($Bar_CreateGrandButton_Array)
    ; Um das Handle des richtigen Labels jetzt zu finden suchen wir es mit _array2DSearch()
    $return = _Array2DSearch($Bar_CreateGrandButton_Array,$hGrandButton_Einfuegen,-1,1,0,0,False,True)
    if IsArray($return) Then
    ;Durch die Suche bekommen wir die Zeile im Array raus...
    ;...dann nur noch das Ergebnis etwas beschneiden
    ;...und damit dann aus der 6ten Spalte den Handle des Labels herausfinden..
    ;...dann das Label auslesen ... Puhhh das alles in 1er Zeile ;)
    $ButtonText = GUICtrlRead($Bar_CreateGrandButton_Array[StringTrimRight($return[0],2)][6])
    EndIf
    MsgBox (0,"Aktueller Text vom gedrücktem Buttom",$ButtonText)

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

    Case $hGrandButton_Test
    ; Eigentlich alles gleich bis das du darauf Achten musst das im Array2DSearch()
    ;...auch als Suchbegriff $hGrandButton_Test ist...
    $return = _Array2DSearch($Bar_CreateGrandButton_Array,$hGrandButton_Test,-1,1,0,0,False,True)
    if IsArray($return) Then
    $ButtonText = GUICtrlRead($Bar_CreateGrandButton_Array[StringTrimRight($return[0],2)][6])
    EndIf
    MsgBox (0,"Aktueller Text vom gedrücktem Buttom",$ButtonText)
    EndSwitch
    WEnd

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

    ;----------------------------------------------------------------------------------------------------------------------
    ;AuthorBugFix ([email='bugfix@autoit.de'][/email])
    ;----------------------------------------------------------------------------------------------------------------------
    Func _Array2DSearch($avArray, $vWhat2Find, $iDim=-1, $iStart=0, $iEnd=0, $iCaseSense=0, $fPartialSearch=False, $1stFound=False)
    Local $error = 0, $1D, $arFound[1]=[0]
    If $1stFound Then $arFound[0] = -1
    If ( Not IsArray($avArray) ) Then
    SetError(1)
    Return 0
    EndIf
    Local $UBound2nd = UBound($avArray,2)
    If @error = 2 Then $1D = True
    If ( $iEnd = 0 ) Or ( $iEnd = -1 ) Then $iEnd = UBound($avArray)-1
    If $iStart = -1 Then $iStart = 0
    If $iCaseSense = -1 Then $iCaseSense = 0
    If $iCaseSense <> 0 Then $iCaseSense = 1
    Select
    Case ( $iDim > $UBound2nd ) Or ( $iDim < -1 )
    $error += 2
    Case ( $iStart < 0 ) Or ( $iStart > UBound($avArray)-1 )
    $error += 4
    Case ( $iEnd < $iStart ) Or ( $iEnd > UBound($avArray)-1 )
    $error += 8
    EndSelect
    If $error <> 0 Then
    SetError($error)
    Return 0
    EndIf
    If $fPartialSearch <> True Then $fPartialSearch = False
    If $1D Then
    For $i = $iStart To $iEnd
    Select
    Case $iCaseSense = 0 And (Not $fPartialSearch)
    If $avArray[$i] = $vWhat2Find Then
    If $1stFound Then
    $arFound[0] = $i
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i
    $arFound[0] += 1
    EndIf
    EndIf
    Case $iCaseSense = 1 And (Not $fPartialSearch)
    If $avArray[$i] == $vWhat2Find Then
    If $1stFound Then
    $arFound[0] = $i
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i
    $arFound[0] += 1
    EndIf
    EndIf
    Case $iCaseSense = 0 And $fPartialSearch
    If StringInStr($avArray[$i], $vWhat2Find) Then
    If $1stFound Then
    $arFound[0] = $i
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i
    $arFound[0] += 1
    EndIf
    EndIf
    Case $iCaseSense = 1 And $fPartialSearch
    If StringInStr($avArray[$i], $vWhat2Find, 1) Then
    If $1stFound Then
    $arFound[0] = $i
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i
    $arFound[0] += 1
    EndIf
    EndIf
    EndSelect
    Next
    Else
    For $i = $iStart To $iEnd
    If $iDim = -1 Then
    Select
    Case $iCaseSense = 0 And (Not $fPartialSearch)
    For $k = 0 To $UBound2nd-1
    If $avArray[$i][$k] = $vWhat2Find Then
    If $1stFound Then
    $arFound[0] = $i & '|' & $k
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i & '|' & $k
    $arFound[0] += 1
    EndIf
    EndIf
    Next
    Case $iCaseSense = 1 And (Not $fPartialSearch)
    For $k = 0 To $UBound2nd-1
    If $avArray[$i][$k] == $vWhat2Find Then
    If $1stFound Then
    $arFound[0] = $i & '|' & $k
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i & '|' & $k
    $arFound[0] += 1
    EndIf
    EndIf
    Next
    Case $iCaseSense = 0 And $fPartialSearch
    For $k = 0 To $UBound2nd-1
    If StringInStr($avArray[$i][$k], $vWhat2Find) Then
    If $1stFound Then
    $arFound[0] = $i & '|' & $k
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i & '|' & $k
    $arFound[0] += 1
    EndIf
    EndIf
    Next
    Case $iCaseSense = 1 And $fPartialSearch
    For $k = 0 To $UBound2nd-1
    If StringInStr($avArray[$i][$k], $vWhat2Find, 1) Then
    If $1stFound Then
    $arFound[0] = $i & '|' & $k
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i & '|' & $k
    $arFound[0] += 1
    EndIf
    EndIf
    Next
    EndSelect
    Else
    Select
    Case $iCaseSense = 0 And (Not $fPartialSearch)
    If $avArray[$i][$iDim] = $vWhat2Find Then
    If $1stFound Then
    $arFound[0] = $i & '|' & $iDim
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i & '|' & $iDim
    $arFound[0] += 1
    EndIf
    EndIf
    Case $iCaseSense = 1 And (Not $fPartialSearch)
    If $avArray[$i][$iDim] == $vWhat2Find Then
    If $1stFound Then
    $arFound[0] = $i & '|' & $iDim
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i & '|' & $iDim
    $arFound[0] += 1
    EndIf
    EndIf
    Case $iCaseSense = 0 And $fPartialSearch
    If StringInStr($avArray[$i][$iDim], $vWhat2Find) Then
    If $1stFound Then
    $arFound[0] = $i & '|' & $iDim
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i & '|' & $iDim
    $arFound[0] += 1
    EndIf
    EndIf
    Case $iCaseSense = 1 And $fPartialSearch
    If StringInStr($avArray[$i][$iDim], $vWhat2Find, 1) Then
    If $1stFound Then
    $arFound[0] = $i & '|' & $iDim
    Return $arFound
    Else
    ReDim $arFound[UBound($arFound)+1]
    $arFound[UBound($arFound)-1] = $i & '|' & $iDim
    $arFound[0] += 1
    EndIf
    EndIf
    EndSelect
    EndIf
    Next
    EndIf
    Return $arFound
    EndFunc ;==>_Array2DSearch

    [/autoit]

    MFG chris :D

  • USB Sync

    Zitat von cris

    Hey Chris :D

    also das habe ich jetzt auch getestet und als "sehr gut" befunden ;)

    jetzt hätte ich aber noch ne andere sache, und zwar ich hab @home eine Netzwerkplatte und @arbeit ( Server 2003 ) als Domäne und in dem Netzwerk auch eine Netzwerkplatte. kann ich die beiden iwie "Syncen"??


    grüße cris

    huhu...

    Also wenn deine NAS Platten nen FTP intern haben dann geht das wunderbrar. Ich hab mei mir nämlich das gleiche ^^ @home sind 2 WD Nas mit FTP via FritzBox mit DynDNS Acc online und bei mir in der Firma habe ich auf nem Nebenserver AllwaySync laufen das mir alles regelt. Klappt einwandfrei ^^

    MFG chris :D

  • USB Sync

    Servus...

    als fertiges Programm würde ich AllwaySync empfehlen...
    Ich arbeite sehr gerne damit weil es einfach, übersichtlich und zuverlässig ist.
    die Funktionen mit dem Backup solltest du in den werweiterten Einstellungen eines Projektes finden. auch die automatische Überprüfung..

    MFG chris :D