MSFLEXGRID1

USUARIO.EXCLUIDOS 22/08/2007 16:04:18
#232094
Ola tenho um MSFlexGrid1 que faz uma consulta...oque quero fazer e na hora que fizer a consulta ele colcase na numeração crescente...ele tem uns 1000 arquivos...mais quando faço a pesquisa fica tudo bagunçado
gostaria de ficase assim 1 a 1000
USUARIO.EXCLUIDOS 22/08/2007 16:06:25
#232096 Resposta escolhida

Essa numeração já vem na consulta ou vc quer criar a parte?

se vier da consulta, basta colocar no seu sql, q é o q acho q ta usando pra consultar e colocar no final ORDER BY Código" \ou o nome do seu campo código

entendeu?
USUARIO.EXCLUIDOS 22/08/2007 16:09:54
#232099
a numeracao ja vem junto com o registro

entao eu nao sei onde eu colocao o ORDER BY CODIGO

EU USO ESSE COMANDO AKI PARA PUXAR OS DADOS DO BANCO

Private Sub Command2_Click()
Dim Criterio As String
Dim SQL As String
With Me.MSFlexGrid1
If Text1.Text = "" Then
        .Enabled = False
        vidCodigo = ""
        vpasta = ""
        vlugar = ""
        vcodigo = ""
        vcadastro = ""
        vprocesso = ""
        vexecutado = ""
        vsituacao = ""
        .Rows = 2
        .TextMatrix(.Rows - 1, 1) = ""
        .TextMatrix(.Rows - 1, 2) = ""
        .TextMatrix(.Rows - 1, 3) = ""
        .TextMatrix(.Rows - 1, 4) = ""
        .TextMatrix(.Rows - 1, 5) = ""
        .TextMatrix(.Rows - 1, 6) = ""
        .TextMatrix(.Rows - 1, 7) = ""
        .Rows = .Rows - 1
        Me.Caption = "Buscar Pasta(s) Cadastrada(s)"
        Exit Sub
Else
        .Enabled = True
End If
.Rows = 2
Connect
Criterio = Chr(39) & "%" & Me.Text1.Text & "%" & Chr(39) 'Chr(39) são as aspas
SQL = "SELECT * FROM processoverde v WHERE v.pasta Like " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processoamarelo a WHERE a.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processoazul b WHERE b.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processolaranja d WHERE d.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM parcelados f WHERE f.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processorosa1 g WHERE g.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processorosa2 t WHERE t.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processorosa3 p WHERE p.pasta LIKE " & Criterio
'MsgBox SQL
RS.Open SQL, CON, adOpenStatic, adLockOptimistic
Do While Not RS.EOF
    On Error Resume Next
      .TextMatrix(.Rows - 1, 1) = RS.Fields(1).Value
      .TextMatrix(.Rows - 1, 2) = RS.Fields(2).Value
      .TextMatrix(.Rows - 1, 3) = RS.Fields(3).Value
      .TextMatrix(.Rows - 1, 4) = RS.Fields(4).Value
      .TextMatrix(.Rows - 1, 5) = RS.Fields(5).Value
      .TextMatrix(.Rows - 1, 6) = RS.Fields(6).Value
      .TextMatrix(.Rows - 1, 7) = RS.Fields(7).Value
      .Rows = .Rows + 1
      RS.MoveNext
Loop
.Rows = .Rows - 1
regContador = CStr(RS.RecordCount)

    If .Rows = 2 Then
      Me.Caption = "Buscar Pasta(s) Cadastrada(s) - " & regContador & " Pasta(s) Encontrada(s)"
    Else
      Me.Caption = "Buscar Pasta(s) Cadastrada(s) - " & regContador & " Pasta(s) Encontrada(s)"
    End If
Disconnect
End With
End Sub
USUARIO.EXCLUIDOS 22/08/2007 16:13:14
#232100

coloque o order by aki ó

Criterio = Chr(39) & "%" & Me.Text1.Text & "%" & Chr(39) 'Chr(39) são as aspas
SQL = "SELECT * FROM processoverde v WHERE v.pasta Like " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processoamarelo a WHERE a.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processoazul b WHERE b.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processolaranja d WHERE d.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM parcelados f WHERE f.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processorosa1 g WHERE g.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processorosa2 t WHERE t.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processorosa3 p WHERE p.pasta LIKE " & Criterio

