Global $Lucrari = GUICreate("Lucrari lunare", 873, 452, -1, -1)
Global $Tab1 = GUICtrlCreateTab(8, 8, 857, 417)
Global $L6346 = GUICtrlCreateTabItem("Lucrarea 6346")
Global $Script = GUICtrlCreateGroup("Script", 24, 32, 833, 385)
Global $TextScript6346 = GUICtrlCreateEdit("Adu script", 32, 48, 481, 321)
;GUICtrlSetData(-1, "Edit2")
Global $ExS6346 = GUICtrlCreateButton("Executa script", 264, 384, 123, 25)
Global $D6346 = GUICtrlCreateButton("Adu Script", 56, 384, 123, 25)
Global $Rez6346 = GUICtrlCreateEdit("", 520, 48, 329, 321)
;GUICtrlSetData(-1, "Rez6346")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $D6346
			AduScriptLunaPrecedenta()
		Case $ExS6346
			_Example_MSSQL()
			;GUICtrlSetData($Rez6346,$aSelect)
	EndSwitch
WEnd

Func AduScriptLunaPrecedenta()
	Local $File = 'C:\Script_L6346.txt'
	Global $Rezfinal6346=(FileRead($File,FileGetSize($File)))
	GUICtrlSetData($TextScript6346,$Rezfinal6346)
		
Endfunc	
	
Func _Example_MSSQL()

	Local $sDriver = 'SQL Server'
	Local $sDatabase = 'xxxxx';
	Local $sServer = 'xxxxx' ; change this string to YourServerLocation
	Local $sUser = 'xxx' ; change this string to YourUserName
	Local $sPassword = 'xxxx' ; change this string to YourPassword
	Local $sConnectionString = 'DRIVER={' & $sDriver & '};SERVER=' & $sServer & ';DATABASE=' & $sDatabase & ';UID=' & $sUser & ';PWD=' & $sPassword & ';'
		$rez = GUICtrlRead($TextScript6346)
		_Example_2_RecordsetDisplay($sConnectionString,$rez)
	
EndFunc   ;==>_Example_MSSQL

Func _Example_2_RecordsetDisplay($sConnectionString, $sQUERY)

	; Create connection object
	Local $oConnection = _ADO_Connection_Create()

	; Open connection with $sConnectionString
	_ADO_Connection_OpenConString($oConnection, $sConnectionString)
	If @error Then Return SetError(@error, @extended, $ADO_RET_FAILURE)

	; Executing some query directly to Array of Arrays (instead to $oRecordset)
	Global $aRecordset = _ADO_Execute($oConnection, $sQUERY, True)

	; Clean Up
	_ADO_Connection_Close($oConnection)
	$oConnection = Null

	; Display Array Content with column names as headers
	_ADO_Recordset_Display($aRecordset, 'Rezultat')
	
EndFunc   ;==>_Ex