O que está errado ?

[Mafra]

Bom dia à todos, alguém poderia me esclarecer como eu faço a referência da variavel nCod_usu no código abaixo ?

nCod_usu = thisform.txtCodigo.Value

If privConexao > 0
Messagebox( 'Estou conectado ao banco !!!' )
= sqlsetprop(privCONEXAO, 'Transactions', 2)
IF sqlexec(privCONEXAO , [ insert into usuarios( cod_usu, nome_usu, senha_usu, usu_cad ) ;
values ( nCod_usu, 'nove', 'nove', 1 ) ] ) < 1
Messagebox( 'Nao foi possivel gravar no Banco de Dados!',48,'Atencao' )
ELSE
= SQLCOMMIT(privCONEXAO )
Messagebox( 'Usuário incluido com sucesso!',48,'Gravação' )
* Muda o status dos botões
thisform.CoordenaBotoes("PADRAO")
ENDIF
ELSE
Messagebox( 'Nao foi possivel conectar-se ao Banco de Dados , Verifique com TI !',48,'Atencao' )
Endif

se eu escrevo a linha da seguinte maneira ( substituo a variável pelo valor ) o registro é inserido sem erros:

IF sqlexec(privCONEXAO , [ insert into usuarios( cod_usu, nome_usu, senha_usu, usu_cad ) ;
values ( 9 , 'nove', 'nove', 1 ) ] ) < 1

[m@r<3|o]

qual a mensagem de Erro ??? Operator/Mistach

Botão inverso propriedades do thisform.txtCodigo.Value em value coloque 0 se o código for integer

ou

nCod_usu = val(thisform.txtCodigo.Value)

Testa assim ........

Commit grava a alteracao fisicamente .

Código:

nCod_usu = VAL(thisform.txtCodigo.Value)

If privConexao > 0
= sqlsetprop(privCONEXAO, 'Transactions', 2)
         
=sqlexec(privCONEXAO , [ insert into usuarios( cod_usu, nome_usu, senha_usu, usu_cad ) ;
                  values ( nCod_usu, 'nove', 'nove', 1 ) ] )
= SQLCOMMIT(privCONEXAO )
Messagebox( 'Usuário incluido com sucesso!',48,'Gravação' )
thisform.CoordenaBotoes("PADRAO")
         ENDIF
ELSE
    Messagebox( 'Nao foi possivel conectar-se ao Banco de Dados , Verifique com TI !',48,'Atencao' )
Endif

[Mafra]

Boa tarde Márcio, quando coloco a função VAL no campo, ao executar o programa é exibida a mensagem de que a função é inválida.... sabe me dizer porquê ?

Agradeço pela ajuda !

[m@r<3|o]

Erro de funcao é que problema de execucao na linha ... na Linha tem algo errado escrito


"""" Mesmo assim se colocar ou tirar o VAL o Erro seria outro
Operator Mismatch .... se fosse erro de VAL """"


qual erro está dando inicialmente com seu código
Qual o Banco de Dados ?

[Mafra]

Meu banco é MySQL, mas não há erros, quando coloco o valor fixo o sistema grava o registro normalmente, porém ao substituir o valor fixo pela variável, o sistema não grava... vou estudar uma maneira do sistema me reportar o porque de nao gravar, obrigado pela força amigo !

[m@r<3|o]

Seguinte ..... tenta isso

Local nCod_usu as String
ou
Local nCod_usu as Integer

m.nCod_usu = thisform.txtCodigo.Value

insert into values ( m.nCod_usu,

[m@r<3|o]

Tenta isso


= SQLSETPROP(privConexao , 'Transactions', 2)

vnCod_usu = thisform.txtCodigo.Value
vnome_usu = "Nove"
vsenha_usu = "Nove"
vusu_cad = 1

sqlexec(privConexao, [insert into marcas (cod_usu, nome_usu, senha_usu, usu_cad ) values (?vnCod_usu, ?vnome_usu, ?vsenha_usu, ?vusu_cad)])

= SQLCOMMIT(privConexao)

[m@r<3|o]

Observe algo semelhante ao que precisa

lnCodigo = thisformset.form2.txtcod_produto.Value

= SQLEXEC(myconnect ,'Select * from produtos WHERE cod_produto =' + alltrim(STR(lnCodigo)),'Produtos')

[Mafra]

Tenta isso


= SQLSETPROP(privConexao , 'Transactions', 2)

vnCod_usu = thisform.txtCodigo.Value
vnome_usu = "Nove"
vsenha_usu = "Nove"
vusu_cad = 1

sqlexec(privConexao, [insert into marcas (cod_usu, nome_usu, senha_usu, usu_cad ) values (?vnCod_usu, ?vnome_usu, ?vsenha_usu, ?vusu_cad)])

= SQLCOMMIT(privConexao)