RCINF escreveu:Bom dia pessoal,
quase não faço comentários aqui no fórum, fico feliz por ainda existir muitos na comunidade, agradeço a todos que por muitas vezes consegui vários exemplos de programação, hoje estou com Hwgui 100% + Dbf, e estou iniciando um processo de migração para SLQ, poderiam me ajudar a compilar isso ?
Toca o barco e vai colocando as duvidas, para compilar não muda nada do que você tem atualmente, é só criar um servidor de banco de dados, aconselho o MARIADB , fiz toda a migração com ele, para isso baixe o
https://mariadb.org/download/e para conecção use:
https://downloads.mariadb.org/connector-odbc/após isso é somente acrescentar a conecção e as Execuções ao seu aplicativo
*******************************************************************************************************************************************************************************
METHOD MySqlConnection( cServer, cUser, cPassword, nPort ) CLASS CONECCOESCLASS
***************************************************************************************************************************************************************************************
LOCAL cnConnection
cnConnection:= win_OleCreateObject( "ADODB.Connection" )
cnConnection:ConnectionString := iif( win_OsIs10(), "Provider=MSDASQL;", "" )
cnConnection:ConnectionString += "Driver={MariaDB ODBC 3.1 Driver};"
cnConnection:ConnectionString += ;
"Server=" + cServer + ";" + ;
"Port=" + nPort + ";" + ;
"Stmt=;" + ;
"User=" + cUser + ";" + ;
"Password=" + cPassword + ";" + ;
"Collation=utf8_general_ci;" + ;
"AUTO_RECONNECT=1;" + ;
"COMPRESSED_PROTO=1;" + ;
"PAD_SPACE=1"
cnConnection:CursorLocation := 3
cnConnection:CommandTimeOut := 600 // seconds
cnConnection:ConnectionTimeOut := 600 // seconds
RETURN cnConnection
***************************************************************************************************************************************************************************************
METHOD ExecuteSQL( cnConnection, cQuery ) CLASS CONECCOESCLASS
***************************************************************************************************************************************************************************************
LOCAL oQuery;
BEGIN SEQUENCE WITH __BreakBlock()
oQuery:= cnConnection:EXECUTE( cQuery )
recover
IF cnConnection:State != 1
hwg_MsgInfo( "FALHA NA CONECÇÃO COM O BANCO DE DADOS", "VERIFIQUE!!!")
QUIT
endif
END SEQUENCE
return oQuery
No meu caso usei METHOD mais pode usar FUNCTION o resto é aprender como fazer as QUERY e ir colocando as duvidas