Hallo @ all ..
Ich kenne mich leider nicht so gut aus in sqlite..das ist schon ein kleines problem.
bin aber lernbereit.
nun zu meinem folgenden problem.
ich habe ein kleines programm was mir bei meiner arbeit etwas helfen soll.
Ich arbeite in der Gastronomie.
es soll meine daten in eine datenbank eintragen und auslesen diese dann in die entsprechenden eintragen/auslesen.
vielleicht kann mir jemand helfen dies zu erklären wie ich ein input feld auslese(das ist klar) und in die sqlite datenbank eintrage in ein neues feld..
hier mein programm beispiel.
Spoiler anzeigen
;denke daran das du noch in dem programm die inputfelder sortieren musst wenn du alles zusammenbaust.
;und das du sie sortierst.
;und die if anweisungen kontrolieren die hauen nicht hin.
;und das du ladebalken erstellst mit gui.so das beim auslesen oder programmstart eine zweite ui kommt mit ladebalken.
;der dafür notwendige include ist schon drinne
;EIN HERSTELLERFELD MUSS NOCH ERSTELLT WERDEN
Opt("GUIOnEventMode", 0)
#NoTrayIcon
#include <GuiListView.au3>
#include <GUIConstants.au3>
#include "SQLite.au3"
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <GUIListBox.au3>
#include <IE.au3>
#include <WinAPI.au3>
;----------------------------------------
#include <array.au3>
#include "mysql.au3"
; MYSQL starten, DLL im PATH (enthält auch @ScriptDir), sont Pfad zur DLL angeben. DLL muss libmysql.dll heißen.
;-----------------------------------
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Verwaltungs- / Warenbestandsprogramm Vers.: 1.00 by Black_Hackers", 803, 669, 180, 52)
$Tab1 = GUICtrlCreateTab(8, 8, 785, 649)
$TabSheet1 = GUICtrlCreateTabItem("Waren Eintragen")
GUICtrlSetState(-1,$GUI_SHOW)
$Group1 = GUICtrlCreateGroup("Waren Eintragen", 16, 41, 769, 265)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("Produkt-Nr.:", 32, 65, 169, 22)
$Input2 = GUICtrlCreateInput("Produkt.:", 32, 89, 169, 22)
$Combo1 = GUICtrlCreateCombo("Einheit wählen", 32, 113, 169, 25)
GUICtrlSetData(-1, "Kg|Gramm|Stk|Liter|Flaschen|Dosen|Kisten")
$Combo2 = GUICtrlCreateCombo("Abteilung wählen", 32, 137, 169, 25)
GUICtrlSetData(-1, "Küche|Service|Sonstiges")
$Input3 = GUICtrlCreateInput("Maximal-Bestand.:", 32, 161, 169, 22)
$Input4 = GUICtrlCreateInput("Melde-Bestand.:", 32, 185, 169, 22)
$Input5 = GUICtrlCreateInput("Mindest-Bestand.:", 32, 209, 169, 22)
$Input6 = GUICtrlCreateInput("Preis.:", 32, 233, 169, 22)
$Input7 = GUICtrlCreateInput("Lieferant.:", 216, 65, 169, 22)
$Input8 = GUICtrlCreateInput("Kunden-Nummer.:", 216, 89, 169, 22)
$Input9 = GUICtrlCreateInput("Adresse.: Straße, Hausnummer", 216, 113, 169, 22)
$Input10 = GUICtrlCreateInput("Adresse.: Plz, Ort", 216, 137, 169, 22)
$Input11 = GUICtrlCreateInput("Telefon-Nr.:", 216, 161, 169, 22)
$Input12 = GUICtrlCreateInput("Fax-Nr.:", 216, 185, 169, 22)
$Input13 = GUICtrlCreateInput("Internetseite.:", 216, 209, 169, 22)
$Input14 = GUICtrlCreateInput("Bemerkung.:", 216, 233, 169, 22)
$MonthCal1 = GUICtrlCreateMonthCal("2012/06/08", 400, 65, 185, 185); <--------hier soll er die daten aus der config dann lesen.
$Date1 = GUICtrlCreateDate("2012/06/08 07:33:19", 592, 65, 185, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Ware Eintragen", 24, 265, 753, 33)
$Group2 = GUICtrlCreateGroup("Waren Löschen", 16, 313, 769, 265)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Combo3 = GUICtrlCreateCombo("Produkt wählen", 30, 335, 169, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Input15 = GUICtrlCreateInput("Produkt-Nr.:", 30, 359, 169, 22)
$Input16 = GUICtrlCreateInput("Einheit.:", 30, 383, 169, 22)
$Input17 = GUICtrlCreateInput("Abteilung.:", 30, 407, 169, 22)
$Input18 = GUICtrlCreateInput("Maximal-Bestand.:", 30, 431, 169, 22)
$Input19 = GUICtrlCreateInput("Melde-Bestand.:", 30, 455, 169, 22)
$Input20 = GUICtrlCreateInput("Mindest-Bestand.:", 30, 479, 169, 22)
$Input21 = GUICtrlCreateInput("Preis.:", 30, 503, 169, 22)
$Input22 = GUICtrlCreateInput("Lieferant.:", 213, 335, 169, 22)
$Input23 = GUICtrlCreateInput("Kunden-Nummer.:", 213, 359, 169, 22)
$Input24 = GUICtrlCreateInput("Adresse.: Straße, Hausnummer", 213, 383, 169, 22)
$Input25 = GUICtrlCreateInput("Adresse.: Plz, Ort", 213, 407, 169, 22)
$Input26 = GUICtrlCreateInput("Telefon-Nr.:", 213, 431, 169, 22)
$Input27 = GUICtrlCreateInput("Fax-Nr.:", 213, 455, 169, 22)
$Input28 = GUICtrlCreateInput("Internetseite.:", 213, 479, 169, 22)
$Input29 = GUICtrlCreateInput("Bemerkung.:", 213, 503, 169, 22)
$Date2 = GUICtrlCreateDate("2012/06/08 07:33:22", 592, 337, 185, 193)
$MonthCal2 = GUICtrlCreateMonthCal("2012/06/08", 392, 337, 185, 185)
$Button2 = GUICtrlCreateButton("Ware abrufen", 24, 538, 361, 33)
$Button3 = GUICtrlCreateButton("Waren löschen", 399, 538, 377, 33)
$Edit1 = GUICtrlCreateEdit("WERBEBANNER", 16, 585, 769, 65)
GUICtrlSetData(-1, "WERBEBANNER")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$COMBOaktuel = IniReadSectionNames(@ScriptDir & "\index.ini")
If FileExists($COMBOaktuel) Then
MsgBox(4096, "Datei C:\autoexec.bat", "Existiert")
Else
For $i = 1 To $COMBOaktuel[0]
GUICtrlSetData ($Combo3 , $COMBOaktuel[$i])
GUISetState (-1)
Next
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_DATENiniPRUEFEN()
_warenSCHREIBEN()
_INPUTauslesen()
Case $Button2
ExitLoop
EndSwitch
WEnd
Func _DATENiniPRUEFEN()
$SEKTION = GUICtrlRead($Input1)
$variable1 = IniReadSection(@ScriptDir & "\index", $SEKTION)
If @error Then
MsgBox(4096, "Achtung", "keine Ini Datei vorhanden, oder kein Eintrg gefunden")
Else
For $i1 = 1 To $variable1[0][0]
GUICtrlSetData ($Input1,$SEKTION)
GUICtrlSetData ($Input2,$variable1[$i1][0])
GUICtrlSetData ($Combo1,$variable1[$i1][1])
MsgBox(16,"Achtung","Der Eintrag ist bereits Vorhanden.")
Next
EndIf
EndFunc
[/autoit] [autoit][/autoit] [autoit];hier unten soll mit einer if anweisung überprüft werden ob der eintrag vorhanden ist.Die ifabfrage hat noch so seine macken.
[/autoit] [autoit][/autoit] [autoit]Func _warenSCHREIBEN()
$SEKTION = GUICtrlRead($Input1)
$LESEausINPUT = GUICtrlRead($Input1)
$LESEausINI = IniReadSection(@ScriptDir & "\index.ini", $SEKTION)
$LESEfilename2 = GUICtrlRead ($Input1)
$LESEsection2 = GUICtrlRead($Input2)
$LESEkey2 = GUICtrlRead($Combo1)
$LESEvalue2 = GUICtrlRead($Combo2)
$INIschreiben = IniWrite (@ScriptDir & "\index.ini",$LESEfilename2,$LESEsection2,$LESEkey2)
If $LESEausINI < 0 Then
MsgBox(1,"","bereits vorhanden")
ElseIf $LESEausINI > 0 Then
MsgBox(48,"Daten erstellt","Ihr Eintrag wurde erfolgreich erstellt.")
EndIf
[/autoit] [autoit][/autoit] [autoit]EndFunc
;hier soll er alle einträge in eine ini datei eintragen.aber den ini namen der zur erstellenden ini soll er aus der index ini lesen.
Func _INPUTauslesen()
$leseCOMBO1 = GUICtrlRead($Combo1)
$leseCOMBO2 = GUICtrlRead($Combo2)
$leseINPUT1 = GUICtrlRead($Input1)
$leseINPUT2 = GUICtrlRead($Input2)
$leseINPUT3 = GUICtrlRead($Input3)
$leseINPUT4 = GUICtrlRead($Input4)
$leseINPUT5 = GUICtrlRead($Input5)
$leseINPUT6 = GUICtrlRead($Input6)
$leseINPUT7 = GUICtrlRead($Input7)
$leseINPUT8 = GUICtrlRead($Input8)
$leseINPUT9 = GUICtrlRead($Input9)
$leseINPUT10 = GUICtrlRead($Input10)
$leseINPUT11 = GUICtrlRead($Input11)
$leseINPUT12 = GUICtrlRead($Input12)
$leseINPUT13 = GUICtrlRead($Input13)
$leseINPUT14 = GUICtrlRead($Input14)
$var = IniReadSectionNames(@ScriptDir & "\index.ini")
[/autoit] [autoit][/autoit] [autoit]If @error Then
MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Wahrscheinlich keine INI Datei vorhanden.")
Else
For $i = 1 To $var[0]
MsgBox(4096, "", $var[$i])
IniWrite (@ScriptDir & "\index.ini",$var[$i],"Produkt-Nr.:"& $leseInput1 & @CRLF & "Produkt.:"& $leseInput2 & @CRLF & "Einheit.:"& $leseCombo1 & @CRLF & "Abteilung.:"& $leseCombo2 & @CRLF & "Maximal.:" & $leseInput3 & @CRLF & "Melde.:" & $leseInput4 & @CRLF & "Minimal.:" & $leseInput5 & @CRLF & "Preis.:" & $leseInput6 & @CRLF & "Lieferant.:"& $leseInput7 & @CRLF & "Kunden-Nr.:" & $leseInput8 & @CRLF & "Strasse.:" & $leseInput9 & @CRLF & "Ort.:" & $leseInput10 & @CRLF & "Tel-Nr.:" & $leseInput11 & @CRLF & "Fax-Nr.:"& $leseInput12 & @CRLF & "Internet.:" & $leseInput13 & @CRLF & "Bemerkung.:" & $leseInput14,"")
Next
EndIf
EndFunc
; MYSQL starten, DLL im PATH (enthält auch @ScriptDir), sont Pfad zur DLL angeben. DLL muss libmysql.dll heißen.
_MySQL_InitLibrary()
If @error Then Exit MsgBox(0, '', "")
MsgBox(0, "DLL Version:",_MySQL_Get_Client_Version()&@CRLF& _MySQL_Get_Client_Info())
$MysqlConn = _MySQL_Init()
[/autoit] [autoit][/autoit] [autoit];Fehler Demo:
MsgBox(0,"Fehler-Demo","Fehler-Demo")
$connected = _MySQL_Real_Connect($MysqlConn,"127.0.0.1","root","","micha1621")
If $connected = 0 Then
$errno = _MySQL_errno($MysqlConn)
MsgBox(0,"Error:",$errno & @LF & _MySQL_error($MysqlConn))
If $errno = $CR_UNKNOWN_HOST Then MsgBox(0,"Error:","$CR_UNKNOWN_HOST" & @LF & $CR_UNKNOWN_HOST)
Endif
; XAMPP micha1621
MsgBox(0, "XAMPP-Micha1621-demo", "XAMPP-micha1621-demo")
$connected = _MySQL_Real_Connect($MysqlConn, "127.0.0.1", "root", "", "micha1621")
If $connected = 0 Then Exit MsgBox(16, 'Connection Error', _MySQL_Error($MysqlConn))
$query = "SELECT * FROM `kontakt-daten`"
_MySQL_Real_Query($MysqlConn, $query)
$res = _MySQL_Store_Result($MysqlConn)
[/autoit] [autoit][/autoit] [autoit]$fields = _MySQL_Num_Fields($res)
[/autoit] [autoit][/autoit] [autoit]$rows = _MySQL_Num_Rows($res)
MsgBox(0, "", $rows & "-" & $fields)
MsgBox(0, '', "Zugriff Methode 3 - alles in ein 2D Array")
$array = _MySQL_Fetch_Result_StringArray($res)
_ArrayDisplay($array)
$array[0] = $array[0]
For $i = $i +1
MsgBox(0,"",$array[$i])
Next
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; Abfrage freigeben
_MySQL_Free_Result($res)
; Verbindung beenden
_MySQL_Close($MysqlConn)
; MYSQL beenden
_MySQL_EndLibrary()
hier meine datenbank
Spoiler anzeigen
-- phpMyAdmin SQL Dump
-- version 3.4.5
-- http://www.phpmyadmin.net
--
-- Host: localhost
-- Erstellungszeit: 23. Sep 2012 um 14:12
-- Server Version: 5.5.16
-- PHP-Version: 5.3.8
SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";
SET time_zone = "+00:00";
/*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */;
/*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */;
/*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */;
/*!40101 SET NAMES utf8 */;
--
-- Datenbank: `micha1621`
--
-- --------------------------------------------------------
--
-- Tabellenstruktur für Tabelle `kontakt-daten`
--
CREATE TABLE IF NOT EXISTS `kontakt-daten` (
`Kontakt` varchar(200) COLLATE latin1_general_ci DEFAULT NULL,
`Straße` varchar(200) COLLATE latin1_general_ci DEFAULT NULL,
`Kundennummer` int(11) DEFAULT NULL,
`Plz` varchar(5) COLLATE latin1_general_ci DEFAULT NULL,
`Telefonnummer` int(15) DEFAULT NULL,
`Faxnummer` int(15) DEFAULT NULL,
`Internet Adresse` varchar(50) COLLATE latin1_general_ci DEFAULT NULL,
`Bemerkung` varchar(500) COLLATE latin1_general_ci DEFAULT NULL,
`Logo` int(100) DEFAULT NULL,
`id` bigint(20) unsigned NOT NULL AUTO_INCREMENT,
PRIMARY KEY (`id`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ;
/*!40101 SET CHARACTER_SET_CLIENT=@OLD_CHARACTER_SET_CLIENT */;
/*!40101 SET CHARACTER_SET_RESULTS=@OLD_CHARACTER_SET_RESULTS */;
/*!40101 SET COLLATION_CONNECTION=@OLD_COLLATION_CONNECTION */;
Alles anzeigen
Habe schon einen lösungsansatz..
aber bekomme kein nix ausgelesen.
Spoiler anzeigen
;EIN HERSTELLERFELD MUSS NOCH ERSTELLT WERDEN
Opt("GUIOnEventMode", 0)
#NoTrayIcon
#include <GuiListView.au3>
#include <GUIConstants.au3>
#include "SQLite.au3"
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <GUIListBox.au3>
#include <IE.au3>
#include <WinAPI.au3>
;----------------------------------------
#include <array.au3>
#include "mysql.au3"
; MYSQL starten, DLL im PATH (enthält auch @ScriptDir), sont Pfad zur DLL angeben. DLL muss libmysql.dll heißen.
;-----------------------------------
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Verwaltungs- / Warenbestandsprogramm Vers.: 1.00 by Black_Hackers", 803, 669, 180, 52)
$Tab1 = GUICtrlCreateTab(8, 8, 785, 649)
$TabSheet1 = GUICtrlCreateTabItem("Waren Eintragen")
GUICtrlSetState(-1,$GUI_SHOW)
$Group1 = GUICtrlCreateGroup("Waren Eintragen", 16, 41, 769, 265)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("Produkt-Nr.:", 32, 65, 169, 22)
$Input2 = GUICtrlCreateInput("Produkt.:", 32, 89, 169, 22)
$Combo1 = GUICtrlCreateCombo("Einheit wählen", 32, 113, 169, 25)
GUICtrlSetData(-1, "Kg|Gramm|Stk|Liter|Flaschen|Dosen|Kisten")
$Combo2 = GUICtrlCreateCombo("Abteilung wählen", 32, 137, 169, 25)
GUICtrlSetData(-1, "Küche|Service|Sonstiges")
$Input3 = GUICtrlCreateInput("Maximal-Bestand.:", 32, 161, 169, 22)
$Input4 = GUICtrlCreateInput("Melde-Bestand.:", 32, 185, 169, 22)
$Input5 = GUICtrlCreateInput("Mindest-Bestand.:", 32, 209, 169, 22)
$Input6 = GUICtrlCreateInput("Preis.:", 32, 233, 169, 22)
$Input7 = GUICtrlCreateInput("Lieferant.:", 216, 65, 169, 22)
$Input8 = GUICtrlCreateInput("Kunden-Nummer.:", 216, 89, 169, 22)
$Input9 = GUICtrlCreateInput("Adresse.: Straße, Hausnummer", 216, 113, 169, 22)
$Input10 = GUICtrlCreateInput("Adresse.: Plz, Ort", 216, 137, 169, 22)
$Input11 = GUICtrlCreateInput("Telefon-Nr.:", 216, 161, 169, 22)
$Input12 = GUICtrlCreateInput("Fax-Nr.:", 216, 185, 169, 22)
$Input13 = GUICtrlCreateInput("Internetseite.:", 216, 209, 169, 22)
$Input14 = GUICtrlCreateInput("Bemerkung.:", 216, 233, 169, 22)
$MonthCal1 = GUICtrlCreateMonthCal("2012/06/08", 400, 65, 185, 185); <--------hier soll er die daten aus der config dann lesen.
$Date1 = GUICtrlCreateDate("2012/06/08 07:33:19", 592, 65, 185, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Ware Eintragen", 24, 265, 753, 33)
$Group2 = GUICtrlCreateGroup("Waren Löschen", 16, 313, 769, 265)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Combo3 = GUICtrlCreateCombo("Produkt wählen", 30, 335, 169, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "mutti|Metro|Zur Linde")
$Input15 = GUICtrlCreateInput("Produkt-Nr.:", 30, 359, 169, 22)
$Input16 = GUICtrlCreateInput("Einheit.:", 30, 383, 169, 22)
$Input17 = GUICtrlCreateInput("Abteilung.:", 30, 407, 169, 22)
$Input18 = GUICtrlCreateInput("Maximal-Bestand.:", 30, 431, 169, 22)
$Input19 = GUICtrlCreateInput("Melde-Bestand.:", 30, 455, 169, 22)
$Input20 = GUICtrlCreateInput("Mindest-Bestand.:", 30, 479, 169, 22)
$Input21 = GUICtrlCreateInput("Preis.:", 30, 503, 169, 22)
$Input22 = GUICtrlCreateInput("Lieferant.:", 213, 335, 169, 22)
$Input23 = GUICtrlCreateInput("Kunden-Nummer.:", 213, 359, 169, 22)
$Input24 = GUICtrlCreateInput("Adresse.: Straße, Hausnummer", 213, 383, 169, 22)
$Input25 = GUICtrlCreateInput("Adresse.: Plz, Ort", 213, 407, 169, 22)
$Input26 = GUICtrlCreateInput("Telefon-Nr.:", 213, 431, 169, 22)
$Input27 = GUICtrlCreateInput("Fax-Nr.:", 213, 455, 169, 22)
$Input28 = GUICtrlCreateInput("Internetseite.:", 213, 479, 169, 22)
$Input29 = GUICtrlCreateInput("Bemerkung.:", 213, 503, 169, 22)
$Date2 = GUICtrlCreateDate("2012/06/08 07:33:22", 592, 337, 185, 193)
$MonthCal2 = GUICtrlCreateMonthCal("2012/06/08", 392, 337, 185, 185)
$Button2 = GUICtrlCreateButton("Ware abrufen", 24, 538, 361, 33)
$Button3 = GUICtrlCreateButton("Waren löschen", 399, 538, 377, 33)
$Edit1 = GUICtrlCreateEdit("WERBEBANNER", 16, 585, 769, 65)
GUICtrlSetData(-1, "WERBEBANNER")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$COMBOaktuel = IniReadSectionNames(@ScriptDir & "\index.ini")
If FileExists($COMBOaktuel) Then
MsgBox(4096, "Datei C:\autoexec.bat", "Existiert")
Else
For $i = 1 To $COMBOaktuel[0]
GUICtrlSetData ($Combo3 , $COMBOaktuel[$i])
GUISetState (-1)
Next
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Case $Button2
ExitLoop
EndSwitch
WEnd
_MySQL_InitLibrary()
If @error Then Exit MsgBox(0, 'Error', "Failed to load libmysql.dll!")
$MysqlConn = _MySQL_Init()
$connected = _MySQL_Real_Connect($MysqlConn, "127.0.0.1", "root", "", "micha1621")
If $connected = 0 Then Exit MsgBox(16, 'Connection Error', _MySQL_Error($MysqlConn))
$Produkt = GUICtrlRead ($Combo3)
$sUserNameEscaped = _MySQL_Real_Escape_String($MysqlConn, $Produkt)
_MySQL_Real_Query ($MysqlConn, "SELECT * FROM kontakt-daten WHERE Kontakt = '" & $sUserNameEscaped & "';")
$hQueryResult = _MySQL_Store_Result($MysqlConn)
If Not $hQueryResult Then Exit MsgBox(0, "", "No Result")
$aFirstRow = _MySQL_Fetch_Row_StringArray ($hQueryResult)
_MySQL_Free_Result($hQueryResult)
MsgBox (0, "Produkt", $Produkt & " has " & $aFirstRow[0] & " Daten.")
[/autoit]