insert mysql erro

[Rubens]

Relembrando a primeira mensagem :

Estou tentando inserir no mysql via fox. Consigo conetar com o banco, mas quando tento inserir abaixo:

Código:

SQLEXEC(m.gnconnhandle,"INSERT INTO TB_LIM (codlim,nomelim,nome_resp,res_titulacao,especialidade_lim,departamento,localizacao,;
   telefones,email_responsavel,email_substituto,lbba,prefixo,grupo_producao,conta_sus,historico,setor,cd_usuario,dt_usuario) ;
   VALUES (mlim,nmlim,nmresp,mtitu,nmsubs,mstitu,mesp,mdepto,mloc,mtel,memailr,memails,mlbba,mfixo,mrupo,mconta,mhis,msetor,muser,ndtuse)")

o erro é "command contains urecognized phrase/keyword".
Alguém poderia de dar uma luz.
Abs

[Rubens]

Marcos a conexão está ok e usando o debug veirifquei não tem erro.
Se voce tiver como mandar um modelo com com insert em tabelas, assim posso verificar onde está a ocorrencia ou quem sabe voce possa ver essa rotina. tem alguns itens que deixei como comentario.

Código:

m.obj = NEWOBJECT('acessoMysql')

m.gnconnhandle = m.obj.conectamysql()
m.obj.executacomando(m.gnconnhandle)


m.obj = NULL
DEFINE CLASS acessomysql AS CUSTOM

  HIDDEN conexao AS adodb.CONNECTION
  gnconnhandle = 0
  strconexao="DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.110.105;DATABASE=bd_lims;USER=xxx;PASSWORD=xxx;OPTION=3;"

  FUNCTION conectamysql AS logical
      *!* Conecta-se ao banco de dados a partir da string de conexão
      THIS.gnconnhandle = SQLSTRINGCONNECT(THIS.strconexao)
      RETURN THIS.gnconnhandle
  ENDFUNC

  FUNCTION desconectamysql AS logical
      LPARAMETERS gnconnhandle AS INTEGER
      *!*
      IF (VARTYPE(m.gnconnhandle)!="N") THEN
        m.gnconnhandle=THIS.gnconnhandle
      ENDIF
      *!*
*      IF (m.gnconnhandle>=0) THEN
*        RETURN SQLDISCONNECT(m.gnconnhandle)
*      ELSE
*        RETURN -1
*      ENDIF
  ENDFUNC

  FUNCTION executacomando
      LPARAMETERS gnconnhandle AS INTEGER, comandosql AS STRING, nomecursor AS STRING
      *!*
      IF (THIS.gnconnhandle>=0) THEN
        IF (VARTYPE(m.gnconnhandle)!="N") THEN
            m.gnconnhandle=THIS.gnconnhandle
        ENDIF
        SET STEP ON
        *!*
      
*       LOCAL sqlCommand as String


*      m.sqlCommand = [INSERT INTO TB_LIM ]
*      m.sqlCommand = m.sqlCommand + [(codlim,nomelim,nome_resp,res_titulacao,especialidade_lim,departamento,localizacao,]
*      m.sqlCommand = m.sqlCommand + [telefones,email_responsavel,email_substituto,lbba,prefixo,grupo_producao,conta_sus,]
*      m.sqlCommand = m.sqlCommand + [historico,setor,cd_usuario,dt_usuario) VALUES ("] + mlim + [","] + nmlim + [","] + nmresp + [","] + mtitu +["]
*      m.sqlCommand = m.sqlCommand + [","]+nmsubs+ [","]+mstitu+[","]+mdepto+ [","]+mloc+ [","]+mtel+ [","]+memailr+ [","]+memails+[","]+mlbba+["]
*      m.sqlCommand = m.sqlCommand + [","]+mfixo+ [","]+mrupo+ [","]+mconta+ [","]+mhis+ [","]+msetor+ [","]+muser+[")]

      lnConntest= SQLEXEC(m.gnconnhandle,m.sqlCommand)&&,m.nomecursor)
      
      IF lnConntest < 0
          AERROR(laError)
          MessageBox([Could not insert value ]+laError[1,2])
      ELSE
          IF SQLROLLBACK(con1) < 0
            AERROR(laError)
            MessageBox([Could rollback ]+laError[1,2])
        ENDIF
      ENDIF

        RETURN -1
      ENDIF
  ENDFUNC

  HIDDEN PROCEDURE INIT AS void
      THIS.conexao = NEWOBJECT("adodb.connection")
  ENDPROC

  HIDDEN PROCEDURE DESTROY AS void
      THIS.conexao = NULL
  ENDPROC
ENDDEFINE

[Marcos Guedes]

Bruno, você não precisa modificar a rotina.
Ela está contida numa classe para ser reaproveitada para qualquer outra aplicação.

Observe que deixei junto a rotina um exemplo com um SELECT.
Para utilizar o comando INSERT basta substituir o comando SELECT pelo INSERT desejado.

Ex.:

Código:

*!* Declaração das variáveis
LOCAL obj as Object
LOCAL nomecursor as String
LOCAL comando AS STRING
LOCAL strvalor1 AS STRING
LOCAL strvalor2 AS STRING
LOCAL strvalor3 AS STRING

*!* Instancia um objeto da classe
m.obj = NEWOBJECT('acessoMysql','caminhoRelativoDoArquivo\acessoMysql.prg')

*!* Nome para um cursor que será criado ao realizar uma consulta no banco de dados
m.nomecursor = SYS(2015)

*!* Valores modelos que serão incluídos
m.strvalor1 = "VALOR 1"
m.strvalor2 = "VALOR 2"
m.strvalor3 = "VALOR 3"

*!* Exemplo de comando INSERT
m.comando = [INSERT INTO minhaTabela (campo1, campo2, campo3) VALUES ]
m.comando = m.comando + [(']+m.strvalor1+[',']+m.strvalor2+[',']+m.strvalor3+[')]

*!* Conecta-se ao banco de dados
m.gnconnhandle = m.obj.conectamysql()

*!* Executa o comando
m.obj.executacomando(m.gnconnhandle, m.comando, m.nomecursor)

*!* Desconecta-se do banco de dados
m.obj.desconectamysql(m.gnconnhandle)

[Rubens]

Resolvi o problema da seguinte forma.

msql=msql+' VALUES ("&mlim","&nmlim","&nmresp","&mtitu","&nmsubs","&mstitu","&mesp","&mdepto","&mloc",'
msql=msql+'"&mtel","&memailr","&memails","&mlbba","&mfixo","&mrupo","&mconta","&mhis","&msetor","&muser","&ndtuse")'

Funcionou bem.
Valeu pela ajuda