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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Update
Lú998
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 16/02/2006 16:22 hs         
Galera, tenho outra duvida :
 
Como faço para que o sistema entenda que o meu campo é uma determinada variavel.
Por exemplo:
cCampo = "Nome"
with ado_Calculo.recordset
   !cCampo = "Rafael" ---------Preciso que o sistema entenda que o cCampo é o campo  Nome dentro do meu banco de dados !!!!!
 
É possivel ? Tem outra maneira de dar update sem ser usando o with ??
 
Grata,
 
 
 
   
VACA
LIMEIRA
SP - BRASIL
ENUNCIADA !
Postada em 17/02/2006 06:09 hs            
ado_calculo(index).name retorna o nome do campo. a partir disse vc pode saber o q tem dentro do campo usando apenas as suas propriedades ado_calculo(index).Value, lembre a a tabela eh uma matriz (n,m).
 
QQ duvida me add no msn:
mduscov@hotmail.com
 

"Quando estou fraco, aí então é que sou Poderoso"
   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 17/02/2006 06:13 hs         

pode ser assim?

Private Sub Command6_Click()
  Dim rstProdutos As Recordset
  Dim Nome As Field
  Set rstProdutos = vgdb.OpenRecordset("Produtos")
  If rstProdutos.RecordCount > 0 Then
    Do While Not rstProdutos.EOF
      MsgBox rstProdutos!Nome
      rstProdutos.MoveNext
    Loop
  End If
  If Not rstProdutos Is Nothing Then
    rstProdutos.Close
    Set rstProdutos = Nothing
  End If
End Sub

 

Obs.: Nome é o próprio nome da coluna na tabela, você cria uma variável field com o nome da coluna

   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 17/02/2006 06:13 hs         

pode ser assim?

Private Sub Command6_Click()
  Dim rstProdutos As Recordset
  Dim Nome As Field
  Set rstProdutos = vgdb.OpenRecordset("Produtos")
  If rstProdutos.RecordCount > 0 Then
    Do While Not rstProdutos.EOF
      MsgBox rstProdutos!Nome
      rstProdutos.MoveNext
    Loop
  End If
  If Not rstProdutos Is Nothing Then
    rstProdutos.Close
    Set rstProdutos = Nothing
  End If
End Sub

 

Obs.: Nome é o próprio nome da coluna na tabela, você cria uma variável field com o nome da coluna

   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 17/02/2006 06:13 hs         

pode ser assim?

Private Sub Command6_Click()
  Dim rstProdutos As Recordset
  Dim Nome As Field
  Set rstProdutos = vgdb.OpenRecordset("Produtos")
  If rstProdutos.RecordCount > 0 Then
    Do While Not rstProdutos.EOF
      MsgBox rstProdutos!Nome
      rstProdutos.MoveNext
    Loop
  End If
  If Not rstProdutos Is Nothing Then
    rstProdutos.Close
    Set rstProdutos = Nothing
  End If
End Sub

 

Obs.: Nome é o próprio nome da coluna na tabela, você cria uma variável field com o nome da coluna

   
Lú998
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 17/02/2006 15:18 hs         
Oi Galera !!!
 
O Elieser Topassi me mandou um email com uma solução parecida com a do VACA. Segue solução :
 
    cVariavel = Campo1
 
    With ado_Calculo.recordset
        .fields(cVariavel).Value = "Rafael"
        .update
    end with
 
Muito obrigada a todos pela ajuda ! Valeu !!!
 
Até mais !!
 
   
Página(s): 1/1    

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