Conexão com Bd - Resolvido

[Valdir]

Boas...

Estou reiniciando pela 5ª vez a tentaitva de aprender a trabalhar com Banco de Dados Relacionais.

Todas as vezes anteriores, esbarrei na Conexão e sempre acabei deixando pra mais tarde.

Desta vez, acredito que com a ajuda dos amigos aqui, conseguirei ultrapassar essa barreira.

Vamos lá :

- Instalei o Maria Db na minha CPU

- Criei uma Nova Tabela através do aplicativo DBF2SQL do amigo Kleyber.

- Verifiquei e confirmei a existência da Tabela através do aplicativo HeidSQL

- Copiei a SQLLIB.LIB para a pasta LIB do meu Compilador.

- Copiei os .CH para a pasta Include do meu Compilador.

- Inclui o SQLLIB.CH no inicio do meu Teste.prg

- Inclui o REQUEST SQLLIB e MYSQL também no inicio do meu Teste.prg

- inclui o seguinte Comando : "SQL CONNECT ON 'LocallHost';

PORT 3306;

USER 'root'

PASSWORD 'Minha Senha'

OPTIONS 'SQL_NO_WARNING'

LIB 'MYSQL'

Utilizo a SQLLIB123.LIB E LIBMYSQL.LIB para compilar.

Nem consigo compilar, pois dá um monte de erros em sua maioria relacionados à:

FIVEHC.LIB|ODBC32X

Alguém tem ideia do seja isso?

Obrigado.

[Rogerio Figueira]

Valdir

também estou nessa, depois de tanto protelar, vamos pro MySQL

Optei pela opção do tDolphin, até agora, tranquilo, tenho conseguido fazer ir em frente.

Estou optando por usar o BD na web, pois sei que deixar os usuários instalar e gerenciar o servidor e o BD só vai dar zica.

Dá uma verificada aqui:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31918&p=186782&hilit=tdolphin&sid=19cdf915c02568f63b6978de5705e36f#p186782

e aqui
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31917

[]´s

[Valdir]

Valdir

também estou nessa, depois de tanto protelar, vamos pro MySQL

Optei pela opção do tDolphin, até agora, tranquilo, tenho conseguido fazer ir em frente.

Estou optando por usar o BD na web, pois sei que deixar os usuários instalar e gerenciar o servidor e o BD só vai dar zica.

Dá uma verificada aqui:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31918&p=186782&hilit=tdolphin&sid=19cdf915c02568f63b6978de5705e36f#p186782

e aqui

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31917

[]´s

Olá Rogério...

Obrigado por responder.

A TDolphin serve para xHarbour ou é somente para Harbour ?

Um abraço

[Rogerio Figueira]

Valdir

estou usando com o xHarbour.

LIBFILES = E:\FWH13\lib\FiveHX.lib \
E:\FWH13\lib\FiveHC.lib \
E:\FWH13\lib\libmysql.lib \
E:\tdolphin\lib\xharbour\bcc\dolphin.lib \
E:\xHarbour123\LIB\HBZIP.LIB \
E:\xHarbour123\LIB\ZLIB.LIB \
E:\xHarbour123\lib\rtl.lib \
E:\xHarbour123\lib\vm.lib \
E:\xHarbour123\lib\gtgui.lib \
E:\xHarbour123\lib\lang.lib \
E:\xHarbour123\lib\macro.lib \
E:\xHarbour123\lib\rdd.lib \
E:\xHarbour123\lib\dbfntx.lib \
E:\xHarbour123\lib\dbfcdx.lib \
E:\xHarbour123\LIB\DEBUG.LIB \
E:\xHarbour123\LIB\HBSIX.LIB \
E:\xHarbour123\LIB\DBFFPT.LIB \
E:\xHarbour123\LIB\PCREPOS.LIB \
E:\xHarbour123\lib\common.lib \
E:\xHarbour123\lib\pp.lib \
e:\xHarbour123\lib\tip.lib \
e:\xHarbour123\lib\png.lib \
e:\xHarbour123\lib\libmisc.lib \
e:\xHarbour123\lib\codepage.lib \
e:\xHarbour123\lib\ct.lib \
E:\BORLAND\bcc582\lib\cw32.lib \
E:\BORLAND\bcc582\lib\import32.lib \
E:\BORLAND\bcc582\lib\PSDK\odbc32.lib \
E:\BORLAND\bcc582\lib\wininet.lib

[]´s

[Valdir]

Olá Rogério...

Mais uma vez. obrigado por responder.

Além de libmysql.lib, dolphin.lib e LibMySql.Dll, existe alguma outra LIB ou DLL que deva ser incorporada na Compilação e pasta do Sistema ?

Se não for pedir muito, poderia me mostrar como está fazendo a Conexão com o BD Tipo :

CONNECT oServer HOST oServer;

USER...

Obrigado.

[Jorge Andrade]

Valdir

Boa tarde

Dias atrás postei vários modelos de conexão aqui no fórum mesmo, mas devo ter dado enfase para o POSTGRES, se caso optar pelo POSTGRES vc precisará informar as informações abaixo, sobre as libs, ch's e request's , se não quiser informar todas exclua as que achar conveniente, no meu caso, eu informo todos pq posso trabalhar com mais sgbd ao mesmo tempo, sem precisar efetuar alterações no sistema, somente as conexões.

//CH

#include "sqlrdd.ch" //estou usando a sqlrdd
#include "mysql.ch" //caso queira utilizar o mysql
#include "sqlodbc.ch" //se caso optar por uma conexão com odbc, mas precisamente pelo mssql não citado aqui
#include "pgs.ch" //poderia utilizar somente este

//REQUEST

REQUEST SR_PGS // postgres
REQUEST SQLRDD
REQUEST SR_ODBC //conforme citado acima
REQUEST SR_MYSQL /mysql


LIBS

[W:\xHarbour12\lib\dbfcdx.lib]

[W:\xHarbour12\lib\lang.lib]

[W:\xHarbour12\lib\codepage.lib]

[W:\SERV\FUNCOES\LIBS\FTP\tip.lib]

[W:\BCC582\Lib\PSDK\msimg32.lib]

[W:\BCC582\Lib\PSDK\psapi.lib]

[W:\xHarbour12\lib\zlib.lib]

[W:\xHarbour12\lib\ct.lib]

[W:\xHarbour12\lib\hbzip.lib]

[W:\xHarbour12\lib\pcrepos.lib]

