USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  MySql + VB6
RDM.TECNOLOGIA
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 27/04/2007 11:25 hs            
Pessoal eu comecei a trabalhar com MySql a pouco tempo e estou desenvolvendo um aplicação que irá gravar, consultar, alterar dados, etc... porem não estou conseguindo gravar informações na tabela, eu utilizei as strings de banco da mesma forma que utilizo em SQL Server 2000, com MySql é diferente?

estou utilizando as strings abaixo, mas não grva!

Set Rs = New ADODB.Recordset
Sql = "SELECT campo FROM tabela Where condição "
Rs.Open Sql, conn, adOpenKeyset, adLockOptimistic
                            Rs.addnew
                            Rs!campo1 = txt1.text
                            Rs!campo2 = txt2.text
                            Rs!campo3 = txt3.text
                            Rs.update
 
será que da forma abaixo da certo?

set Rs = conn.execute("Insert Into tabela (campo1,campo2) values ('" & txt1.text & "','" & txt2.text &"'")
 
valeu
   
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 27/04/2007 18:52 hs         
Rs.Open Sql, conn, adOpenDynamic, adLockOptimistic
   
EDSON R MARTINS
não registrado
ENUNCIADA !
Postada em 06/11/2007 15:40 hs   
e para editar como funciona...?

coloquei assim ...

Set Rs = New ADODB.Recordset
Sql = "SELECT campo FROM tabela Where condição "
Rs.Open Sql, conn, adOpenKeyset, adLockOptimistic
                            Rs.update
                            Rs!campo1 = txt1.text
                            Rs!campo2 = txt2.text
                            Rs!campo3 = txt3.text
                            Rs.update

mas não deu certo....

   
marcone
não registrado
ENUNCIADA !
Postada em 06/11/2007 16:43 hs   
Set Rs = New ADODB.Recordset
Sql = "SELECT campo FROM tabela Where condição "
Rs.Open Sql, conn, adOpenKeyset, adLockOptimistic
                            Rs.update
                            Rs!campo1 = txt1.text
                            Rs!campo2 = txt2.text
                            Rs!campo3 = txt3.text
                            Rs.update


VOCÊ ESTÁ INSERINDO DOIS RS.UPDATE. DEIXE APENAS O ÚLTIMO..
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página