SQL = SQL & "Order By Código <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

'MsgBox SQL

entendeu?
USUARIO.EXCLUIDOS 22/08/2007 16:20:24
#232103
Infelismente nao deu certo
USUARIO.EXCLUIDOS 22/08/2007 16:30:44
#232106
Nao deu certo nao
USUARIO.EXCLUIDOS 22/08/2007 16:33:04
#232107
copie o código como ficou aki pra eu ver por favor
USUARIO.EXCLUIDOS 22/08/2007 16:35:36
#232108
eu fiz assim

Private Sub Command2_Click()
Dim Criterio As String
Dim SQL As String
With Me.MSFlexGrid1
If Text1.Text = "" Then
        .Enabled = False
        vidCodigo = ""
        vpasta = ""
        vlugar = ""
        vcodigo = ""
        vcadastro = ""
        vprocesso = ""
        vexecutado = ""
        vsituacao = ""
        .Rows = 2
        .TextMatrix(.Rows - 1, 1) = ""
        .TextMatrix(.Rows - 1, 2) = ""
        .TextMatrix(.Rows - 1, 3) = ""
        .TextMatrix(.Rows - 1, 4) = ""
        .TextMatrix(.Rows - 1, 5) = ""
        .TextMatrix(.Rows - 1, 6) = ""
        .TextMatrix(.Rows - 1, 7) = ""
        .Rows = .Rows - 1
        Me.Caption = "Buscar Pasta(s) Cadastrada(s)"
        Exit Sub
Else
        .Enabled = True
End If
.Rows = 2
Connect
Criterio = Chr(39) & "%" & Me.Text1.Text & "%" & Chr(39) 'Chr(39) são as aspas
SQL = "SELECT * FROM processoverde v WHERE v.pasta Like " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processoamarelo a WHERE a.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processoazul b WHERE b.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processolaranja d WHERE d.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM parcelados f WHERE f.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processorosa1 g WHERE g.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processorosa2 t WHERE t.pasta LIKE " & Criterio
SQL = SQL & " UNION "
SQL = SQL & "SELECT * FROM processorosa3 p WHERE p.pasta LIKE " & Criterio
SQL = SQL & "Order By Codigo "
'MsgBox SQL
RS.Open SQL, CON, adOpenStatic, adLockOptimistic
Do While Not RS.EOF
    On Error Resume Next
      .TextMatrix(.Rows - 1, 1) = RS.Fields(1).Value
      .TextMatrix(.Rows - 1, 2) = RS.Fields(2).Value
      .TextMatrix(.Rows - 1, 3) = RS.Fields(3).Value
      .TextMatrix(.Rows - 1, 4) = RS.Fields(4).Value
      .TextMatrix(.Rows - 1, 5) = RS.Fields(5).Value
      .TextMatrix(.Rows - 1, 6) = RS.Fields(6).Value
      .TextMatrix(.Rows - 1, 7) = RS.Fields(7).Value
      .Rows = .Rows + 1
      RS.MoveNext
Loop
.Rows = .Rows - 1
regContador = CStr(RS.RecordCount)

    If .Rows = 2 Then
      Me.Caption = "Buscar Pasta(s) Cadastrada(s) - " & regContador & " Pasta(s) Encontrada(s)"
    Else
      Me.Caption = "Buscar Pasta(s) Cadastrada(s) - " & regContador & " Pasta(s) Encontrada(s)"
    End If
Disconnect
End With
End Sub
USUARIO.EXCLUIDOS 22/08/2007 16:40:58
#232110

Existe esse campo Codigo na sua tabela né?

outra coisa...da alguma msg de erro..ou simplesmente joga os valores no grid ?
USUARIO.EXCLUIDOS 22/08/2007 16:43:28
#232111
sim existe sim...
ele joga certinho os dados na tabela mais nao coloca na ordem
USUARIO.EXCLUIDOS 22/08/2007 16:48:35
#232113


Meu ..q lokura.isso!!.como assim??..

ele joga mas n organiza por código..mesmo colocando o order by?

tira o on error resume next...pra ver qual erro q dá!
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar