Clipper On Line • Ver Tópico - Classe TMYSQL gravando apenas 0 nos campos

Classe TMYSQL gravando apenas 0 nos campos

Discussão sobre SQL

Moderador: Moderadores

 

Classe TMYSQL gravando apenas 0 nos campos

Mensagempor Luciano Bonfim » 13 Abr 2008 20:35

estou usando xharbour 1.0.0 e a classe TMYSQL da contrib, gerei a LIB usando os includes que meu provedor de hospedagem usa (eles me enviaram) só näo recebi ainda a LIBMYSQL.DLL (pq esqueci de pedir rs)

minha aplicaçäo está se conectando com o servidor corretamente, está abrindo o banco de dados corretamente, está criando a estrutura da minha tabela corretamente, mas quando vou inserir os dados näo dá erro nenhum e quando vou olhar a tabela lá no meu servidor WEB todos os campos CARACTER estäo com valor ZERO, os campos DATA e NUMÉRICO estäo indo corretamente

Será que é porque estou usando a LIBMYSQL diferente da que meu provedor usa?

o fato do meu provedor usa o mysql em linux e meu sistema rodar em windows interfere em alguma coisa?

segue abaixo o código que estou utilizando

oRecord:FieldPut(i, FieldGet(i)) // O PROBLEMA É AQUI



oServer:=TMYSQLSERVER():NEW(cHostName,cUserName,cPassword)

IF oServer:NETERR() // Falha na conexão com o banco de dados
   MSGSTOP(oServer:ERROR())
   oServer:DESTROY()
   RETURN
ENDIF

cQuery := 'USE gopec_integracao'
oQuery := oServer:QUERY(cQuery)
IF oQuery:NETERR() // Falha na utilização do banco de dados
   MSGSTOP(cQuery+CRLF+;
           ALLTRIM(STR(oQuery:ERRORNO()))+CRLF+;
           oQuery:ERROR())
   oQuery:DESTROY()
   RETURN
ENDIF

select TMP2
dbf2Mysql("suprimento",.t.)

function dbf2Mysql
parameters cTable,lCreateTable
local cTok, nTok := 1
local aDbfStruct, i
local oTable, oRecord

aDbfStruct := dbStruct()
if lCreateTable
   if Ascan(oServer:ListTables(), cTable) > 0
      oServer:DeleteTable(cTable)
      if oServer:NetErr()
         ? oServer:Error()
         return(.f.)
      endif
   endif
   oServer:CreateTable(cTable, aDbfStruct)
   if oServer:NetErr()
      ? oServer:Error()
      quit
   endif
endif

oTable := oServer:Query("SELECT * FROM " + cTable + " LIMIT 1")
if oTable:NetErr()
   Alert(oTable:Error())
   return(.f.)
endif

go top
do while !eof()
   oRecord := oTable:GetBlankRow()

   for i := 1 to FCount()
      oRecord:FieldPut(i, FieldGet(i)) 
   next

   oTable:Append(oRecord)
   if oTable:NetErr()
      Alert(oTable:Error())
   endif
   dbSkip()
enddo
dbCloseArea()
oTable:Destroy()
return(.t.)



Muito Obrigado
Muito Obrigado,

Luciano Bonfim de Azevedo
www.bonfim.com.br
luciano@bonfim.com.br
www.linkedin.com/in/lucianobonfim
Skype : lucianobonfim
Avatar de usuário

Luciano Bonfim
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 414
Data de registro: 23 Ago 2007 09:34
Cidade/Estado: Rio de Janeiro / São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor Luciano Bonfim » 14 Abr 2008 11:10

resolvi o problema usando a libmysql.lib e a libmysql.dll da versao correta do MYSQL do servidor... agora está funcionando tudo perfeito....

assim que terminar minha rotina de sincronismo DBF para MYSQL na WEB e MYSQL para DBF posto em código fonte ...

valeu
Muito Obrigado,

Luciano Bonfim de Azevedo
www.bonfim.com.br
luciano@bonfim.com.br
www.linkedin.com/in/lucianobonfim
Skype : lucianobonfim
Avatar de usuário

Luciano Bonfim
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 414
Data de registro: 23 Ago 2007 09:34
Cidade/Estado: Rio de Janeiro / São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Classe TMYSQL gravando apenas 0 nos campos

Mensagempor fladimir » 15 Abr 2012 16:39

E aí Luciano conseguiu terminar?

[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes




Retornar para SQL

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro