PROBLEMAS NO COMANDO INSERT

MATHEUSNERIS 18/10/2012 17:50:39
#412296
Boa tarde, estou fazendo um cadastro simples e na hora de inserir encontro problemas por ser iniciante.


Segue o código abaixo que se encontra dentro do form.


Private Sub Rot_salvar_dados()
Entidade_Codigo = Me.txtCodigo.Text
Entidade_Nome = Me.txtNome.Text
Entidade_Numero_banco = Me.txtNumero_banco.Text
Entidade_Data_inicio_operacao = Me.LblData_Inclusao.Caption
Entidade_Data_alteracao = Me.LblData_Alteracao.Caption
Entidade_Data_final_operacao = Me.LblData_Operacao.Caption
Entidade_Usuario_inclusao = Me.LblUsuario_Inclusao.Caption
Entidade_Usuario_alteracao = Me.LblUsuario_Alteracao
Entidade_Usuario_final_operacao = Me.txtUsuario_final_operacao.Text

Call EntidadeAcessar([Ô]Manutencao[Ô], [Ô][Ô])
End Sub


Esse código se encontra dentro de um módulo
Public Sub EntidadeAcessar(TipoAcesso As String, PrimeiraLeitura As String)
TipoAcesso = UCase(Trim(TipoAcesso))
PrimeiraLeitura = UCase(Trim(PrimeiraLeitura))
Dim Sqlcode As String
Dim SqlComando As String

Sqlcode = 0
Select Case TipoAcesso
Case [Ô]ÚLTIMA ENTIDADE[Ô]
Dim RS As Recordset
Dim mySQL As String

mySQL = [Ô]Select * From tabela_entidades Order By Codigo_Entidade Desc[Ô]

Set RS = conect.Execute(mySQL)
If Not RS.EOF Then
GoTo RegistroEncontrado
Else
GoTo RegistroNaoEncontrado
End If
Case [Ô] [Ô]

Case [Ô] [Ô]

Case [Ô] [Ô]

Case [Ô] [Ô]

Case [Ô]MANUTENCAO[Ô]

mySQL = ([Ô]Insert Into tabela_entidades (Codigo_Entidade, Nome, Numero_Banco, Data_Inicio_Operacao) values ([ô]txtCodigo.Text[ô], [ô]txtNome.Text[ô], [ô]txtNumero_banco.Text[ô], [ô]LblData_inclusao.Label[ô])[Ô])
Set RS = conect.Execute(mySQL)
If Not RS.EOF Then
GoTo RegistroEncontrado
Else
GoTo RegistroNaoEncontrado
End If
Case [Ô] [Ô]

End Select
Exit Sub
RegistroNaoEncontrado:
Entidade_Codigo = [Ô][Ô]
Entidade_Nome = [Ô][Ô]
Entidade_Numero_banco = 0
Entidade_Data_inicio_operacao = [Ô][Ô]
Entidade_Data_alteracao = [Ô][Ô]
Entidade_Data_final_operacao = [Ô][Ô]
Entidade_Usuario_inclusao = [Ô][Ô]
Entidade_Usuario_alteracao = [Ô][Ô]
Entidade_Usuario_final_operacao = [Ô][Ô]
Sqlcode = 100
[ô]Entidade_S.Close
Exit Sub
RegistroEncontrado:
Entidade_Codigo = RS!Codigo_Entidade
Entidade_Nome = RS!Nome
Entidade_Numero_banco = RS!Numero_banco
Entidade_Data_inicio_operacao = RS!Data_Inicio_Operacao
Entidade_Data_alteracao = RS!Data_Alteracao
Entidade_Data_final_operacao = RS!Data_Final_Operacao
Entidade_Usuario_inclusao = RS!Usuario_Inclusao
Entidade_Usuario_alteracao = RS!Usuario_Alteracao
Entidade_Usuario_final_operacao = RS!Usuario_Final_Operacao

Sqlcode = 0
Exit Sub
Manutencao:
[ô]Entidade_r!Codigo = Entidade_Codigo
[ô]Entidade_r.Update
[ô]Entidade_r.Close
Exit Sub
End Sub


Desde já agradeço muito a ajuda de todos.
Um grande abraço.
VELDRAME 18/10/2012 17:54:44
#412297 Resposta escolhida
Não sei qual o seu erro.
Mas eu tiraria esse exit sub que esta logo após o[Ô] END SELECT[Ô]

Pois ele não deixa o código seguir em frente
MARCELO.TREZE 18/10/2012 17:57:24
#412298
aqui o erro

mySQL = ([Ô]Insert Into tabela_entidades (Codigo_Entidade, Nome, Numero_Banco, Data_Inicio_Operacao) values ([ô][Ô] & txtCodigo.Text & [Ô][ô], [ô][Ô] & txtNome.Text & [Ô][ô], [ô][Ô] & txtNumero_banco.Text & [Ô][ô], [ô][Ô] & LblData_inclusao.Caption & [Ô][ô])[Ô])


veja agora
VELDRAME 18/10/2012 18:01:45
#412299
Citação:

