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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  lógica
Mr
CONTAGEM
MG - BRASIL
ENUNCIADA !
Postada em 13/05/2005 17:52 hs         
o que está errado neste código?
 
Dim strresp As String
strresp = MsgBox("Deseja desativar a solicitação impressa?", vbYesNo)
If strresp = 6 Then
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\servidorproh     este.mdb;Jet OLEDB:Database ;"
rs.Open "select disponivel from tabela where tabela.nome = '" & List1.Text & "'", cnn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then 
rs!disponivel = "0"
rs.Update
rs.Close
 
Na verdade, eu quero q ele altere o "disponível" só do registro selecionado, mas ele está alterando todos os registros e mostra um erro falando justamente issu...
Desde ja, agradecimentos....
(Eu sei que estou postando muito, mas é que estou começando a programar com ado)
 
   
Keyo
Pontos: 2843
CURITIBA
PR - BRASIL
ENUNCIADA !
Postada em 13/05/2005 18:08 hs            
Esse seu select tá estranho!!!! a sintaxe é a seguinte
 
"select disponivel from tabela where nome = '" & list1.text & "'"
 
Naum tem o porque usar aquele "tabela.nome"
   
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 13/05/2005 18:24 hs            
Verifique se existe diversos campos NOME com o conteudo que voce esta digitando.
Voce pode fazer assim tambem
 
    cnn.Execute "update tabela Set disponivel = 0 where nome = '" & list1.text & "'"
 
Assim ele executa a gravacao direta sem precisar ler.

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
   
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