CARREGAR BD

JOHNHEY 14/06/2011 19:47:08
#376766
Ola pessoal, fiz uma tela de abertura e a dias coloquei essa dúvida aqui e nao obtive resposta.

na minha tela de abertura tenho uma progressbar

e gostaria que ela preenchesse conforme o banco de dados fosse carregado([Ô]conexao ou aberto[Ô]), como nos programas comuns, que aparece [Ô]carregando banco de dados x...[Ô]

se o computador for lento~(pouca memória) a barra demora o tempo que o windows ou o sistema demorar para carregar ou abrir ou conectar o bd.

se o computador for rapido e carregar, abrir ou conectar ao bd rapidamente a barra será veloz.

ou faço o preenchimento da barra com relaçao aos registos inseridos?

espero ter sido claro, peço desculpas antecipadamente, pois gosto de programar mas falta-me conhecimentos ainda. kkk
TECLA 14/06/2011 20:31:36
#376773
Você já tem as rotinas de persistência (conexão com o BD, verificação de arquivos em disco...)?
Se sim, poste o contexto do código em que se deseja acrescentar uma barra de progresso.
JOHNHEY 15/06/2011 19:13:23
#376887
infelizmente nao tenho.
FROSTYNHO 15/06/2011 21:50:01
#376894
se for pra carregar enquanto lista o conteudo do db é simples, mande contar os registros e mande o valor pro MaximumValue da progressbar, aí a cada item carregado vc da um [Ô]ProgressBar1.Increment(1)[Ô]
JOHNHEY 16/06/2011 19:39:12
#377039
fiz a seguinte classe:
Imports System.Data.SqlClient

Public Class conexaoBD
Private strcon As String
Public Sub New()
strcon = [Ô]Data source=.\SQLEXPRESS;AttachDbFilename=G:\SIAF\SIAF\SIAF\SIAF.mdf;Integrated Security=True;User Instance=True[Ô]
End Sub
Public Function conectar()
Try
Dim con As New SqlConnection(strcon)
con.Open()
Catch EX As Exception
MsgBox([Ô]erro - [Ô] + EX.Message)
End Try
Return MsgBox([Ô]Conectado[Ô])
End Function
End Class

e no form de abertura coloquei
Public Class frmabertura

Private Sub frmabertura_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conexaoBD()
End Sub
End Class

só que da erro:
Error 1 [ô]conexaoBD[ô] is a type and cannot be used as an expression. E:\SIAF\SIAF\SIAF\abertura.vb 4 9 SIAF
JOHNHEY 20/06/2011 19:22:28
#377280
Bom pessoal como podem ver acima, tentei até que cheguei a algum lugar, só nao sei se esta certo ou errado.
na minha classe coloquei o seguinte código:

Imports System.Data.SqlClient

Public Class conexaoBD
Private strcon As String
Public Sub New()
strcon = [Ô]Data source=.\SQLEXPRESS;AttachDbFilename=E:\SIAF\SIAF\SIAF\SIAF.mdf;Integrated Security=True;User Instance=True[Ô]
End Sub
Public Function conectar()
Dim conectado As Boolean
Try
Dim con As New SqlConnection(strcon)
con.Open()
Catch EX As Exception
MsgBox([Ô]erro - [Ô] + EX.Message)
End Try
Return conectado
End Function
End Class

e no form de abertura coloquei o seguinte:

Public Class frmabertura

Private Sub frmabertura_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conexao As New conexaoBD
Dim conectar As Boolean
conexao.conectar()
If conectar = True Then
MsgBox([Ô]conectado[Ô])
Else
MsgBox([Ô]não conectado[Ô])
End If
End Sub
End Class

Não esta a dar nenhum erro, só que sempre me devolve que não esta conectado, por favor se alguém souber, me diga onde esta o erro. Desde já agradeço.
ASHKATCHUP 21/06/2011 10:28:20
#377351 Resposta escolhida
Acho que agora vai funcionar.
A propriedade Conectado deve ser usada.





Public Class conexaoBD
    Private strcon As String
    Private varConectado as boolean

    Public Sub New()
        strcon = [Ô]Data source=.\SQLEXPRESS;AttachDbFilename=E:\SIAF\SIAF\SIAF\SIAF.mdf;Integrated Security=True;User Instance=True[Ô]
    End Sub

    public property Conectado() as boolean
        Get
            Conectado = varConectado
        end get
        
        set
             varConectado = value
        end set
    end property    

    Public Function conectar()
        
        Conectado = True

        Try
            Dim con As New SqlConnection(strcon)
            con.Open()
        Catch EX As Exception
            Conectado = False
        End Try

    End Function
End Class
Tópico encerrado , respostas não são mais permitidas
Voltar