Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

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

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
CONEXÃO MYSQL EM SITES

25/7/2018, 16:28 por AMELIO

BOA TARDES A TODOS
ESTOU TENTO UM PROBLEMINHA QUE QUANDO FAÇO A CONEXÃO MYSQL EM SERVIDOR  


Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 3

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: 1

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: 1

ACESSAR WEBSERVICE COM HTTPS

5/4/2018, 14:48 por AJC

Pessoal recebi este material em C# preciso fazer esta função em vfp9

YourBeanService port = new …

Comentários: 0

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

Os nossos membros postaram um total de 12261 mensagens em 1555 assuntos

ADO - AUMENTE O DESEMPENHO DE SUA APLICACAO

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

Voltar ao Topo


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