INSERT INTO

FAUSTOARAXA 05/02/2010 14:09:46
#333708
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
SINKERTEC 05/02/2010 14:34:04
#333717

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
FAUSTOARAXA 05/02/2010 14:42:31
#333719
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
SINKERTEC 05/02/2010 15:08:49
#333723


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?
FAUSTOARAXA 05/02/2010 15:27:02
#333727
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
FAUSTOARAXA 05/02/2010 15:31:12
#333729
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
LEANDRO 05/02/2010 15:42:15
#333730
insert into usuario(U1,U2,U3)VALUES([ô][Ô] & txtu1.text & [Ô][ô],[ô][Ô] & txtu2.text & [Ô][ô],[ô][Ô] & txtu3.text & [Ô][ô][Ô])
JPAULO101 05/02/2010 15:45:39
#333731
Resposta escolhida

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![Ô]
JPAULO101 05/02/2010 15:49:45
#333732
CORRINDO
FAUSTOARAXA 05/02/2010 16:02:45
#333734
muito obrigado amigos pela ajuda
SINKERTEC 05/02/2010 16:14:56
#333735


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
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas