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!