Aceesando firebird mais rápido


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Aceesando firebird mais rápido

Nilton Vianna

AMPARO
SP - BRASIL

Postada em 22/09/2010 09:15 hs

Pelo que eu to vendo deve ter algum comando no select

porque quando pesso pra carregar o MsFlexgrid demora

+ ou - 8 Segundos..

e na busca no campo text fica truncando ateh achar o nome

Sera que alguem pode me ajudar Grato

Juan Carlos R.A
não registrado

Postada em 22/09/2010 11:27 hs

Oi nilton pq vc não cria um indice para ordenar os registros,

Nilton Vianna

AMPARO
SP - BRASIL

ENUNCIADA !

Postada em 22/09/2010 11:43 hs

eu uso assim

Private Sub MontarLista()

Dim RS As New ADODB.Recordset
Dim SQL As String
Dim Criterio As String

FG1.TextMatrix(0, 0) = "ClienteID"
FG1.TextMatrix(0, 1) = "N° Telefone"
FG1.TextMatrix(0, 2) = "Nome do Cliente"

Criterio = Chr$(39) & txtPesquisa & "%" & Chr(39)
SQL = "SELECT ClienteID, Fone, Nome FROM CadClientes WHERE CadClientes.Nome Like " & Criterio & " ORDER BY Nome"

On Error Resume Next
With RS
.Open SQL, CnSql, adOpenForwardOnly, adLockReadOnly

If .EOF Then

MsgBox "Cliente não encontrado !", vbExclamation, " Sisnews Informções"
Limpa
FG1.TextMatrix(1, 0) = ""
FG1.TextMatrix(1, 1) = ""
FG1.TextMatrix(1, 2) = ""
Else
Limpa
Do Until .EOF
FG1.AddItem RS(0) & vbTab & RS(1) & vbTab & RS(2)
.MoveNext
Loop
FG1.RemoveItem 1
End If
.Close
End With
End Sub

Juan Carlos R.A
não registrado

Postada em 22/09/2010 11:57 hs

Olha, consultas diretas no banco é sempre mais rapido que nos programas,
para resolver e executar mais rapido cria um indice para ordenamento

Felipe
não registrado

Postada em 22/09/2010 19:28 hs

Nilton,vamos lá.Faça um teste com um "Listview" e depois poste comentando.Eu já

fiz um teste e mudei e não arrependi.

Juan Carlos R.A
não registrado

ENUNCIADA !

Postada em 23/09/2010 08:39 hs

vc ta fazendo com daoque é mais lento que adodb.
faz assim:

Rs = cnsql.execute("SELECT ClienteID, Fone, Nome FROM CadClientes WHERE CadClientes.Nome Like " & Criterio & " ORDER BY Nome")
On Error Resume Next
With RS
'ja não precissa fazer de novo conexão com banco pa no cnsql ja tem a conexao

If .EOF Then
       MsgBox "Cliente não encontrado !", vbExclamation, "  Sisnews Informções"
       Limpa
       FG1.TextMatrix(1, 0) = ""
       FG1.TextMatrix(1, 1) = ""
       FG1.TextMatrix(1, 2) = ""
Else
     Limpa
     Do Until .EOF
        FG1.AddItem RS(0) & vbTab & RS(1) & vbTab & RS(2)
      .MoveNext
     Loop
     FG1.RemoveItem 1
End If
.Close  'aqui fecha o recordset e ja não fica em memoria.
set Rs=nothing 'aqui limpa o recordset e ja não fica em memoria.
End With
End Sub

Página(s): 2/3 « ANTERIOR PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR