Postada em 12/08/2008 21:49 hs
Ola pessoal estou (ainda) lutando com o mysql e o VB estou enfrentando um grande problema para atualizar as consultas, abaixo coloco um pedaço do código e minha dúvida se alguém puder me ajude. Agradeço.
Form_Load
busca0 = "select * from a_contas where a_con_nivel=0 order by a_con_conta; "
buscaLocal = "select * from a_contas where a_con_nivel=" & nivel_proc & " and a_con_relacao=" & conta_atual & " order by a_con_conta;"
myCon.Open "DSN=contas"
With Cmd0
Set .ActiveConnection = myCon
.CommandType = adCmdText
.CommandText = busca0
End With
With cmdAchaLocal
Set .ActiveConnection = myCon
.CommandType = adCmdText
.CommandText = buscaLocal
End With
With db_nivel0
.LockType = adLockPessimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.Open Cmd0
End With
With mylocal
.LockType = adLockPessimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.Open cmdAchaLocal
End With
Command1_Click
'ao selecionar o nível e a conta atual desejo clicar em um botao e quero saber se existe algum registro na selecao com essa conta e nível.
conta_atual = Text1.text
nivel_proc = Text2.text
'aqui acho que tem que ter um comando com o mylocal para ele atualizar dentro do critérios das variaveis que quero mas não sei como fazer.
If mylocal.EOF Then
'executa procedimentos para fim de arquivo
Else
mylocal.MoveMax
ultima_conta = mylocal.Fields("a_con_conta")
'executa procedimentos para nao fim de arquivo
End If
' o problema é que nao estou conseguindo atualizar o recordset mylocal
' Não sei como fazer ele atualizar conforme mudo o conta_atual e o nivel_proc, pois a string de busca é definida no
' inicio e ao chama-la durante a execuçào do programa nao consigo atualiza-la com os novos valores das variáveis.
|
