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
|
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
|
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
|
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 |
|
|
|
