Olá!
Estou recebendo o erro 1064 (figura) no xBrowse ao consultar uma tabela em MySQL na Internet.
//
// conectar
FWConnect oDba Host cServer User cUsrAdm PassWord cPasAdm DB cDtaBas
If oDba == Nil
oDba:ShowError()
MsgAlert("Não foi possível acessar o BD da aplicação","Atenção")
Return(.f.)
EndIf
oDba:SelectDB(cDtaBas)
oDba:lShowErrors(.t.)
oDba:SetAutoCommit(.t.)
...
...
// criar sql
oPes := oDba:RowSet( "select id as 'ID',nom_pes as 'Nome',ape_pes as 'Apelido'," +;
"ema_pes as 'E-mail',concat('(',substring(tel_pes,1,2),')',"+;
"substring(tel_pes,3,4),'-',substring(tel_pes,7,4)) " +;
"as 'Telefone',concat('(',substring(cel_pes,1,2),')'," +;
"substring(cel_pes,3,5),'-',substring(cel_pes,8,4)) as 'Celular' " +;
"from tb_pes order by nom_pes", .t. )
If oPes == Nil
Return(Nil)
EndIf
...
...
// xbrowse
@ 4.3,00 xBrowse oPesBrw Of oPesWnd ;
DataSource oPes ;
On DblClick(lNew:=.f.,PessoaIncluir()) ;
Font oFnt1 NoBorder Cell ;
UpDate AutoSort
...
...
Após navegar entre os registros e tentar recuperar um deles para edição a mensagem é apresentada.
Alguma dica?
Obrigado!
Rodrigo Melo
Brasil
FW-18.02 / xH / BCC-7.3