Page 1 of 1

Acceder a MariaDB

Posted: Wed Nov 29, 2017 8:58 pm
by Xevi
Bien, me uno al grupo, soy bastante novato y espero aprender para poder ayudar en su dia...

Estoy intentando hacer una pequeñiiiisima aplicación que funcione accediendo a datos en un Servidor MariaDB.
Alguien lo está utilizando???
Algun ejemplo de su uso, sencillo, para empezar.???

Si bien el link
http://forums.fivetechsupport.com/viewt ... webservice
es el que deberia de darme un poco de luz... lo hecho andar, pero no rula...

#include "FiveTouch.ch"

FUNCTION Main()

SET DELETE ON
SET CENTURY ON
SET ESCAPE ON
SET DATE ITALIAN
SETCANCEL(.T.)

CLEAR SCREEN

DEFINE DIALOG oDlg

oDlg:setWindowTitle( "Gestione Prezzi" )

@ 90, 220 BUTTON oBtnImp PROMPT "test_htip()" OF oDlg ;
ACTION test_htip()

@ 250, 90 BUTTON oBtnEnd PROMPT "Salir" OF oDlg ;
ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED

return nil

// ------------------------------- CREA_FILE
PROCEDURE test_htip()

LOCAL oHttp, hQuery, cResponse

hQUery := { => }
hb_HCaseMatch( hQuery, .F. )

oHttp := TIPClientHTTP():New( "http://adaptaproyectoserp.com.ve/webservices/client.php", .T. )
hQuery[ "nombre" ] := "THefull The BEST!"

IF ! oHttp:open()
? "Error: oHttp:open(): " + oHttp:lastErrorMessage()
RETURN
ENDIF

IF ! oHttp:post( hQuery )
? "Error: oHttp:post(): " + oHttp:lastErrorMessage()
ENDIF

cResponse := oHttp:readAll()
oHttp:close()

Alert( cResponse )

RETURN


Alguien que pueda orientarme???
Si hay que montar un webservice, o el Servidor MariaDB???
Cómo montar un webService, y cual???

Gracias.

Un Saludo,
Xevi.

Re: Acceder a MariaDB

Posted: Wed Nov 29, 2017 9:14 pm
by Antonio Linares
Xevi,

Aqui tienes la conferencia de Rafa Carmona sobre Servidor web & web services y su uso desde Harbour :-)

https://youtu.be/ivWorfpnnMs

Re: Acceder a MariaDB

Posted: Wed Nov 29, 2017 9:18 pm
by Antonio Linares

Re: Acceder a MariaDB

Posted: Thu Dec 07, 2017 11:31 am
by Antonio Linares