ESPERA AO CARREGAR
Pessoal, boa tarde!
estou precisando da seguinte ajuda,
Criei um programa com banco de dados em mysql, e as vezes a conexão esta lenta ou até mesmo ao mudar de um formulário para outro demora, e ai acaba dando vários clicks sem saber se realmente deu o click ou não,
então queria a colaboração dos amigos, com um código que antes de chagar ao objetivo de abrir formulário ou conectar ao banco de dados, aparecesse algo que indicasse que o programa esta carregando e não esta pronto para seguir...
Espero ter me feito entender, se alguém tiver interesse em me ajudar e precisar perguntar estarei a disposição...
Grata desde já!
estou precisando da seguinte ajuda,
Criei um programa com banco de dados em mysql, e as vezes a conexão esta lenta ou até mesmo ao mudar de um formulário para outro demora, e ai acaba dando vários clicks sem saber se realmente deu o click ou não,
então queria a colaboração dos amigos, com um código que antes de chagar ao objetivo de abrir formulário ou conectar ao banco de dados, aparecesse algo que indicasse que o programa esta carregando e não esta pronto para seguir...
Espero ter me feito entender, se alguém tiver interesse em me ajudar e precisar perguntar estarei a disposição...
Grata desde já!
Você pode usar um ProgressBar para isso.
www.youtube.com/watch?v=OKHbU31pvXc
www.youtube.com/watch?v=OKHbU31pvXc
Jaba, já tentei, mas só consegui fazer com o time,
precisava fazer o tempo de conectar ao banco de dados ou carregar o formulário,
caso não demore seja de imediato nem aparece a progressbar,
então o time, seria a demora de carregar o formulário, ou conexão,
espero ter expressado minha necessidade!...
precisava fazer o tempo de conectar ao banco de dados ou carregar o formulário,
caso não demore seja de imediato nem aparece a progressbar,
então o time, seria a demora de carregar o formulário, ou conexão,
espero ter expressado minha necessidade!...
qual a forma que você esta se conectando
Public Sub ConnectDB()
If db.State = 1 Then db.Close
db.Open [Ô]Driver={MySQL ODBC 3.51 Driver};Server=mysql.***********;Database=************;User=**********;Password=*********;Option=3;[Ô]
End Sub
If db.State = 1 Then db.Close
db.Open [Ô]Driver={MySQL ODBC 3.51 Driver};Server=mysql.***********;Database=************;User=**********;Password=*********;Option=3;[Ô]
End Sub
tente assim em um modulo
Sub Connect()
On Error GoTo conectaraobanco
Set con = CreateObject([Ô]ADODB.Connection[Ô])
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
Dim sConn As String
sConn = [Ô]DRIVER={MySQL ODBC 3.51 Driver};[Ô]
sConn = sConn & [Ô]SERVER=[Ô]_______________- [Ô];[Ô] [ô] ip do servidor local host etc...
sConn = sConn & [Ô]USER=_______________;[Ô] [ô] usuario banco de dados
sConn = sConn & [Ô]PWD=___________----;[Ô] [ô] senha banco de dados
sConn = sConn & [Ô]database=___________[Ô] [ô] nome banco de dados
con.Open sConn [ô]Abre o Banco de Dados
rs.CursorLocation = adUseClient
conectaraobanco:
End Sub
para chamar ele
Connect
rs.Open [Ô]SELECT * FROM tabela[Ô], CON, adOpenStatic, adLockOptimistic
Sub Connect()
On Error GoTo conectaraobanco
Set con = CreateObject([Ô]ADODB.Connection[Ô])
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
Dim sConn As String
sConn = [Ô]DRIVER={MySQL ODBC 3.51 Driver};[Ô]
sConn = sConn & [Ô]SERVER=[Ô]_______________- [Ô];[Ô] [ô] ip do servidor local host etc...
sConn = sConn & [Ô]USER=_______________;[Ô] [ô] usuario banco de dados
sConn = sConn & [Ô]PWD=___________----;[Ô] [ô] senha banco de dados
sConn = sConn & [Ô]database=___________[Ô] [ô] nome banco de dados
con.Open sConn [ô]Abre o Banco de Dados
rs.CursorLocation = adUseClient
conectaraobanco:
End Sub
para chamar ele
Connect
rs.Open [Ô]SELECT * FROM tabela[Ô], CON, adOpenStatic, adLockOptimistic
Você não prestou atenção na pergunta dela..
Pare e leia novamente.
Pare e leia novamente.
Tópico encerrado , respostas não são mais permitidas