:
aqui o erro

mySQL = ([Ô]Insert Into tabela_entidades (Codigo_Entidade, Nome, Numero_Banco, Data_Inicio_Operacao) values ([ô][Ô] & txtCodigo.Text & [Ô][ô], [ô][Ô] & txtNome.Text & [Ô][ô], [ô][Ô] & txtNumero_banco.Text & [Ô][ô], [ô][Ô] & LblData_inclusao.Caption & [Ô][ô])[Ô])


veja agora



Ainda faltou referenciar o FORM, já que esta instrução esta em um modulo.

[th][/th]
Cabecalho
mySQL = ([Ô]Insert Into tabela_entidades (Codigo_Entidade, Nome, Numero_Banco, Data_Inicio_Operacao) values ([ô][Ô] & NomeFrom.txtCodigo.Text & [Ô][ô], [ô][Ô] & NomeFrom.txtNome.Text & [Ô][ô], [ô][Ô] &NomeFrom.txtNumero_banco.Text & [Ô][ô], [ô][Ô] &NomeFrom. LblData_inclusao.Caption & [Ô][ô])[Ô])
MATHEUSNERIS 18/10/2012 18:23:38
#412305
MARCELO-TREZE coloquei a linha que você falou mais ele deu erro [Ô]Variable not defined[Ô]

[th][/th]
Cabecalho

Case [Ô]MANUTENCAO[Ô]
mySQL = ([Ô]Insert Into tabela_entidades (Codigo_Entidade, Nome, Numero_Banco, Data_Inicio_Operacao) values ([ô][Ô] & txtCodigo.Text & [Ô][ô], [ô][Ô] & txtNome.Text & [Ô][ô], [ô][Ô] & txtNumero_banco.Text & [Ô][ô], [ô][Ô] & LblData_Inclusao.Caption & [Ô][ô])[Ô])
MARCELO.TREZE 18/10/2012 20:12:58
#412315
leu o que o veldrame postou logo acima, copie o código dele
MATHEUSNERIS 19/10/2012 11:00:44
#412355
Bom dia a todos,

O código que o VELDRAME passou esta salvando no banco de dados, porém ele da o erro na seguinte linha

mySQL = ([Ô]Insert Into tabela_entidades (Codigo_Entidade, Nome, Numero_Banco, Data_Inicio_Operacao) values ([ô]txtCodigo.Text[ô], [ô]txtNome.Text[ô], [ô]txtNumero_banco.Text[ô], [ô]LblData_inclusao.Label[ô])[Ô])
Set RS = conect.Execute(mySQL)
If Not RS.EOF Then

Run-time error [ô]3704[ô]:Operação não permitida quando o objeto esta fechado.

Muito obrigado a ajuda de todos. Desde já muito grato!!
Abraços.
IRENKO 19/10/2012 11:23:41
#412357
Eu faria assim:
Depois de abrir seu banco, não precisa setar seu recorset o insert into insere direto.

Private Sub Inserir()
mySQL = [Ô]INSERT INTO tabela_entidades (Codigo_Entidade, Nome, Numero_Banco, Data_Inicio_Operacao)[Ô]
mySQL = mySQL & [Ô]VALUES([Ô]
mySQL = mySQL & [Ô][ô][Ô] & txtCodigo.text & [Ô][ô],[Ô]
mySQL = mySQL & [Ô][ô][Ô] & txtNome.text & [Ô][ô],[Ô]
mySQL = mySQL & [Ô][ô][Ô] & txtNumero_banco.text & [Ô][ô],[Ô]
mySQL = mySQL & [Ô][ô][Ô] & LblData_inclusao.Label & [Ô][ô])[Ô]
conect.BeginTrans
conect.Execute (mySQL)
conect.CommitTrans
End Sub
VELDRAME 19/10/2012 11:49:09
#412362
Citação:

:
Bom dia a todos,

O código que o VELDRAME passou esta salvando no banco de dados, porém ele da o erro na seguinte linha

mySQL = ([Ô]Insert Into tabela_entidades (Codigo_Entidade, Nome, Numero_Banco, Data_Inicio_Operacao) values ([ô]txtCodigo.Text[ô], [ô]txtNome.Text[ô], [ô]txtNumero_banco.Text[ô], [ô]LblData_inclusao.Label[ô])[Ô])
Set RS = conect.Execute(mySQL)
If Not RS.EOF Then

Run-time error [ô]3704[ô]:Operação não permitida quando o objeto esta fechado.

Muito obrigado a ajuda de todos. Desde já muito grato!!
Abraços.



Faltou o comando para abrir recorset.
Mas não é preciso setar o rs, faz direto[txt-color=#e80000] conect.Execute(mySQL)[/txt-color]
MATHEUSNERIS 19/10/2012 12:11:45
#412365
Amigos, muito obrigado consegui resolver o problema. Eu tirei o [Ô]Set RS[Ô] e ele deu certo.

Muito obrigado a todos, um bom dia.
Abraços.
Tópico encerrado , respostas não são mais permitidas
Voltar