[W:\xHarbour12\lib\tip.lib]

[W:\SERV\FUNCOES\LIBS\SQLRDD\Lib\sqlbcc58.lib]

[W:\SERV\FUNCOES\LIBS\SQLRDD\Lib\libmysql.lib]

[W:\SERV\FUNCOES\LIBS\SQLRDD\Lib\libpq.lib]

[W:\SERV\FUNCOES\LIBS\SQLRDD\Lib\oci.lib]

[W:\SERV\FUNCOES\LIBS\SQLRDD\Lib\odbccp32.lib]

[]s,

[Valdir]

Bom dia meu amigo Jorge.

Obrigado por responder.

Por enquanto, não pretendo usar nenhum RDD.

Estou tentando fazer a Conexão do BD através da TDolphin.

Se tiver algum exemplo, agradeço.

Abração.

[Rogerio Figueira]

Valdir,

na minha resposta acima, eu indiquei todas as libs que estou usando nesse projeto, quanto a isso, ok, pode colocar as mesmas.

Você deve ter baixado a classe tDolphin do Daniel

O link está aqui

https://bitbucket.org/danielgarciagil/tdolphin/downloads

Após instalar essa lib, veja na pasta samples os exemplos e na pasta source os fontes e detalhes diversos.

Você deve criar a lib apropriada do tdolphin conforme a sua utilização do fw e harbour ou xharbou, 32 ou 64.

Na pasta raiz da classe tem os .bat apropriados para cada caso.

Como uso o xharbour e bcc usei o setenvx.bat que criou a dolphin.lib em lib\xharbour\lib

Com isso instalado, pode fazer o primeiro prg só para testar a conexão:

#include "tdolphin.ch"
#define CRLF Chr( 13 ) + Chr( 10 )

PROCEDURE Main()
  


   LOCAL oServer   := NIL
   LOCAL cText := ""
   local cCmdSql ,  oQry 
   
   

   IF ( oServer := ConnectTo() ) == NIL
      msgAlert("Erro de conexão")
      
      return nil
      
   ENDIF

   IF ! oServer:lError 
      cText += oServer:GetServerInfo() + CRLF 
      cText += oServer:GetClientInfo()

      msginfo(cText,"Server Info")

   ENDIF
   
   oServer:End()


RETURN

//----------------------------------------------------------

FUNCTION ConnectTo(  )

   LOCAL hIni      
   LOCAL oServer   
   LOCAL cServer, cUser, cPassword, nPort, cDBName,nFlags    
   LOCAL oErr
   LOCAL cText := ""
   oServer   := NIL
   
     cServer   := "stt.com.br"	
   cUser     := "stf_zero"	
   cPassword := "dxxxxxxj0"	
   nPort     := "3306"	
   cDBName   := "stf_cpw4"	
     nFlags    := "0"	
   
      
   TRY
      CONNECT oServer HOST cServer ;
                      USER cUser ;
                      PASSWORD cPassword ;
                      PORT nPort ;
                      FLAGS nFlags;
                      DATABASE cDBName
                                
   CATCH oErr 
     ? hb_dumpvar( oErr )
     RETURN NIL
   END
   
      IF ! oServer:lError 
         cText += "Connection OK" + CRLF
         cText += "Host: " + oServer:cHost +CRLF
         cText += "Database: " +oServer:cDBName + CRLF
         cText += oServer:GetServerInfo() + CRLF 
         cText += oServer:GetClientInfo()
   
         msginfo( cText ,"Dados da conexão ")
   
      ENDIF

RETURN oServer

//======================================

No exemplo acima, você deve trocar estes valores conforme os dados do seu banco já criado:

cServer := "stt.com.br"
cUser := "stf_zero"
cPassword := "dxxxxxxj0"
nPort := "3306"
cDBName := "stf_cpw4"

[]´s

[Valdir]

Olá Rogério...

Bom dia.

Ainda não consegui realizar a conexão através da TDolphin.

- Recompilei a Dolphin.Lib para a versão do meu xHarbour e a inclui no meu projeto.

- Inclui a LibMySql.Lib no meu projeto.

- Inclui TDolpExp.prg, TDolpQry.prg e TDolpSrv.prg no meu projeto.

Mesmo assim ao tentar fazer a conexão, o teste aborta sem nenhuma mensagem de erro.

Testei também através do exemplo TestoDbc.prg da pasta samples e se conectou normalmente.

Acho que ainda está faltando algum arquivo.

Tem alguma ideia do que possa ser.

Obrigado.

[jfaguiar]

"Como uso o xharbour e bcc usei o setenvx.bat que criou a dolphin.lib em lib\xharbour\lib"

Ótima dica Rogério Figueira. Era isso que estava precisando para continuar.

Obrigado

[jfaguiar]

Olá Rogério.

Essa Classe é paga?

[evertonlb]

Valdir, estou usando a SQLLIB e o MySql.. Vou acabar trocando pelo MariaDB, mas só daqui uns dias quando terei mais tempo caso surja algum imprevisto.

No início do main() do meu projeto tenho as seguintes instruções

*--------------------------

#include 'sqllib.ch'

REQUEST SQLLIB

REQUEST MySQL.

*-----------------------------

Minha conexão com o BD fica assim:

SQL CONNECT ON 'localhost';

PORT 3306;

DATABASE 'MeuBD';

USER 'root';

PASSWORD 'MinhaSenha' ;

OPTIONS SQL_NO_WARNING ;

LIB 'MySQL'

Em cada PRG seguinte eu tenho no cabeçalho isso:

#include 'sqllib.ch'

Eu uso o MyMake para compilar e no meu script de compilação inclui isso:

CH..:

SqlLib.CH

LIB:

LibMySql.LIB

SqlLib_XHB_09971.LIB - Aqui é conforme a versão do xHb que vc tem. Nas pastas da SQLLIB tem para as versões compatíveis.

DLL:

LibMySql.DLL

Espero que isso te ajude.

Att.

Everton

[jfaguiar]

Olá Amigos.

Estou tentando compilar em FW + xharbour 13.07 e fiz o seguinte:

Alterei o setenvx.bat conforme os paths do meu xharbour e bcc582 e gerei as libs, inclusive a Dolphin.lib

Compilei i meu projeto com o teste da conexão ao banco mas está apresentando este erro:

Error: Unresolved external '_hb_numToHandle' referenced from E:\TDOLPHIN\LIB\XHARBOUR\BCC\DOLPHIN.LIB|function

Para maior clareza segue o meu projeto:

c:\bcc582\lib\c0w32.obj +

Testcon.obj +

testdlg.obj, +

Testcon.Exe, +

Testcon.Map, +

c:\fwh1307\lib\fivehx.lib +

c:\fwh1307\lib\fivehc.lib +

c:\fwh1307\lib\libmysql.lib +

e:\tdolphin\lib\xharbour\bcc\dolphin.lib +

c:\xharbour1307\lib\hbzip.lib +

c:\xharbour1307\lib\zlib.lib +

c:\xharbour1307\lib\rtl.lib +

c:\xharbour1307\lib\vm.lib +

c:\xharbour1307\lib\gtgui.lib +

c:\xharbour1307\lib\lang.lib +

c:\xharbour1307\lib\macro.lib +

c:\xharbour1307\lib\rdd.lib +

c:\xharbour1307\lib\dbfntx.lib +

c:\xharbour1307\lib\dbfcdx.lib +

c:\xharbour1307\lib\debug.lib +

c:\xharbour1307\lib\common.lib +

c:\xharbour1307\lib\tip.lib +

c:\xharbour1307\lib\pp.lib +

c:\xharbour1307\lib\dbffpt.lib +

c:\xharbour1307\lib\codepage.lib +

c:\xharbour1307\lib\hbsix.lib +

c:\xharbour1307\lib\pcrepos.lib +

c:\xharbour1307\lib\ct.lib +

c:\xharbour1307\lib\png.lib +

c:\xHarbour1307\lib\libmisc.lib +

c:\bcc582\lib\cw32.lib +

c:\bcc582\lib\psdk\msimg32.lib +

c:\bcc582\lib\psdk\odbc32.lib +

c:\bcc582\lib\psdk\rasapi32.lib +

c:\bcc582\lib\psdk\nddeapi.lib +

c:\bcc582\lib\psdk\psapi.lib +

c:\bcc582\lib\psdk\iphlpapi.lib +

c:\bcc582\lib\wininet.lib +

c:\bcc582\lib\import32.lib,

[Rogerio Figueira]

Valdir,

se você inclui a lib não precisa incluir as classes.

Você está tentando acessar um banco de dados local ou na web?

Pode passar o trecho de código da conexão?

Aguiar

a classe não é paga.

No seu projeto você incluiu a lib com este endereço:

e:\tdolphin\lib\xharbour\bcc\dolphin.lib

tem certeza que está certo?

[]´s

Rogerio

[jfaguiar]

Olá Rogério

Obrigado

o path da lib ta certinho sim

No caso da testcon.prg e connto.prg só acrescentei #include "FiveWin.ch"

também copiei tdolphin.ch para a pasta include do meu fwh

[jfaguiar]

Ola Rogério.

Faz um favorzão pra mim...envia a sua dolphin.lib e tdolphin.ch no meu e-mail:

Vou ver se ocorre o mesmo problema.

joaosiscom@hotmail.com

Vlw

[Valdir]

Pessoal...

Obrigado pelas Dicas e Sugestões.

Agradeço em especial aos amigos : Rogério Figueira, Jorge Andrade e Everton pela ajuda.

Mais uma vez, estou desistindo,

Não sei porque aqui não consigo fazer a conexão, mesmo seguindo todas as orientações dos amigos, não funfa e o pior de tudo, é que não tenho a minima ideia do porquê.

Obrigado

[evertonlb]

Pera ai Valdir...

Não desista novamente..

Se quiser posso fazer um acesso remoto.. não manjo muito, mas se puder ajudar estou a disposição.

Att.

Everton

[Jorge Andrade]

Pessoal...

Obrigado pelas Dicas e Sugestões.

Agradeço em especial aos amigos : Rogério Figueira, Jorge Andrade e Everton pela ajuda.

Mais uma vez, estou desistindo,

Não sei porque aqui não consigo fazer a conexão, mesmo seguindo todas as orientações dos amigos, não funfa e o pior de tudo, é que não tenho a minima ideia do porquê.

Obrigado

Valdir, não desista e saiba que o seu ganho será tão imenso que o caminho será sem volta. Pq não tenta outras alternativas, sqllib sem usar outras classes, baixar um demo da sqlrdd e testar. É que vc quer usar o mysql, embora este não seja o problema, pois qualquer sgbd vc achará soluções n's, mas há outras maneira de fazer fazer isso, utilizando ado, ads e outros.

No meu caso, como eu comprei no último encontro a SQLRDD, então estou utilizando-a, mas se não tivesse partiria para outras opções.

[]s,

[Rogerio Figueira]

Aguiar

já te mandei.

Valdir, eu também desisti várias vezes, até que chegou a um ponto que não tem mais como deixar de usar o sql.

Equivalente ao tempo que ainda trabalhava com Clipper e estudei tantas opções, até chegar no FiveWin, que quando criei o primeiro teste, uau funcionou!, foi depois tudo muito rápido.

Então sobre o seu problema de conexão, mostre o seu fonte, vamos ver, deve ser alguma bobeirinha.

[]´s

[Jorge Andrade]

me chama no skype: jorge.fnl, quero ver se consigo testar a sua conexão aqui.

[]s,

[jfaguiar]

Obrigado Rogério.

Éh amigos, agora não tem mais como fugir do sql. Eu devo ter uns 8 livros de sql, entre Interbase, Sql Sever e por ultimo do Myslq. Chegou a hora de passar os comandos do Mysql Workbench para o glorioso Fivewin rsrsrs

Coragem galera!

[jfaguiar]

Boa noite Rogério.

Com a sua Dolphin.lib e Tdolphin.ch consegui compilar

Na execução, o aplicativo apresenta uma erro com alert assim:

<Error Object>

PRIVATE HIDDEN

PROTECTED

EXPORTED/VISIBLE/PUBLIC

Begin Methods

AASTACK...

...

Vou tentar mudar os dados de conect.ini para o meu banco mysql que estar no meu computador, pra ver se abre.

[Valdir]

Amigos...

Muito obrigado pela ajuda e motivação.

Esse é a parte do meu código onde tento fazer a conexão:

#Include "FiveWin.ch"

#include "tdolphin.ch"

#define HKEY_LOCAL_MACHINE 2147483650 // 0x80000002

REQUEST HB_LANG_PT

REQUEST HB_CODEPAGE_PT850

//--------------------------------------------------------------------------//

Function Main()

LOCAL wXY:="", wHD:=""

LOCAL aCoo:={}, aResolucaoAtual:={}

LOCAL oServer:= NIL

LOCAL cText := ""

LOCAL cDBName

PUBLIC oWnd

Public cTarget:="", hBorland

PUBLIC DATAMASTER:=DATE(),DATAFINAL:=DATE(), ANOMASTER:=CTOD("")

PUBLIC anum:=YEAR(DATAMASTER)

PUBLIC USERDRIVE:=CurDrive()+":\"

PUBLIC USERSPED:=.F.

PUBLIC USERNAME:="TESTE DE BANCO DE DADOS"

// ATUALIZA€åES DO SISTEMA QUE NÇO DEVEM SER TEMPORARIAMENTE //

// ENVIADAS AOS CLIENTES AT A SUA FINALIZAۂO. //

PUBLIC USERVERSAO:="15.06.01"

hBorland:= LoadLibrary('BWCC32.DLL')

// Configura‡Æo Para Todo o Sistema

SET DATE TO BRITISH

SET EPOCH TO 1950

SET CENTURY ON

SET DATE FORMAT TO "DD/MM/YYYY"

SET SOFTSEEK ON

SET WRAP ON

SETCANCEL( .F. )

SET CONFIRM OFF

SET DELETED ON

SET ESCAPE ON

SET EXCLUSIVE OFF

SET MULTIPLE ON

// TRANSPARÒNCIA DAS DIALOGS

SetAutoTransp(.T.,200) // .T. Para acionar o efeito e 200 o fator da transparencia (quanto menor mais transparente fica)

//->Defaults da Lingua Portuguesa do [x]Harbour

HB_LANGSELECT( 'PT' ) // Default language is now Portuguese

//->Como index corretamente campos acentuados Harbour/xHarbour

//->Este recurso e valido para Harbour e xHarbour e requer a biblioteca

//->CODEPAGE.LIB.

HB_SETCODEPAGE( "PT850" )

//-> Carrega os Recursos da DLL->BWCC32.DLL -> Para Usar Recursos Borland

BWCCRegister( GetResources( ) )

cTarget:=GETWINDIR()

wNETNAME:=NETNAME()

USERIMG:=".\bitmaps\VENUS64.bmp"

GetPrintDefault( GetActiveWindow() )

Turbo() // fun‡Æo para Turbinar grava‡Æo em rede.

IF ( oServer := ConnectTo() ) == NIL

RETURN

ENDIF

cDBName = oServer:cDBName

cText += "Connection OK" + CRLF

cText += "DATABASE of INI " + cDBName + CRLF

cText += "DATABASE of oServer " + oServer:cDBName + CRLF

oServer:SelectDB( cDBName )

? cText

aResolucaoAtual:=VMudaVideo(1024,768)

MainMenu(hBorland)

VMudaVideo(aResolucaoAtual[1],aResolucaoAtual[2],.T.)

Return Nil

//--------------------------------------------------------------------------//

Function MainMenu(hBorland)

LOCAL wTipoSys:="", wSysTipo:=""

LOCAL oBar, oBmp, oFontMenu, oBtn[20], lSai:=.F., lSair:=.F.

local wIMP:=0, wTOT:=0, wVEZ:=0, oBrush

SetResDebug( .T. )

wTipoSys:=OemToAnsi(" TESTE ")

wSysTipo:=USERDRIVE+"SERVIDOR"

DEFINE FONT oFontMenu NAME GETSYSFONT() SIZE 0, -14

DEFINE BRUSH oBrush FILENAME USERIMG

DEFINE WINDOW oWnd ;

TITLE OemToAnsi("TESTE");

STYLE nOR( WS_CAPTION, WS_BORDER, WS_SYSMENU, WS_MINIMIZEBOX, WS_MAXIMIZEBOX ) ;

MENU BuildMenu(oBrush, oFontMenu) ;

ICON ".\bitmaps\BRASIL21.ico" ;

MENUINFO 1 ;

BRUSH oBrush ;

BORDER SINGLE

DEFINE BUTTONBAR oBar _3D OF oWnd SIZE 80, 70 2007

DEFINE BUTTON oBtn[8] FILENAME ".\bitmaps\SAIR0.bmp" ; // SAIR.BMP

PROMPT OemToAnsi("Finalizar") OF oBar Font oFontMenu ;

TOOLTIP "Sair do Sistema" ;

MESSAGE "Sair do Sistema" ;

ACTION( lSai:=.T., lSair:=.T., oWnd:End() )

oBtn[8]:lTransparent:=.T.

SET MESSAGE OF oWnd TO "Menu Principal" CLOCK DATE CENTERED 2007

ACTIVATE WINDOW oWnd MAXIMIZED ;

ON PAINT ImagemFundo( oWnd ) ;

VALID( VALIDASAI(oWnd, oBrush, oFontMenu))

Return NIL

//----------------------------------------------------------------------//

STATIC FUNCTION VALIDASAI(oWnd, oBrush, oFontMenu)

LOCAL lOk:=.F.

IF MsgYesNo( OemToAnsi("Confirma a Sa¡da do Sistema ?"), ;

OemToAnsi("Encerramento") )

oBrush:End()

FreeLibrary( hBorland )

FreeResources()

RELEASE BRUSH oBrush, oFontMenu

Release All

SysRefresh()

hb_gcall(.t.)

QUIT

ENDIF

RETURN(NIL)

//----------------------------------------------------------------------------//

Function BuildMenu(oBrush, oFontMenu)

PRIVATE oMenu

MENUITEM "&Sair"

MENU

MENUITEM OemToAnsi("&Sair") ;

ACTION( VALIDASAI(oWnd, oBrush, oFontMenu) ) ;

MESSAGE "Finaliza o Sistema"

ENDMENU

ENDMENU

Return oMenu

/////////////////////////////////////////////////////////////////////////////

INIT PROCEDURE Init_Main()

LOCAL cHost:="", wHoras:=""

PUBLIC wREST:=.F., USERREGIS:="", USERDBIOS:="", USERCPUNA:=""

PUBLIC lInd:=.F., ltemp:=.T., wSAIR:=.F.

IF IsExeRunning( "Visual.Exe" )

BEEP()

MsgStop( OemToAnsi("Este programa j est aberto neste computador!"),;

OemToAnsi( "ATENۂO..." ))

SET 3DLOOK OFF

DBCOMMITALL()

CLOSE ALL

Release All

SysRefresh()

