Hallo, ich habe eine Abrage auf eine Firebird Datenbank.
Problem dabei: das Ergebnis gibt alle Meta DAten mit. Die brauch ich aber nicht. Kann man das irgendwie unterdrücken?
Ich brauch nur die Eckigen Klammerwerte...
Code
<results><metadata><fields><name value="Title" alias="Title" type="5" size="255" scale="0" /></fields></metadata><data><row num="1" ><Title><![CDATA[Crew Member Windbreaker in schwarz]]></Title></row></data></results>
AutoIt
#include <Array.au3>
#include <String.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GuiListView.au3>
#include <FireBird.au3>
#include <ImageSearch.au3>
#include <DesktopWidth.au3>
#include <DotNetIdentification.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StringConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 442, 192, 124)
$EAN = GUICtrlCreateInput("4250740300182", 32, 32, 233, 21)
$NAME = GUICtrlCreateInput("Name", 32, 80, 233, 21)
$Amount = GUICtrlCreateInput("Amount", 32, 128, 233, 21)
$Button1 = GUICtrlCreateButton("Search", 288, 32, 193, 49, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Save", 288, 96, 193, 57, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$List1 = GUICtrlCreateEdit("", 32, 176, 449, 227)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $h_fbDll = DllOpen(@ScriptDir & "\fbdll4vb20.dll")
Global $servername=@ComputerName
;~ Global $g_DBName="E:/Organisation/AUTOIT/Scripts/AuctionStudio1.fdb"
Global $g_DBName="C:/Program Files (x86)/Auction Studio/Data/AuctionStudio.fdb"
Global $i1 = 0
Global $g_idMemo
;~ _FireBird_About($h_fbDll)
;~ _FireBird_Help($h_fbDll)
;~ MsgBox(0, "Execute Firesird_SetDebug Function.", _FireBird_SetDebug($h_fbDll,True))
While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
SearchItem()
EndSwitch
WEnd
Func TestSelect($h_fbDll,$sServerName,$sDBName)
Local $rv, $rcount, $result, $xmldoc
$rv = _FireBird_ConnectDatabase($h_fbDll,$sServerName,$sDBName, "SYSDBA", "masterkey")
If $rv Then
Local $isEAN = GUICtrlRead($EAN)
$rcount = _FireBird_ExecuteSelect($h_fbDll,"SELECT Distinct ""Title"" FROM ""StockItem"" Where ""EAN"" like '%" & $isEAN & "%'", $result)
EndIf
_FireBird_DisConnectDatabase($h_fbDll)
ConsoleWrite ($result)
GUICtrlSetData ($List1,$result)
EndFunc
Func SearchItem()
TestSelect($h_fbDll, $servername, $g_DBName)
;~ DllClose($h_fbDll)
;~ Exit
EndFunc
Alles anzeigen
Danke und Gruß,
horphi