huhu, ich bins mal wieder^^
Hier steckt irgendwie der Wurm drin.. Fehler = The requested action with this object has failed.:
Der Fehler steckt in der Funktion UserSetOnline
[autoit]Case $Button_login
Global $getusername
Global $login_online = "1"
Global $login_offline = "0"
Global $login_username_fest = GUICtrlRead($login_username)
Global $login_password_fest = GUICtrlRead($login_password)
MySQLConnect_user()
$count = _CountRecords($sql_con_user,"chat_user","id")
$getuserId = _GetColVals($sql_con_user,"chat_user","id")
$getusername = _GetColVals($sql_con_user,"chat_user","username")
$getpassword = _GetColVals($sql_con_user,"chat_user","password")
$b = 1
Do
If $getusername[$b] & $getpassword[$b] = GUICtrlRead($login_username) & GUICtrlRead($login_password) Then
GUIDelete($login_gui)
$main_gui = GUICreate($wintitle_main, 800, 600)
$edit_chattext = GUICtrlCreateInput("", 15, 575, 500, 21)
$Button_text_send = GUICtrlCreateButton("Senden", 520, 575, 120, 21, 0)
$List_chattext = Guictrlcreatelist("",15,25,625,500)
$List_user = Guictrlcreatelist("",650,25,140,500)
GUISetState(@SW_SHOW)
EndIf
$b = $b + 1
Until $b = $count +1
UserSetOnline($sql_con_user, $sTable = "chat_user", $sCol = "online", $sVal = "1", $wCol = "username", $wVal = $login_username_fest)
[/autoit]Die Funktion UserSetOnline
[autoit]
Func UserSetOnline($oConnectionobj, $sTable, $sCol = "", $sVal = "", $wCol = "", $wVal = $login_username_fest)
MySQLConnect_user()
If IsObj($oConnectionObj) Then
$query = $oConnectionobj.execute ("UPDATE " & $stable & " SET " & $sCol & "='" & $sVal &"' WHERE " & $wCol & "='" & $wVal &"';")
$oconnectionobj.execute ($query)
EndIf
EndFunc
Hoffe mir kann jemand Helfen ![]()