Erro na inclusão de registros em mysql
Enviado: 08 Jun 2014 00:56
Estou enfrentando erro na inclusão de registros em tabela de banco de dados mysql. Fiz uma rotina de teste baseada na função demo que o Toledo postou. Ficou assim:
A conexão está funcionando, a tabela foi criada, mas está dando erro na inclusão de registros. Já testei várias formas de preencher os dados, mas nada dá certo. Como não dá o código de erro, não consegui saber de onde vem o erro.
/*********************************************
* compilar: hbmk2 demo.prg rddsql.hbc sddodbc.hbc
*********************************************/
#include "dbinfo.ch"
#define RDDI_CONNECT 1001
#define RDDI_DISCONNECT 1002
#define RDDI_EXECUTE 1003
ANNOUNCE RDDSYS
REQUEST SQLMIX, SDDODBC
**********************************************
Function Main()
LOCAL nConnection
RDDSETDEFAULT( "SQLMIX" )
SetMode(25,80)
nConnection := RDDINFO( RDDI_CONNECT, { "ODBC", "Server=mysql.xxx.com.br;Driver={MySQL ODBC 3.51 Driver};dsn=;User=xxx;pwd=xxx;database=xxx2;" } )
IF nConnection == 0
Alert("Erro na conexao com o servidor")
Return nil
ENDIF
If CriaTabela()
DBUSEAREA( .T.,, "SELECT * FROM ativ", "ativ" )
INDEX ON FIELD->DATA TAG data TO ativ
GO TOP
Else
Return nil
EndIf
Browse()
DBCLOSEALL()
Return nil
**********************************************
Function CriaTabela()
Local ret := .T., cQuery
cQuery:="DROP TABLE ativ"
RDDINFO(RDDI_EXECUTE, cQuery)
cQuery:="CREATE TABLE ativ ("+;
"USUARIO char(10),"+;
"PROGRAMA char(8),"+;
"DATA datetime,"+;
"HORA char(8),"+;
"ACAO char(10),"+;
"DETALHES char(100),"+;
"NRTAREFA char(6),"+;
"PRIORIDADE int(1),"+;
"CAMPO char(1),"+;
"TEMPOUSADO decimal(6,1),"+;
"TEMPOCOMPU decimal(6,1))"
If RDDINFO(RDDI_EXECUTE, cQuery)
cQuery:="INSERT INTO ativ values ('Inacio','demo','08/06/2014','00:49','Teste','Testando','I1',1,'V',1.1,1.2)"
If !RDDINFO(RDDI_EXECUTE, cQuery)
Alert("Erro ao incluir registros na tabela")
ret := .F.
EndIf
Else
Alert("Erro ao criar a tabela")
ret := .F.
EndIf
Return ret
A conexão está funcionando, a tabela foi criada, mas está dando erro na inclusão de registros. Já testei várias formas de preencher os dados, mas nada dá certo. Como não dá o código de erro, não consegui saber de onde vem o erro.