mi primera script usando bases de datos..
Publicado: 13 Dic 2009, 19:17
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
, 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