QUIT

ENDIF

RETURN NIL

//-----------------------------------------------------------------------//

STATIC FUNCTION ImagemFundo( oWnd )

oImgWnd2 := TImage():Define(,,oWnd )

oWnd:SayBitmap( 0,0, oImgWnd2, oWnd:nWidth(), oWnd:nHeight() )

RETURN .T.

//---------------------------------------------------------------------------

*--( Grava no registro do windows instrução para agilizar gravação em rede )--*

Function Turbo()

local oReg

oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters" )

oReg:Set("EnableOplocks", "00000000")

oReg:Set("CachedOpenLimit", "00000000")

oReg:Set("Autodisconnect", "ffffffff")

oReg:Set("EnableOplockForceClose", "00000001")

oReg:Set("MaxKeepSearch", "000000b4")

oReg:Set("MinKeepSearch", "0000000a")

oReg:Set("ScavTimeout", "0000000a")

oReg:Set("ThreadPriority", "00000002")

oReg:Close()

RETURN NIL

//--------------------------------------------------------------------//

function BEEP( oBrw )

SndPlaySound(".\WAVES\LEMBRETE.WAV")

return nil

/*********************************************************

* Função : Funcao em C para mudar a Resolução da Tela se Menor da Necessária para trabalhar

* Data : 13/03/2013 às 12:05:26 por Vagner

* Revisado em : 13/03/2013 às 12:05:35 por Vagner

* Parâmetros :

* iWidthNew - Largura Mínima Necessária

* iHeightNew - Altura Mínima Necessária

**********************************************************/

#Pragma BEGINDUMP

#include <Windows.h>

#include <ShellApi.h>

#include <Wingdi.h>

#include <hbapi.h>

HB_FUNC (VMUDAVIDEO)

{

int iWidthNew = hb_parni(1);

int iHeightNew = hb_parni(2);

BOOL bSaida = hb_parl(3) ;

int iWidth,iHeight ;

//Pega a Configuração Atual

DEVMODE DeviceMode = { 0 };

EnumDisplaySettings( NULL,

ENUM_CURRENT_SETTINGS,

&DeviceMode );

iWidth = DeviceMode.dmPelsWidth;

iHeight = DeviceMode.dmPelsHeight;

if(bSaida || iWidth < iWidthNew && iHeight < iHeightNew) {

//Muda para a nova Configuração

DeviceMode.dmPelsWidth = iWidthNew ;

DeviceMode.dmPelsHeight = iHeightNew;

ChangeDisplaySettings( &DeviceMode, 0 );

}

hb_reta( 2 );

hb_storni( iWidth , -1, 1 );

hb_storni( iHeight, -1, 2 );

}

#pragma ENDDUMP

//-----------------------------------------------------------------------//

FUNCTION ConnectTo()

LOCAL c

LOCAL hIni

LOCAL oServer

LOCAL cServer, cUser, cPassword, nPort, cDBName,nFlags

LOCAL oErr

c = "mysql"

hIni := HB_ReadIni( "connect.ini" )

oServer := NIL

cServer := hIni[ c ]["host"]

cUser := hIni[ c ]["user"]

cPassword := hIni[ c ]["psw"]

nPort := val(hIni[ c ]["port"])

cDBName := hIni[ c ]["dbname"]

nFlags := val(hIni[ c ]["flags"])

? cServer

TRY

CONNECT oServer HOST cServer ;

USER cUser ;

PASSWORD cPassword ;

PORT nPort ;

FLAGS nFlags;

DATABASE cDBName

CATCH oErr

? hb_dumpvar( oErr )

RETURN NIL

END

RETURN(oServer)

//--------------------------------------------------------------------\\

// Chamadas as DLLs necessarias na funcao \\

//--------------------------------------------------------------------\\

DLL32 FUNCTION inet_addr(cIP AS STRING) AS LONG PASCAL FROM "inet_addr" LIB "wsock32.dll"

DLL32 FUNCTION IcmpCreateFile() AS LONG PASCAL FROM "IcmpCreateFile" LIB "icmp.dll"

DLL32 FUNCTION IcmpCloseHandle(IcmpHandle AS LONG) AS LONG PASCAL FROM "IcmpCloseHandle" LIB "icmp.dll"

DLL32 FUNCTION IcmpSendEcho(IcmpHandle AS LONG,;

End_Destino AS LONG,;

RequestData AS STRING,;

RequestSize AS LONG,;

RequestOptions AS LONG,;

ReplyBuffer AS LPSTR,;

ReplySize AS LONG,;

Timeout AS LONG) AS LONG PASCAL FROM "IcmpSendEcho" LIB "icmp.dll"

DLL32 FUNCTION WSAGetLastError() AS _INT PASCAL FROM "WSAGetLastError" LIB "wsock32.dll"

//--------------------------------------------------------------------

DLL32 function CON_INSC( INSC AS STRING, UF AS STRING ) AS LONG PASCAL ;

from "ConsisteInscricaoEstadual" lib "DLLINSCE32.DLL"

//-----------------------------------------------------------------------------

//----------------------------------------------------------------------------//

DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"

//-----------------------------------------------------------------------------

//------------------------------------------------------------------------//

DLL32 FUNCTION InternetGetConnectedState( @LpDwflags AS PTR, Dwreserve AS LONG) AS BOOL PASCAL LIB "WinINet.dll"

//------------------------------------------------------------------------//

// FIM DO PROGRAMA;

// Arquivo Ini:

; Archivo para usar parametros de conexión

[mysql]

host=localhost

user=root

psw=minhasenha

flags=0

port=3306

dbname=meubd

//Script de Compilação:

Echo ³ xHarbour Compiler build 1.2.1 (SimpLex) - RevisÆo 9421 ³Û

Echo ³ © FiveTech, 1993-2012 For Microsoft Windows XP/2003/WIN7 ³Û

Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ

Echo ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

Set hDir=C:\xHB1201

Set bcDir=C:\Borland\BCC582

Set FwhDir=C:\FwH1201

@If Exist *.Bak Del *.Bak

@If Exist *.Obj Del *.Obj

@If Exist *.Log Del *.Log

@If Exist *.Map Del *.Map

@If Exist *.PPO Del *.Ppo

@If Exist *.TDS Del *.TDS

@If Exist *.C Del *.C

If Exist TESTE.Exe Del TESTE.Exe

%hdir%\bin\harbour TESTE /m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p TESTE.C > Erro.log

