INSERINDO REGINTRO VB6 MYSQL

ESLEYSANCHES 09/04/2007 18:23:42
#210880

Se não funcionar o código acima tente esse abaixo:

'Salvar registro
Resp = MsgBox("Registro salvo com sucesso", vbOKOnly, "Salvar Registro")
If Resp = vbOK Then
       
'Inserir dados
sql = "INSERT INTO cadastro (grupo,setor,tratamento,nome,endereco,aniversario,bairro,cidade,uf,cep,pais,telefone,fax,site,email,data_cadastro,data_atualização) VALUES ('" & TxtGrupo.Text & "','" & Txtsetor.Text & "','" & Cbotratamento.Text & "','" & Txtnome.Text & "','" & Txtendereco.Text & "','" & Txtdata_aniversario.Text & "','" & Txtbairro.Text & "','" & Txtcidade.Text & "','" & Txtuf.Text & "','" & Mskcep.Text & "','" & Txtpais.Text & "','" & Msktelefone.Text & "','" & Mskfax.Text & "','" & Txtsite.Text & "','" & Txtemail.Text & "','" & Txtdata_atual.Text & "','" & Txtatualização.Text & "')"

Conexao.Execute (sql)

Abraços !!

USUARIO.EXCLUIDOS 10/04/2007 13:55:41
#211025

Valeu galera pela força. funcionou legal, ta incluindo blz. Mas se o campo Txtdata_aniversario.Text estiver vazio ele da um erro na coluna. Como se ele não aceita-se o campo vazio.

Como retorar esso problema.

USUARIO.EXCLUIDOS 11/04/2007 11:34:18
#211197

Como fazer uma atualização no cadastro.

Meu codigo

'Salvar Alteração
Conexao.Execute ("UPDATE cadastro SET grupo = '" & TxtGrupo.Text & "', setor = '" & Txtsetor & "', tratamento = '" & Cbotratamento.Text & "', nome = '" & Txtnome.Text & "', endereco = '" & Txtendereco.Text & "', aniversario = '" & Txtdata_aniversario.Text & "', bairro = '" & Txtbairro.Text & "', cidade = '" & Txtcidade.Text & "', uf = '" & Txtuf.Text & "', cep = '" & Mskcep.Text & "', pais = '" & Txtpais.Text & "', telefone = '" & Msktelefone.Text & "', fax = '" & Mskfax.Text & "', site = '" & Txtsite.Text & "', email = '" & Txtemail.Text & "'")

O problema e q ele atualiza tudo e todos no banco de dados

WEBMASTER 11/04/2007 12:53:01
#211233

Esta faltando um where ai

exemplo

blablabla where website = 'VBMANIA'

Página 2 de 2 [14 registro(s)]

Tópico encerrado , respostas não são mais permitidas

Voltar