>thisform.ejecutar([P_COMPRASESP],[']+sfec1+[',']+sfec2+[',']+xsup+[',']+xstipo+[',']+xsmarca+[',']+xsmodelo+[',']+xsano+['])
>
>procedure ejecutar
>lparameters ccomando as string, lcparam as string
>cconnstring=_screen.cconnstring
>oconn = createobject("ADODB.Connection")
>ocomando = createobject("ADODB.Command")
>ors = createobject("ADODB.Recordset")
>oconn.connectionstring = cconnstring
>oconn.connectiontimeout = 60
>oconn.open
>if vartype(lcparam)="U" or vartype(lcparam)="L"
>	lcparam = ""
>endif
>ocomando.commandtext = ccomando+" "+lcparam
>ocomando.activeconnection = oconn
>ors = ocomando.execute()
>oconn = .null.
>ocomando = .null.
>return ors
>

procedure ejecutar
lparameters ccomando as string, lcparam as string
LOCAL laError[1]
lnHandler = SQLSTRINGCONNECT(_screen.cconnstring) && Be careful ADO and ODBC connection strings are not the same
IF lnHandler < 0
   AERROR(laError)
   MessageBox(laError[1,2])
   RETURN
ENDIF
IF SQLEXEC(m.lnHandler, ccomando) < 0
   AERROR(laError)
   MessageBox(laError[1,2])
   RETURN
ENDIF
SQLCLOSE(m.lnHandler)