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