Postada em 24/08/2012 11:06 hs
Ola, bom dia a todos...
tenho um sistema q a cada momento vem ficando lento, quando usando via rede, no servidor as requisicoes sao super-rapidas... veja a configuracao e me de uma luz ai...rss
uso o VB-6, access 2007...
meu banco esta com +- 65mil registros...
uso o XP, ja verificamos toda a parte de rede, hub, conexoes...
*****meu OPTION EXPLICIT
Public BancoPac As New ADODB.Connection
Public TabAtend As New ADODB.Recordset
Public TabPac As New ADODB.Recordset
***** para conectar no banco uso esse codigo:
BancoPac.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Alm.mdb;Jet " & "OLEDB:Database Password=82621932;"
***** para conectar a tabela (salvar) uso esse codigo:
TabAtend.CursorLocation = adUseServer
TabAtend.Open "Select Atend, Prontuario, Nome From CadAtendimento where Atend =" & Text11.Text & "", BancoPac, adOpenKeyset, adLockOptimistic, adCmdText
***** para conectar a tabela (excluir) uso esse codigo:
TabAtend.CursorLocation = adUseServer
TabAtend.Open "Select * From CadAtendimento", BancoPac, adOpenKeyset, adLockOptimistic, adCmdText
***** para conectar a tabela (consultar/exibir) uso esse codigo:
TabPac.CursorLocation = adUseServer
TabPac.Open "Select * from CadPaciente where NrProntuario = '" & Text1.Text & "'", BancoPac, adOpenForwardOnly, adLockReadOnly, adCmdText
*****para conectar a tabela(consulta por criterio digitado), uso esse codigo:
TabPac.CursorLocation = adUseClient
TabPac.Open "select Seq, NrProntuario, DtNasc, NomePac, NomeMae from CadPaciente where NomePac like " & PalAcento & " order by [NomePac]", BancoPac, adOpenKeyset, adLockReadOnly
***** carregar um datagrid uso esse codigo:
TabAtend.CursorLocation = adUseClient
TabAtend.Open "select Atend, Horario, Nome, priorid, DtCadastro from CadAtendimento where DtCadastro Between #" + Format(DtDia, "mm/dd/yyyy") + " # And #" + Format(DtDia, "mm/dd/yyyy") + "# order by [priorid],[Horario] asc", BancoPac, adOpenKeyset, adLockReadOnly
acho q o basico para funcionar sao as conecoes, diante disso, ha alguma modo errado, que cause a lentidao via rede??
fica lento ao abrir uma tela de consulta
fica lento ao buscar um registro e exibir as dados na tela
fica lento ao salvar ou excluir...
mas muito lento, coisa absurda mesmo, coisa q nao acontecia antes...
alguem pode me da uma dicas, pois, pode ser dizer que no inicio do sistema, era iniciante, dai, pode ter feito algo que tem outra forma de ser feito, q agilize os processos...
aguardo, agradeço a todos...
|