%hdir%\bin\harbour DIALOG /m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p DIALOG.C >> Erro.log

%hdir%\bin\harbour TSYSINFO /m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p TSYSINFO.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include TESTE.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include DIALOG.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include TSYSINFO.C >> Erro.log

If ErrorLevel 1 Type Erro.log | More

If ErrorLevel 1 Goto Exit

%bcdir%\bin\bcc32 -M -c -O2 -eTESTE.exe -I%hdir%\include TESTE.c

:ENDCOMPILE

%bcdir%\bin\ilink32 -Gn -aa -Tpe -s @VAI.Lnk

Echo .

Echo * Applicacao Foi Desenvolvida com sucesso

Echo .

REM TESTE

Goto Exit

Echo

cls

:EXIT

//Script de linkagem

c0w32.Obj +

TESTE.OBJ +

DIALOG.OBJ +

TSYSINFO.OBJ, +

TESTE.exe, +

TESTE.map, +

\FwH1201\lib\FiveHX.lib +

\FwH1201\lib\FiveHC.lib +

\xHB1201\lib\libmysql.lib +

\xHB1201\lib\dolphin.lib +

\xHB1201\lib\hbzip.lib +

\xHB1201\lib\hbsix.lib +

\xHB1201\lib\rtl.lib +

\xHB1201\lib\vm.lib +

\xHB1201\lib\gtgui.lib +

\xHB1201\lib\lang.lib +

\xHB1201\lib\macro.lib +

\xHB1201\lib\rdd.lib +

\xHB1201\lib\dbfntx.lib +

\xHB1201\lib\dbfcdx.lib +

\xHB1201\lib\debug.lib +

\xHB1201\lib\common.lib +

\xHB1201\lib\pp.lib +

\xHB1201\lib\codepage.lib +

\xHB1201\lib\dbffpt.lib +

\xHB1201\lib\pcRepos.lib +

\xHB1201\lib\GTcgi.lib +

\xHB1201\lib\GTgui.lib +

\xHB1201\lib\GTpca.lib +

\xHB1201\lib\GTstd.lib +

\xHB1201\lib\GTwin.lib +

\xHB1201\lib\GTwvt.lib +

\xHB1201\lib\dbffpt.lib +

\xHB1201\lib\ct.lib +

\xHB1201\lib\zlib.lib +

\xHB1201\lib\png.lib +

\Borland\Bcc582\lib\cw32.lib +

\Borland\Bcc582\lib\import32.lib +

\Borland\Bcc582\lib\psdk\odbc32.lib +

\Borland\Bcc582\lib\psdk\psapi.lib +

\Borland\Bcc582\lib\psdk\shell32.lib +

\Borland\Bcc582\lib\psdk\msimg32.lib,

BRSYS01.Res +

BRSYS02.Res +

BRSYS03.Res +

BRSYS04.Res +

VPreview.Res

[Jorge Andrade]

Amigos...

Muito obrigado pela ajuda e motivação.

Esse é a parte do meu código onde tento fazer a conexão:

#Include "FiveWin.ch"

#include "tdolphin.ch"

#define HKEY_LOCAL_MACHINE 2147483650 // 0x80000002

REQUEST HB_LANG_PT

REQUEST HB_CODEPAGE_PT850

//--------------------------------------------------------------------------//

Function Main()

LOCAL wXY:="", wHD:=""

LOCAL aCoo:={}, aResolucaoAtual:={}

LOCAL oServer:= NIL

LOCAL cText := ""

LOCAL cDBName

PUBLIC oWnd

Public cTarget:="", hBorland

PUBLIC DATAMASTER:=DATE(),DATAFINAL:=DATE(), ANOMASTER:=CTOD("")

PUBLIC anum:=YEAR(DATAMASTER)

PUBLIC USERDRIVE:=CurDrive()+":\"

PUBLIC USERSPED:=.F.

PUBLIC USERNAME:="TESTE DE BANCO DE DADOS"

// ATUALIZA€åES DO SISTEMA QUE NÇO DEVEM SER TEMPORARIAMENTE //

// ENVIADAS AOS CLIENTES AT A SUA FINALIZAۂO. //

PUBLIC USERVERSAO:="15.06.01"

hBorland:= LoadLibrary('BWCC32.DLL')

// Configura‡Æo Para Todo o Sistema

SET DATE TO BRITISH

SET EPOCH TO 1950

SET CENTURY ON

SET DATE FORMAT TO "DD/MM/YYYY"

SET SOFTSEEK ON

SET WRAP ON

SETCANCEL( .F. )

SET CONFIRM OFF

SET DELETED ON

SET ESCAPE ON

SET EXCLUSIVE OFF

SET MULTIPLE ON

// TRANSPARÒNCIA DAS DIALOGS

SetAutoTransp(.T.,200) // .T. Para acionar o efeito e 200 o fator da transparencia (quanto menor mais transparente fica)

//->Defaults da Lingua Portuguesa do [x]Harbour

HB_LANGSELECT( 'PT' ) // Default language is now Portuguese

//->Como index corretamente campos acentuados Harbour/xHarbour

//->Este recurso e valido para Harbour e xHarbour e requer a biblioteca

//->CODEPAGE.LIB.

HB_SETCODEPAGE( "PT850" )

//-> Carrega os Recursos da DLL->BWCC32.DLL -> Para Usar Recursos Borland

BWCCRegister( GetResources( ) )

cTarget:=GETWINDIR()

wNETNAME:=NETNAME()

USERIMG:=".\bitmaps\VENUS64.bmp"

GetPrintDefault( GetActiveWindow() )

Turbo() // fun‡Æo para Turbinar grava‡Æo em rede.

IF ( oServer := ConnectTo() ) == NIL

RETURN

ENDIF

cDBName = oServer:cDBName

cText += "Connection OK" + CRLF

cText += "DATABASE of INI " + cDBName + CRLF

cText += "DATABASE of oServer " + oServer:cDBName + CRLF

oServer:SelectDB( cDBName )

? cText

aResolucaoAtual:=VMudaVideo(1024,768)

MainMenu(hBorland)

VMudaVideo(aResolucaoAtual[1],aResolucaoAtual[2],.T.)

Return Nil

//--------------------------------------------------------------------------//

Function MainMenu(hBorland)

LOCAL wTipoSys:="", wSysTipo:=""

LOCAL oBar, oBmp, oFontMenu, oBtn[20], lSai:=.F., lSair:=.F.

local wIMP:=0, wTOT:=0, wVEZ:=0, oBrush

SetResDebug( .T. )

wTipoSys:=OemToAnsi(" TESTE ")

wSysTipo:=USERDRIVE+"SERVIDOR"

DEFINE FONT oFontMenu NAME GETSYSFONT() SIZE 0, -14

DEFINE BRUSH oBrush FILENAME USERIMG

DEFINE WINDOW oWnd ;

TITLE OemToAnsi("TESTE");

STYLE nOR( WS_CAPTION, WS_BORDER, WS_SYSMENU, WS_MINIMIZEBOX, WS_MAXIMIZEBOX ) ;

MENU BuildMenu(oBrush, oFontMenu) ;

ICON ".\bitmaps\BRASIL21.ico" ;

MENUINFO 1 ;

BRUSH oBrush ;

BORDER SINGLE

DEFINE BUTTONBAR oBar _3D OF oWnd SIZE 80, 70 2007

DEFINE BUTTON oBtn[8] FILENAME ".\bitmaps\SAIR0.bmp" ; // SAIR.BMP

PROMPT OemToAnsi("Finalizar") OF oBar Font oFontMenu ;

TOOLTIP "Sair do Sistema" ;

MESSAGE "Sair do Sistema" ;

ACTION( lSai:=.T., lSair:=.T., oWnd:End() )

oBtn[8]:lTransparent:=.T.

SET MESSAGE OF oWnd TO "Menu Principal" CLOCK DATE CENTERED 2007

ACTIVATE WINDOW oWnd MAXIMIZED ;

ON PAINT ImagemFundo( oWnd ) ;

VALID( VALIDASAI(oWnd, oBrush, oFontMenu))

Return NIL

//----------------------------------------------------------------------//

STATIC FUNCTION VALIDASAI(oWnd, oBrush, oFontMenu)

LOCAL lOk:=.F.

IF MsgYesNo( OemToAnsi("Confirma a Sa¡da do Sistema ?"), ;

OemToAnsi("Encerramento") )

oBrush:End()

FreeLibrary( hBorland )

FreeResources()

RELEASE BRUSH oBrush, oFontMenu

Release All

SysRefresh()

hb_gcall(.t.)

QUIT

ENDIF

RETURN(NIL)

//----------------------------------------------------------------------------//

Function BuildMenu(oBrush, oFontMenu)

PRIVATE oMenu

MENUITEM "&Sair"

MENU

MENUITEM OemToAnsi("&Sair") ;

ACTION( VALIDASAI(oWnd, oBrush, oFontMenu) ) ;

MESSAGE "Finaliza o Sistema"

ENDMENU

ENDMENU

Return oMenu

/////////////////////////////////////////////////////////////////////////////

INIT PROCEDURE Init_Main()

LOCAL cHost:="", wHoras:=""

PUBLIC wREST:=.F., USERREGIS:="", USERDBIOS:="", USERCPUNA:=""

PUBLIC lInd:=.F., ltemp:=.T., wSAIR:=.F.

IF IsExeRunning( "Visual.Exe" )

BEEP()

MsgStop( OemToAnsi("Este programa j est aberto neste computador!"),;

OemToAnsi( "ATENۂO..." ))

SET 3DLOOK OFF

DBCOMMITALL()

CLOSE ALL

Release All

SysRefresh()

QUIT

ENDIF

RETURN NIL

//-----------------------------------------------------------------------//

STATIC FUNCTION ImagemFundo( oWnd )

oImgWnd2 := TImage():Define(,,oWnd )

oWnd:SayBitmap( 0,0, oImgWnd2, oWnd:nWidth(), oWnd:nHeight() )

RETURN .T.

//---------------------------------------------------------------------------

*--( Grava no registro do windows instrução para agilizar gravação em rede )--*

Function Turbo()

local oReg

oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters" )

oReg:Set("EnableOplocks", "00000000")

oReg:Set("CachedOpenLimit", "00000000")

oReg:Set("Autodisconnect", "ffffffff")

oReg:Set("EnableOplockForceClose", "00000001")

oReg:Set("MaxKeepSearch", "000000b4")

oReg:Set("MinKeepSearch", "0000000a")

oReg:Set("ScavTimeout", "0000000a")

oReg:Set("ThreadPriority", "00000002")

oReg:Close()

RETURN NIL

//--------------------------------------------------------------------//

function BEEP( oBrw )

SndPlaySound(".\WAVES\LEMBRETE.WAV")

return nil

/*********************************************************

* Função : Funcao em C para mudar a Resolução da Tela se Menor da Necessária para trabalhar

* Data : 13/03/2013 às 12:05:26 por Vagner

* Revisado em : 13/03/2013 às 12:05:35 por Vagner

* Parâmetros :

* iWidthNew - Largura Mínima Necessária

* iHeightNew - Altura Mínima Necessária

**********************************************************/

#Pragma BEGINDUMP

#include <Windows.h>

#include <ShellApi.h>

#include <Wingdi.h>

#include <hbapi.h>

HB_FUNC (VMUDAVIDEO)

{

int iWidthNew = hb_parni(1);

int iHeightNew = hb_parni(2);

BOOL bSaida = hb_parl(3) ;

int iWidth,iHeight ;

//Pega a Configuração Atual

DEVMODE DeviceMode = { 0 };

EnumDisplaySettings( NULL,

ENUM_CURRENT_SETTINGS,

&DeviceMode );

iWidth = DeviceMode.dmPelsWidth;

iHeight = DeviceMode.dmPelsHeight;

if(bSaida || iWidth < iWidthNew && iHeight < iHeightNew) {

//Muda para a nova Configuração

DeviceMode.dmPelsWidth = iWidthNew ;

DeviceMode.dmPelsHeight = iHeightNew;

ChangeDisplaySettings( &DeviceMode, 0 );

}

hb_reta( 2 );

hb_storni( iWidth , -1, 1 );

hb_storni( iHeight, -1, 2 );

}

#pragma ENDDUMP

//-----------------------------------------------------------------------//

FUNCTION ConnectTo()

LOCAL c

LOCAL hIni

LOCAL oServer

LOCAL cServer, cUser, cPassword, nPort, cDBName,nFlags

LOCAL oErr

c = "mysql"

hIni := HB_ReadIni( "connect.ini" )

oServer := NIL

cServer := hIni[ c ]["host"]

cUser := hIni[ c ]["user"]

cPassword := hIni[ c ]["psw"]

nPort := val(hIni[ c ]["port"])

cDBName := hIni[ c ]["dbname"]

nFlags := val(hIni[ c ]["flags"])

? cServer

TRY

CONNECT oServer HOST cServer ;

USER cUser ;

PASSWORD cPassword ;

PORT nPort ;

FLAGS nFlags;

DATABASE cDBName

CATCH oErr

? hb_dumpvar( oErr )

RETURN NIL

END

RETURN(oServer)

//--------------------------------------------------------------------\\

// Chamadas as DLLs necessarias na funcao \\

//--------------------------------------------------------------------\\

DLL32 FUNCTION inet_addr(cIP AS STRING) AS LONG PASCAL FROM "inet_addr" LIB "wsock32.dll"

DLL32 FUNCTION IcmpCreateFile() AS LONG PASCAL FROM "IcmpCreateFile" LIB "icmp.dll"

DLL32 FUNCTION IcmpCloseHandle(IcmpHandle AS LONG) AS LONG PASCAL FROM "IcmpCloseHandle" LIB "icmp.dll"

DLL32 FUNCTION IcmpSendEcho(IcmpHandle AS LONG,;

End_Destino AS LONG,;

RequestData AS STRING,;

RequestSize AS LONG,;

RequestOptions AS LONG,;

ReplyBuffer AS LPSTR,;

ReplySize AS LONG,;

Timeout AS LONG) AS LONG PASCAL FROM "IcmpSendEcho" LIB "icmp.dll"

DLL32 FUNCTION WSAGetLastError() AS _INT PASCAL FROM "WSAGetLastError" LIB "wsock32.dll"

//--------------------------------------------------------------------

DLL32 function CON_INSC( INSC AS STRING, UF AS STRING ) AS LONG PASCAL ;

from "ConsisteInscricaoEstadual" lib "DLLINSCE32.DLL"

//-----------------------------------------------------------------------------

//----------------------------------------------------------------------------//

DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"

//-----------------------------------------------------------------------------

//------------------------------------------------------------------------//

DLL32 FUNCTION InternetGetConnectedState( @LpDwflags AS PTR, Dwreserve AS LONG) AS BOOL PASCAL LIB "WinINet.dll"

//------------------------------------------------------------------------//

// FIM DO PROGRAMA;

// Arquivo Ini:

; Archivo para usar parametros de conexión

[mysql]

host=localhost

user=root

psw=minhasenha

flags=0

port=3306

dbname=meubd

//Script de Compilação:

Echo ³ xHarbour Compiler build 1.2.1 (SimpLex) - RevisÆo 9421 ³Û

Echo ³ © FiveTech, 1993-2012 For Microsoft Windows XP/2003/WIN7 ³Û

Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ

Echo ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

Set hDir=C:\xHB1201

Set bcDir=C:\Borland\BCC582

Set FwhDir=C:\FwH1201

@If Exist *.Bak Del *.Bak

@If Exist *.Obj Del *.Obj

@If Exist *.Log Del *.Log

@If Exist *.Map Del *.Map

@If Exist *.PPO Del *.Ppo

@If Exist *.TDS Del *.TDS

@If Exist *.C Del *.C

If Exist TESTE.Exe Del TESTE.Exe

%hdir%\bin\harbour TESTE /m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p TESTE.C > Erro.log

%hdir%\bin\harbour DIALOG /m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p DIALOG.C >> Erro.log

%hdir%\bin\harbour TSYSINFO /m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p TSYSINFO.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include TESTE.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include DIALOG.C >> Erro.log

%bcdir%\bin\bcc32 -O2 -M -c -D__HARBOUR__ -I%hdir%\include TSYSINFO.C >> Erro.log

If ErrorLevel 1 Type Erro.log | More

If ErrorLevel 1 Goto Exit

%bcdir%\bin\bcc32 -M -c -O2 -eTESTE.exe -I%hdir%\include TESTE.c

:ENDCOMPILE

%bcdir%\bin\ilink32 -Gn -aa -Tpe -s @VAI.Lnk

Echo .

Echo * Applicacao Foi Desenvolvida com sucesso

Echo .

REM TESTE

Goto Exit

Echo

cls

:EXIT

//Script de linkagem

c0w32.Obj +

TESTE.OBJ +

DIALOG.OBJ +

TSYSINFO.OBJ, +

TESTE.exe, +

TESTE.map, +

\FwH1201\lib\FiveHX.lib +

\FwH1201\lib\FiveHC.lib +

\xHB1201\lib\libmysql.lib +

\xHB1201\lib\dolphin.lib +

\xHB1201\lib\hbzip.lib +

\xHB1201\lib\hbsix.lib +

\xHB1201\lib\rtl.lib +

\xHB1201\lib\vm.lib +

\xHB1201\lib\gtgui.lib +

\xHB1201\lib\lang.lib +

\xHB1201\lib\macro.lib +

\xHB1201\lib\rdd.lib +

\xHB1201\lib\dbfntx.lib +

\xHB1201\lib\dbfcdx.lib +

\xHB1201\lib\debug.lib +

\xHB1201\lib\common.lib +

\xHB1201\lib\pp.lib +

\xHB1201\lib\codepage.lib +

\xHB1201\lib\dbffpt.lib +

\xHB1201\lib\pcRepos.lib +

\xHB1201\lib\GTcgi.lib +

\xHB1201\lib\GTgui.lib +

\xHB1201\lib\GTpca.lib +

\xHB1201\lib\GTstd.lib +

\xHB1201\lib\GTwin.lib +

\xHB1201\lib\GTwvt.lib +

\xHB1201\lib\dbffpt.lib +

\xHB1201\lib\ct.lib +

\xHB1201\lib\zlib.lib +

\xHB1201\lib\png.lib +

\Borland\Bcc582\lib\cw32.lib +

\Borland\Bcc582\lib\import32.lib +

\Borland\Bcc582\lib\psdk\odbc32.lib +

\Borland\Bcc582\lib\psdk\psapi.lib +

\Borland\Bcc582\lib\psdk\shell32.lib +

\Borland\Bcc582\lib\psdk\msimg32.lib,

BRSYS01.Res +

BRSYS02.Res +

BRSYS03.Res +

BRSYS04.Res +

VPreview.Res

Valdir , bom dia, vou chutar brother, tente alterar os tipos das variaveis do objeto oServer e o cDBName para Private, ou melhor, todas que fazem parte da conexão.

[]s,