Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
15 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 15 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Estatísticas
Temos 7081 usuários registrados
O último usuário registrado atende pelo nome de DENISON SANTOS DA SILVA

Os nossos membros postaram um total de 49 mensagens em 26 assuntos

ADO - AUMENTE O DESEMPENHO DE SUA APLICACAO

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial ADO - AUMENTE O DESEMPENHO DE SUA APLICACAO

Mensagem por _batmanvfp_ em 3/2/2011, 11:47

-------------------------------------------------------------------------------------------------------------------------------------------------------
ADO - Aumentando o Desempenho
-------------------------------------------------------------------------------------------------------------------------------------------------------


1-) Definir variáveis

a-) Definindo:
Código:

Dim con as New Connection
Set con = CreateObject("ADODB.Connection")
con.Open "Provider=SQLOLEDB;Data Source=teste;Database=pubs;UserId=sa;Password=;"
b-) Não definindo:
Código:

Set con = CreateObject("ADODB.Connection")
con.Open "Provider=SQLOLEDB;Data Source=teste;Database=pubs;UserId=sa;Password=;"

- Neste caso, a variável fica desconhecida em tempo de compilação, tornando o processo mais lento.


2-) Apenas selecione os campos que você vai utilizar

Código:
Select * from Clientes

Código:
Select codigo,nome from clientes

- Lembre - se de utilizar o tipo de curso adequado para melhorar o desempenho :


adOpenKeyset: Abre um cursor do tipo keyset. (Permite visualizar os registros excluidos por outro usuário)

adOpenDynamic: Abre um cursor do tipo dynamic.(Exclusão,Inclusão e alterações feitas são visíveis)

adOpenStatic: Abre um cursor do tipo static.(Cópia estática de um conjunto de registros)


3-) Vincule os registro para um objeto Field antes de percorrer os registros

a-) Vinculando:

Código:
Dim rs as New Recordset
Dim Codigo, Nome, Sobrenome

rs.ActiveConnection = "Provider=SQLOLEDB;Data Source=teste;Database=pubs;UserId=sa;Password=;"
rs.Source = "Select Id, name, Sname from Clientes"
rs.Open

Set Codigo = rs.Fields(0)
Set Nome = rs.Fields(1)
Set Sobrenome = rs.Fiedls(2)

While Not rs.EOF
  Debug.Print Codigo, Nome , Sobrenome
  rs.Movenext
Wend
b-)
Código:

Dim rs as New Recordset
Dim Codigo, Nome, Sobrenome

rs.ActiveConnection = "Provider=SQLOLEDB;Data Source=teste;Database=pubs;UserId=sa;Password=;"
rs.Source = "Select Id, name, Sname from Clientes"
rs.Open

While Not rs.EOF
  Debug.Print rs("id"), rs("name"), rs("Sname")
  rs.Movenext
Wend
- Nesse caso, para cada registro é necessário uma consulta ao Recordset.




4-) Procure utilizar instruções SQL para atualizar (incluir, alterar,excluir) os dados do seu banco de dados evitando fazer isto via objeto Recordset.

5-) Ajuste a propriedade CacheSize do seu Recordset adequadamente

CacheSize - Indica o número de registros de um objeto recordset que serão usados localmente no Cache - Um espaço reservado na memória


6-) Utilize os provedores OLE DB nativos

a-) MDB ->
Código:
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=teste.mdb;"

b-) SQL ->
Código:
Conn.Open "Provider=sqloledb;Network Library=DBMSSOCN;Data Source=teste;Initial Catalog=pubs;"

c-) ORACLE ->
Código:
oConn.Open "Provider=msdaora;Data Source=OracleServer.world;User Id=sa;Password=;"


7-) Se não for utilizar comandos que retornam registros use a opção adExecuteNoRecords

a-)
Código:
 con.Execute "INSERT INTO Clientes Values(1, "VBMania", "Visual Basic")", adExecuteNoRecords


8-) Use Connection.Execute para processamento simples

a-)
Código:
Set temp = conn.Execute ("Select * From Clientes where id=1")

b-)
Código:
conn.Execute "insert into Clientes values(1, "VBMania", "Visual Basic")", adExecuteNoRecords

- Nesses casos ao utilizar Connection.Execute o ADO não preserva a informação do estado do comando o que aumenta o desempenho de sua aplicação


9-) Desconecte o seu Cursor

a-) Depois de uma operação muito complicada
Código:

Set rs = con Execute("Select nome,endereco From clientes") 
Set rs.ActiveConnection = Nothing
Set con = nothing

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Tutorial Re: ADO - AUMENTE O DESEMPENHO DE SUA APLICACAO

Mensagem por hugo em 23/2/2011, 13:55

parabens pelo post!

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum