SELECT COUNT PARA VARIAVEL [IMPORTANTE]

MARCELO.TREZE 22/05/2012 12:50:55
#402466
troque o MoveNext para MoveFirst
SYSZEN 22/05/2012 13:39:38
#402472
caso mude continua com o erro

3265 : item not fount in this collection
SYSZEN 22/05/2012 17:01:57
#402483
isto ta a ficar complicado resolver :s
MARCELO.TREZE 22/05/2012 17:27:03
#402486
Tira de dentro do loop



conta.RecordSource = [Ô]select * from conta[Ô]
conta.refresh

se o datagrid for vinculado tente dar um refresh no datagrid
SYSZEN 22/05/2012 18:24:45
#402490
marcelo o meu codigo agora esta com isso fora do loop

Dim texto As String, adicionar As String, quant As Integer, Cont As Integer
conta.Recordset.MoveFirst
Do
texto = Text1.Text
procurar = conta.Recordset![id]
encontrar = InStr(texto, procurar)
If encontrar = 0 Then
adicionar = conta.Recordset![id]
Text1.Text = Text1.Text + adicionar + [Ô],[Ô]
conta.RecordSource = [Ô]select count(*) as quant from conta where id =[Ô] & procurar
conta.Refresh
Cont = conta.Recordset.Fields([Ô]quant[Ô])
adicionar = Cont
Text2.Text = Text2.Text + adicionar + [Ô],[Ô]
End If
[txt-color=#e80000](eu penso que é nesta zona que preciso de meter algo que tire o select mas nao sei o que)[/txt-color]
conta.Recordset.MoveNext
Loop Until conta.Recordset.EOF
conta.RecordSource = [Ô]select * from conta[Ô]
conta.refresh
MARCELO.TREZE 22/05/2012 18:30:46
#402491
qual o grid está usando é um datagrid?
SYSZEN 22/05/2012 18:42:19
#402493
Citação:

:
qual o grid está usando é um datagrid?



chama-se DBGrid (na parte esquerda do vb onde estao as textbox e assim) e Data Bound Grid nos componentes nao sei se ajuda
SYSZEN 22/05/2012 18:51:30
#402494
bem pessoal isto ta a ficar complicado eu vou expor aqui o problema com comentarios para simplificar
[txt-color=#e80000]Problema :[/txt-color]
ele conta os registos e ele faz o que é pedido mas ele ao fazer o select restinge o resto do [Ô]DO[Ô] ao select so ao sair do [Ô]DO[Ô] tira o select , conclusao ele so faz isso para o primeiro registo percebem ?

[txt-color=#e80000]Código:[/txt-color]
Dim texto As String, adicionar As String, quant As Integer, Cont As Integer
conta.Recordset.MoveFirst
Do
texto = Text1.Text
procurar = conta.Recordset![id]
encontrar = InStr(texto, procurar)
If encontrar = 0 Then
adicionar = conta.Recordset![id]
Text1.Text = Text1.Text + adicionar + [Ô],[Ô]
conta.RecordSource = [Ô]select count(*) as quant from conta where id =[Ô] & procurar [txt-color=#e80000] (ta aqui o select como podem ver)[/txt-color]
conta.Refresh (ta aqui o select como podem ver)[/txt-color]
Cont = conta.Recordset.Fields([Ô]quant[Ô])(ta aqui o select como podem ver)[/txt-color]
adicionar = Cont
Text2.Text = Text2.Text + adicionar + [Ô],[Ô]
End If
[txt-color=#e80000](epá posso tar errado mas é aqui que devo de meter o codigo que preciso e o codigo que preciso é para acabar com o select que fiz ali em cima, que ele assim quando voltar ao [Ô]DO[Ô] ja vai fazer um novo select cm o 2 registo e dai endiante até ao fim digo eu , mas epa acho estranho ele depois ir do 2 ara o 3 registo quando tiro o select se é que entendem)[/txt-color]
conta.Recordset.MoveNext
Loop Until conta.Recordset.EOF
conta.RecordSource = [Ô]select * from conta[Ô] [txt-color=#e80000](isto tira o select , mas isto dentro do [Ô]DO[Ô] nao funciona)[/txt-color]
conta.refresh

Informaçoes Extra caso precisem
tou a utilizar um controlo data vinculado (se nao me engano)
(ex para add registo:
data1.recordset.add
data1.recordset![numero] = 2
data1.recordset.update)
os dados estão presentes numa DBGrid (Data Bound Grid) , que uso para mostrar os dados da bd ao cliente

Isto é trabalho para a PAP mas tou a empancar aqui :s
MARCELO.TREZE 22/05/2012 19:00:27
#402496
Tente trocar isto

(epá posso tar errado mas é aqui que devo de meter o codigo que preciso e o codigo que preciso é para acabar com o select que fiz ali em cima, que ele assim quando voltar ao [Ô]DO[Ô] ja vai fazer um novo select cm o 2 registo e dai endiante até ao fim digo eu , mas epa acho estranho ele depois ir do 2 ara o 3 registo quando tiro o select se é que entendem)
conta.Recordset.MoveNext
Loop Until conta.Recordset.EOF
conta.RecordSource = [Ô]select * from conta[Ô] (isto tira o select , mas isto dentro do [Ô]DO[Ô] nao funciona)
conta.refresh


por isso

Set DBGrid1.DataSource = Data1
SYSZEN 22/05/2012 19:37:51
#402499
mas eu tou a usar no select uma variavel que vou a buscar a bd nao a dbgrid percebes? logo eu tenho qe retirar o select que fiz tipo o qe tenho ao final

conta.RecordSource = [Ô]select * from conta[Ô]
conta.refresh

mas eu vou exprimentar onde é para meter esse codigo ?
Página 2 de 3 [27 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar