INSERT INTO
ola amigos do forum boa tarde peso um help para vcs
Segue abaixo um codigo
Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnPDV
.CommandType = adCmdText
[ô]Verifica a operação e cria o comando SQL correspondente:
If vInclusao Then
[ô]Inclusão:
CommandText = [Ô]INSERT INTO SET USUARIO [Ô] & _
[Ô](U1,U2,U3) VALUES ([ô][Ô] & _
txtu1.Text & [Ô][ô],[ô][Ô] & _
txtu2.Text & [Ô][ô],[ô][Ô] & _
txtu3.Text & [Ô][ô]);[Ô][/[/txt-color]b]Else
[ô]Alteração:
.CommandText = [Ô]UPDATE USUARIO SET [Ô] & _
[Ô]U1 = [ô][Ô] & txtu1.Text & [Ô][ô],[Ô] & _
[Ô]U2 = [ô][Ô] & txtu2.Text & [Ô][ô],[Ô] & _
[Ô]U3 = [ô][Ô] & txtu3.Text & [Ô][ô][Ô] & _
[Ô]WHERE U1 = [Ô] & txtu1.Text & [Ô];[Ô]
End If
.Execute
End With
Por favor analise este codigo
vamos oque enteresa
Banco e access e ja esta conctado certo o update funciona beleza mas o insert into não funciona da a mensagem que os dados foram inserido com sucesso quando vou olhar na tabela no banco o cadastro não foi efetuado
banco que estou usando e access 2000
o problema é no insert into
amigos muito obrigado pelo epaço
Segue abaixo um codigo
Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnPDV
.CommandType = adCmdText
[ô]Verifica a operação e cria o comando SQL correspondente:
If vInclusao Then
[ô]Inclusão:
CommandText = [Ô]INSERT INTO SET USUARIO [Ô] & _
[Ô](U1,U2,U3) VALUES ([ô][Ô] & _
txtu1.Text & [Ô][ô],[ô][Ô] & _
txtu2.Text & [Ô][ô],[ô][Ô] & _
txtu3.Text & [Ô][ô]);[Ô][/[/txt-color]b]Else
[ô]Alteração:
.CommandText = [Ô]UPDATE USUARIO SET [Ô] & _
[Ô]U1 = [ô][Ô] & txtu1.Text & [Ô][ô],[Ô] & _
[Ô]U2 = [ô][Ô] & txtu2.Text & [Ô][ô],[Ô] & _
[Ô]U3 = [ô][Ô] & txtu3.Text & [Ô][ô][Ô] & _
[Ô]WHERE U1 = [Ô] & txtu1.Text & [Ô];[Ô]
End If
.Execute
End With
Por favor analise este codigo
vamos oque enteresa
Banco e access e ja esta conctado certo o update funciona beleza mas o insert into não funciona da a mensagem que os dados foram inserido com sucesso quando vou olhar na tabela no banco o cadastro não foi efetuado
banco que estou usando e access 2000
o problema é no insert into
amigos muito obrigado pelo epaço
Cara
CommandText = [Ô]INSERT INTO SET USUARIO [Ô] & _ [ô]porque esse SET...n existe isso no Insert, tire-o
[Ô](U1,U2,U3) VALUES ([ô][Ô] & _
txtu1.Text & [Ô][ô],[ô][Ô] & _
txtu2.Text & [Ô][ô],[ô][Ô] & _
txtu3.Text & [Ô][ô]);[Ô][/[/txt-color]b]Else
boa sorte
Já retirei o set
.CommandText = [Ô]INSERT INTO USUARIO [Ô] & _
[Ô](U1,U2,U3) VALUES ([ô][Ô] & _
txtu1.Text & [Ô][ô],[ô][Ô] & _
txtu2.Text & [Ô][ô],[ô][Ô] & _
txtu3.Text & [Ô][ô]);[Ô]
deixe desta forma ainda nao deu certo da a mensagem que foi gravado olho banco e nada
.CommandText = [Ô]INSERT INTO USUARIO [Ô] & _
[Ô](U1,U2,U3) VALUES ([ô][Ô] & _
txtu1.Text & [Ô][ô],[ô][Ô] & _
txtu2.Text & [Ô][ô],[ô][Ô] & _
txtu3.Text & [Ô][ô]);[Ô]
deixe desta forma ainda nao deu certo da a mensagem que foi gravado olho banco e nada
Vc colocou exatamente como postou acima...?
o que seria isso? --> [Ô][/[/txt-color]b
.CommandText = [Ô]INSERT INTO USUARIO (U1,U2,U3) VALUES ([ô] [Ô] & txtu1.Text & [Ô] [ô], [ô] [Ô] & txtu2.Text & [Ô] [ô],[ô] [Ô] & txtu3.Text & [Ô] [ô])[Ô]
Tenta assim
Outra coisa..esses campos são String? Numéricos?
Os campos são
txtu1.txt = Código de usuario
txtu2.txt = usuario
txtu3.txt = Senha
no banco em access 2000
Tabela se chama USUARIO
ID = CHAVE PRIMARIA NUMERAÇÃO AUTOMATICA ESTE CAMPO SO TEM NA TABELA DO BANCO DE DADOS
U1 = CODIGO CAMPO NUMERICO
U2 = USUARIO CAMPO TEXTO
U3 = SENHA CAMPO NUMERICO
txtu1.txt = Código de usuario
txtu2.txt = usuario
txtu3.txt = Senha
no banco em access 2000
Tabela se chama USUARIO
ID = CHAVE PRIMARIA NUMERAÇÃO AUTOMATICA ESTE CAMPO SO TEM NA TABELA DO BANCO DE DADOS
U1 = CODIGO CAMPO NUMERICO
U2 = USUARIO CAMPO TEXTO
U3 = SENHA CAMPO NUMERICO
ainda esta com o mesmo problema da a mensagem que foi gravado o registro mas na tabela não tem nada
o ingraçado que o update funciona bela so o insert que não
o ingraçado que o update funciona bela so o insert que não
insert into usuario(U1,U2,U3)VALUES([ô][Ô] & txtu1.text & [Ô][ô],[ô][Ô] & txtu2.text & [Ô][ô],[ô][Ô] & txtu3.text & [Ô][ô][Ô])
Usa da seguinte maneira
Public con As ADODB.Connection
Dim sSQL As String
sSQL = [Ô]INSERT INTO USUARIO(U1,U2,U3) [Ô]
sSQL = sSQL & [Ô]VALUES ([ô][Ô] & txtNomeDep & [Ô][ô], [ô][Ô] & [Ô][ô], [ô][Ô] & txtu1 & [Ô][ô], [Ô] & txtu2 &â€â€™,’†& txtu3 [Ô])[Ô]
con.BeginTrans
con.Execute sSQL
con.CommitTrans
MsgBox [Ô]Usuário gravado com sucesso![Ô]
CORRINDO
muito obrigado amigos pela ajuda
Q bom q deu certo
O erro na vdd então era na sintaxe...pq tem diferença qdo é numérico ou texto
até mais
Tópico encerrado , respostas não são mais permitidas