MSFLEXGRID
QUERO FAZER UMA FILTRAGEM DE REGISTRO EM UMA FORM DE CONSULTA, SE ALGUEM PUDER ME AJUDAR EU AGRADEÇO
Dim sql as String
Dim varLinha as Integer
Dim RS as ADODB.RecordSet
Set RS = New ADODB.RecordSet
sql = "SELECT Nome, Endereco FROM NomeTabela WHERE Nome = 'Fabio'"
RS.Open sql, CaminhoConexao
varLinha = 1
Do While RS.EOF = False
MSFlexGrid.TextMatrix(1, varLinha, RS!Nome)
MSFlexGrid.TextMatrix(2, varLinha, RS!Endereco)
RS.MoveNext
varLinha = varLinha + 1
Loop
RS.Close
Dim varLinha as Integer
Dim RS as ADODB.RecordSet
Set RS = New ADODB.RecordSet
sql = "SELECT Nome, Endereco FROM NomeTabela WHERE Nome = 'Fabio'"
RS.Open sql, CaminhoConexao
varLinha = 1
Do While RS.EOF = False
MSFlexGrid.TextMatrix(1, varLinha, RS!Nome)
MSFlexGrid.TextMatrix(2, varLinha, RS!Endereco)
RS.MoveNext
varLinha = varLinha + 1
Loop
RS.Close
Tópico encerrado , respostas não são mais permitidas