mi primera script usando bases de datos..

[xapu]

buneo , pues es un login para conectar con la db, luego hay que completarlo segun lo k tu kieras hacer...
se k no es muy util pero puede k para algun nobatillo como yo si..
y tambien haber si alguien la mejora

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <mysql.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("conexion", 210, 298, 571, 296)
$Input1 = GUICtrlCreateInput("", 40, 40, 129, 21)
$Input2 = GUICtrlCreateInput("", 40, 88, 129, 21)
$Input3 = GUICtrlCreateInput("", 40, 136, 129, 21)
$Input4 = GUICtrlCreateInput("", 40, 184, 129, 21)
$Label1 = GUICtrlCreateLabel("usuario", 88, 16, 38, 17)
$Label2 = GUICtrlCreateLabel("password", 80, 64, 49, 17)
$Label3 = GUICtrlCreateLabel("db", 95, 160, 44, 17)
$Button1 = GUICtrlCreateButton("ok", 24, 232, 161, 33, $WS_GROUP)
$Label4 = GUICtrlCreateLabel("servidor", 85, 112, 41, 17)

GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUICtrlSetOnEvent($Button1, "Botton1Click")

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Func Botton1Click()
Dim $username = GUICtrlRead($Input1)
Dim $Password = GUICtrlRead($Input2)
Dim $Database = GUICtrlRead($Input4)
Dim $MySQLServerName = GUICtrlRead($Input3)

 GUIDelete ( $Form1 )
	$sql = _MySQLConnect($username, $Password, $Database, $MySQLServerName)
	$var = _Query($sql,"aqui");<==========aqui pon tu query
	While Not $var.EOF
		;en esta linea pon lo que qieres que te aga con el resultado de la query
		$var.MoveNext
	WEnd

EndFunc   ;==>Botton1Click
Func Form1Close()
Exit
EndFunc   ;==>Form1Close