FoxPro/Visual FoxPro - sqlexec, sqlstringconnect

bd=cpRuta+"DATOS\Seguridad.dbc"

cnx=SQLSTRINGCONNECT("driver=Microsoft Visual FoxPro Driver;SourceType=DBC;SourceDB=&bd")

IF cnx < 0

   = MESSAGEBOX('Conexión fallida', 16, 'SQL Connect Error')

ELSE

   = MESSAGEBOX('Conexión Satisfactoria', 48, 'SQL Connect Message')

ENDIF

THISFORM.Grid1.RecordSource=""

cmd="Select * From personal"

registros = SQLEXEC(cnx,cmd,'sqlpersonal')

THISFORM.Grid1.RecordSource="sqlpersonal"

THISFORM.Grid1.column1.ControlSource="sqlpersonal.idpers"

THISFORM.Grid1.column2.ControlSource="sqlpersonal.apellidos"

THISFORM.Grid1.column3.ControlSource="sqlpersonal.nombres"

THISFORM.Grid1.column4.ControlSource="sqlpersonal.sexo"

THISFORM.Grid1.SetFocus

Thisform.Refresh

THISFORM.Grid1.column1.ControlSource="sqlpersonal.idpers"

THISFORM.Grid1.column2.ControlSource="sqlpersonal.apellidos"

THISFORM.Grid1.column3.ControlSource="sqlpersonal.nombres"

THISFORM.Grid1.column4.ControlSource="sqlpersonal.sexo"

WITH ThisForm.Grid1 		        &&establecemos las propiedades del grid

	.columncount		= 4		 &&indica el numero de columnas

	.readonly			=.T.	         &&solo lectura

	.allowheadersizing	=.T.

	.allowrowsizing		=.T.

	.recordsource		= "sqlpersonal"

	.Left 				= 5		 			&& Ajustar posicion de la Grid

	.Forecolor 			= RGB(0,0,0)		&& Texto en Negro

	.GridLineColor 		= RGB(176,230,255) 	&& Color de las lineas que separan las celdas

	.Highlight 			= .T. 				&& La celda aparece selecionada

	.HighlightBackColor = RGB(182,202,234) 	&& Color de la Fila Selecionada

	.HighlightStyle 	= 2 				&& Si la fila esta resaltada, permanece resaltada cuando el usuario cambia el enfoque a otro control del formulario

	.RecordSourceType 	= 1

	 .column1.ControlSource = "idpers"

	.column2.ControlSource = "apellidos"

        .column1.ControlSource = "nombres"

	.column2.ControlSource = "sexo"

	.column1.header1.caption = "Id"

	.column2.header1.caption = "Apellidos"

	.column3.header1.caption = "Nombres"

	.column4.header1.caption = "Sexo"

	FOR grdNegrit=1 TO 4

		ncol = "column"+ALLTRIM(STR(grdNegrit))+"."

		.&ncol.header1.FontBold  =.T.

		.&ncol.header1.Alignment = 2  	&&Alinea Centrado

	ENDFOR

	.column1.Width = 70

	.column2.Width = 200

	.column3.Width = 200

	.column4.Width = 100

	.allowcellselection=.f.

	*.setfocus

	*.Refresh

ENDWITH