INSERINDO REGINTRO VB6 MYSQL

USUARIO.EXCLUIDOS 09/04/2007 13:36:31
#210823

E o meu primeiro trabalho com VB6 e Mysql. Fiz a conexão tudo blz.
Mas como eu faço para incluir, excluir, um registro.?

Valeu
ESLEYSANCHES 09/04/2007 13:49:21
#210827
você está utilizando ADO ? bem, se estiver utilizando ADO, abaixo tem um exemplozinho simples que faz uma conexão com o banco, e em seguida uma inclusao de dados. Lembre-se de alterar algumas coisas no cód. abaixo:


DIM RS, CONEXAO
Set CONEXAO = createobject("ADODB.Connection")
Set RS = createobject("ADODB.Recordset")

CONEXAO.open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=SUA_BASE;User=USUARIO;Password=SENHA;Option=3;"

'Se desejar fazer uma consulta em uma tabela por exemplo, é aqui que você faz
'rs.open "SELECT * FROM sua_tabela"
'Para puxar dados:
'Do While not RS.EOF
'    msgbox(rs("CAMPO"))
'Loop

'Inserir dados
conexao.execute("INSERT INTO sua_tabela (campo1, campo2) VALUES ('valor','valor2')")

'fecha conexão e Recordset
RS.Close
CONEXAO.Close



Espero que te ajude !!
Abraços !!
USUARIO.EXCLUIDOS 09/04/2007 15:10:01
#210847
'Inserir dados
Conexao.Execute ("INSERT INTO cadastro (grupo,setor,tratamento,nome,) VALUES (" & TxtGrupo.Text & "," & Txtsetor.Text & "," & Cbotratamento.Text & "," & Txtnome.Text & ")")

Esta dando um erro
USUARIO.EXCLUIDOS 09/04/2007 15:18:41
#210857
kra eu faço da seguinte forma:
SQL = "INSERT INTO cadastro (grupo,setor,tratamento,nome,) VALUES ('" & TxtGrupo.Text & "','" & Txtsetor.Text & "','" & Cbotratamento.Text & "','" & Txtnome.Text & "'"
Conexao.Execute(SQL)
USUARIO.EXCLUIDOS 09/04/2007 15:27:57
#210860 

"INSERT INTO cadastro(grupo,setor,tratamento,nome)VALUES('" & TxtGrupo.Text & "','" & Txtsetor.Text & "','" & Cbotratamento.Text & "','" & Txtnome.Text & "')"
USUARIO.EXCLUIDOS 09/04/2007 15:29:49
#210861
outro erro tb, vc esta colocando "," depois de nome ai ele da aquele erro.
USUARIO.EXCLUIDOS 09/04/2007 15:41:55
#210865
Esse é o meu codigo que esta dando erro na hora de incluir um registro

'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)
VBAPRENDE 09/04/2007 16:15:31
#210869
você deve colocar aspas simples(') aonde o tipo do campo for char ou varchar exp:
sql = "INSERT INTO cadastro (grupo,setor,tratamento,nome) VALUES (" & TxtGrupo.Text & ",'" & Txtsetor.Text & "','" & Cbotratamento.Text & "','" & Txtnome.Text & "')"

Conexao.Execute (sql)

Repare que no grupo se for numerico você não coloca a aspa simples(') caso não seja numerico você deve colocar a aspas simples(') Lembrando que deve estar dentro da aspas simples. Ex: VALUES( 1, 'Informação').

Espero ter ajudado !!!
Duvidas poste de novo.
ramister_roo@hotmail.com
USUARIO.EXCLUIDOS 09/04/2007 16:17:26
#210870
1º)Você emiti uma mensagem dizendo que o registro foi salvo e depois você Salva;

2º)Coloque na forma como o RomuloR postou(adicionando uma aspas ' simples ).
WEBER 09/04/2007 17:53:06
#210876
lambrando tb que se vc estiver usando o drive odbc para conexao vc pode trabalhar normalmente com o recordset usando as operações addnew, delete, update ....
ESLEYSANCHES 09/04/2007 18:22:12
#210879
Amigo pelo que reparei há alguns errinhos simples em seu código, abaixo eu refiz ele e arrumei, veja se agora funciona legal !!

Por exemplo no campo aniversario suponho que o mesmo esteja formatado como date certo ? se sim, use #, caso contrário utilize '

Enfim, com as alterações cole o código abaixo e veja se te ajuda !!

'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)


Espero que te ajude !!
Abraços !!
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar