Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
11 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 11 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
Erro de compatibilidade de cores

28/3/2017, 10:59 por Clebervfp

Boa dia, estou com um problema com vfp9, se alguém poder me ajudar fico agradecido!

Tenho um …

Comentários: 0

Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Estatísticas
Temos 7039 usuários registrados
O último usuário registrado atende pelo nome de missias

Os nossos membros postaram um total de 32 mensagens em 18 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