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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  alterando com sql
Souza
NOVA FATIMA
PR - BRASIL
Postada em 26/08/2004 17:21 hs            
Pessoal essa linha esta alterando todo o mdb com o registro q tento editar.
O pior e que ele esta funcionando perfeito em outro sistema meu mais o menos = o que estaria errado
Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)
query = "Select * From COMPRAS where P1 = '" & P1 & "'"
Set dyn = xxbco.CreateDynaset(query)
Dim SQL As String
SQL = "UPDATE COMPRAS SET P1 = '" & P1 & "', P2='" & P2 & "', P3='" & P3 & "' "
xxbco.Execute SQL
xxbco.Close
MsgBox "ALTERAÇÃO (Ok)!", vbExclamation
     
Xevious
PORTO ALEGRE
RS - BRASIL
ENUNCIADA !
Postada em 26/08/2004 17:28 hs         
acho que em
 
SQL = "UPDATE COMPRAS SET P1 = '" & P1 & "', P2='" & P2 & "', P3='" & P3 & "' "
deveria ter um where pra não alterar tudo
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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