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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ADO
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 05/05/2006 09:08 hs            
Dim rs              As ADODB.Recordset

Public Sub TEST_ADO() 
    Set rs = New ADODB.Recordset 
    sql="update tabela set campo= '" & text1.text & "' where condicao=1"
    rs.execute SQL, db
End Sub
Public Sub TEST_ADO() 
    Set rs = New ADODB.Recordset 
    sql="delete from tabela " where condicao=1"
    rs.execute SQL, db
End Sub
   
Página(s): 2/2     « ANTERIOR  


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