Mauro wrote:Ola a todos
Existe alguma possibilidade de usar MySql com OBDC no Pocket e se
sim como fazer ?
Saludos
Mauro
Olá a todos
baixei deste site
http://www.pocketgear.com/software_detail.asp?id=21135
um software chamado MySqlMobile, onde tem exemplos e uma dll,
fiz um pequeno programa de testes, abaixo, ele conecta com o banco, mas
depois da conexão trava..
Alguma idéia ?
Uso o Build de Julho/2006
#include "fwce.ch"
#include "dll.ch"
// erros devolvidos pela mysqlmobile.dll
#define EXTERNAL_ERROR -2000
#define CONNECTION_TIMED_OUT -1001
#define SOCKET_NOT_VALID -1002
#define SOCKET_CONNECTION_FAILED -1003
#define MYSQL_NOT_CONNECTED -1004
#define WRONG_PACKET_DATA -1005
#define EMPTY_PARAMETER_NOT_ALLOWED -1006
#define FIELD_NOT_FOUND -1007
#define ROW_NOT_FOUND -1008
#define UNKNOWN_FIELD_PARAMETER -1009
#define NO_SUCH_COLUMN -1010
#define NO_SUCH_ROW -1011
#define ZLIB_DECOMPRESSION_ERROR -1012
function Main()
local oWnd
local oBtn1
DEFINE WINDOW oWnd TITLE "MySql"
@ 001, 001 BUTTON oBtn1 PROMPT "Conecta" OF oWnd ;
ACTION Conecta() ;
SIZE 100, 30 ;
PIXEL
@ 001, 140 BUTTON oBtn1 PROMPT "Abre Banco" OF oWnd ;
ACTION AbreBanco() ;
SIZE 100, 30 ;
PIXEL
@ 060, 001 BUTTON oBtn1 PROMPT "Query" OF oWnd ;
ACTION FazQuery() ;
SIZE 100, 30 ;
PIXEL
@ 060, 140 BUTTON oBtn1 PROMPT "Desconecta" OF oWnd ;
ACTION Desconecta() ;
SIZE 100, 30 ;
PIXEL
@ 120, 060 BUTTON oBtn1 PROMPT "Sair" OF oWnd ;
ACTION oWnd:End() ;
SIZE 100, 30 ;
PIXEL
ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------//
function Conecta()
CursorWait()
nRet := MyConectar("xxx.xxx.xxx.xxx",3306,"user","pass") // ip,porta mysql, usuario e password
SysRefresh()
MsgInfo(iif(nRet=0,"Conectado", "Erro - não conectou"), "Atenção")
// aqui trava e não sai da MsgInfo
CursorWe()
return nil
//----------------------------------------------------------------------------//
function AbreBanco()
CursorWait()
nRet:=MySelectDb("Nome do Banco")
MsgInfo(iif(nRet=0,"Selecionado", "Erro - não selecionou"), "Atenção")
CursorWe()
return nil
//----------------------------------------------------------------------------//
function FazQuery()
CursorWait()
nRet:=MyExeQuery("SELECT * FROM ASAS WHERE ID=1")
MsgInfo(iif(nRet=0,"Selecionado", "Erro - não selecionou"), "Atenção")
CursorWe()
return nil
//----------------------------------------------------------------------------//
function Desconecta()
CursorWait()
nRet:=MyDesconec()
MsgInfo(iif(nRet=0,"Desconectado", "Erro - não desconectou"), "Atenção")
CursorWe()
return nil
//----------------------------------------------------------------------------//
// MyComprime - Enable = 1 Habilita e = 0 Desabilita
DLL FUNCTION MyComprime(Enable AS LONG) AS VOID PASCAL FROM "mysql_enable_compression" LIB "MySqlMobile.dll"
//1234567890
//MyConectar(Host, Port, Username, Password) - retorna 0 se .t. ou <> 0 se .f.
DLL FUNCTION MyConectar(Host AS STRING,Port AS LONG,User AS STRING,Pass AS STRING) AS LONG PASCAL FROM "mysql_connect" LIB "MySqlMobile.dll"
//1234567890
//MyDesconec - retorna 0 se .t. ou <> 0 se .f.
DLL FUNCTION MyDesconec() AS LONG PASCAL FROM "mysql_disconnect" LIB "MySqlMobile.dll"
//1234567890
//MySelectDb - retorna 0 = tudo ok ou <> de zero quando erro
DLL FUNCTION MySelectDb(cBanco AS STRING) AS LONG PASCAL FROM "mysql_select_db" LIB "MySqlMobile.dll"
//1234567890
//MyExeQuery - retorna 0 = tudo ok ou <> de zero quando erro
DLL FUNCTION MyExeQuery(cQuery AS STRING) AS LONG PASCAL FROM "mysql_execute_query" LIB "MySqlMobile.dll"
//1234567890
