um problema com consultas

[Lydia 0]

preciso de uma mega ajuda..rsr

...vamos lah, desde o começo entaum...

 

...Eu tô estagiando numa empresa de sistemas de informação, tô desenvolvendo meu primeiro sistema.

Nesse sistema tô usando vb e access, e pra conexão ADO connection.

Porém, tô fazendo td pelo data enviroment, a conexão, os comandos de movimentação e manutenção

de registros e as consultas em sql.

 

No formulário eu tenhu várias texts, q exibem os registros do banco e tenhu os botões de movientação e manutenção de registros.

 

 

Também tenhu uma combo q faz uma consulta filtrando dados por nome..ou cidade por exemplo.

quando eu seleciono uma opção para consulta nessa combo..eu chamo o comando em sql que eu criei lah no dataenviroment

e ele retorna o resultado da consulta nas text do formulário. (mágico neh!!) Athe aew beleza mas...

 

<<--o grande problema-->>

 

... e se eu quiser reverter ao estado anterior onde as texts apenas exibiam todos os dados dos registros de uma determinada tabela?

pq se não, quando eu clico nos botões de movimentação dah erro pq eu ainda tô dentro da consulta.

 

eh..achu q deu pra entender neh?! ^^..rsrs

me ajudem aew...

[Claudio Neto 3]

Assim, talvez você não precise criar essa outra consulta, já que está na mesma tabela. Se puder colocar seu código ai damos uma olhada e te confirmo.

 

Abraços...

[Lydia 0]

exemplo de um dos botões de moviemtação...

 

Private Sub cmd_proximo_Click()
desativar_frame

 If Text22.Text <> Empty Then
	DataSige.rsfornecedores.MoveNext
	
	If DataSige.rsfornecedores.EOF = True Then
	  DataSige.rsfornecedores.MoveLast
	  MsgBox "Último Registro", vbInformation + vbOKOnly
	End If
	
 End If
 
End Sub

 

...e a consulta

 

Private Sub DataCombo4_Click(Area As Integer)
  If DataSige.rssql_fornecedores.State = 1 Then
	DataSige.rssql_fornecedores.Close
  End If
  
  If DataCombo4.Text <> Empty Then
	 DataSige.sql_fornecedores DataCombo4.Text
	 
	 
	 
	  Text1.DataMember = "sql_fornecedores"
	  Set Text1.DataSource = DataSige
	  Text2.DataMember = "sql_fornecedores"
	  Set Text2.DataSource = DataSige
	  Text3.DataMember = "sql_fornecedores"
	  Set Text3.DataSource = DataSigePrivate Sub DataCombo4_Click(Area As Integer)
  If DataSige.rssql_fornecedores.State = 1 Then
	DataSige.rssql_fornecedores.Close
  End If
  
  If DataCombo4.Text <> Empty Then
	 DataSige.sql_fornecedores DataCombo4.Text
	 
	 
	 
	  Text1.DataMember = "sql_fornecedores"
	  Set Text1.DataSource = DataSige
	  Text2.DataMember = "sql_fornecedores"
	  Set Text2.DataSource = DataSige
	  Text3.DataMember = "sql_fornecedores"
	  Set Text3.DataSource = DataSige

 End If
End Sub

 

...e no dataEnviromt adicionei um comando sql...

 

SELECT * FROM FORNECEDORES WHERE RazãoSocial LIKE ?