tabpage datagridview

[AnaGPSI]

Olá bom dia será que me poderiam ajudar?

O meu problema é o seguinte: tenho um tabcontrol e dentro dele tenho várias tabpages em cada uma tenho uma datagridview o problema é que estou farta de tentar e só consigo carregar a datagridview (com os dados de uma tabela em access) da primeira tabpage as datagridview das outras tab nao consigo alguem me poderia ajudar?

😄

[José Lopes]

Porque não experimentas carregar a datagridview quando mudas de página?

Adicionalmente em termos de processamento a coisa é capaz de ficar mais rápida por que são carregamentos parciais....

[AnaGPSI]

Como assim?

[José Lopes]

Cada vez que mudas de página....

vês qual o tab onde estás, e mediante o tab onde estás carregas a datagridview que corresponde aos dados que queres mostrar....

[AnaGPSI]

Ou seja sobre o private sub da tabpage insiro o tal codigo para carregar a datagridview?

[José Lopes]

nop...existe um evento especifico para quando mudas de página:

Private Sub TabControl1_SelectedIndexChanged(sender as Object, e as EventArgs) _ 
     Handles TabControl1.SelectedIndexChanged
   MessageBox.Show("You are in the TabControl.SelectedIndexChanged event.")
End Sub

ficaria qualquer coisa do género:

Private Sub Tabulador_SelectedIndexChanged(sender as Object, e as EventArgs) _ 
     Handles Tabulador.SelectedIndexChanged
  Select Case Tabulador.SelectedTab.Name 'vai sacar o nome da pagina onde estás
                Case "xpto"
                  'carrega a lista a
                Case "xyz"
                   'carrega a lista b
            End Select
End Sub

[AnaGPSI]

ok acho que já estou a entender.

O private sub do tabcontrol é substituido pelo private sub tabulador ou ficam os dois no código?

[José Lopes]

ok acho que já estou a entender.

O private sub do tabcontrol é substituido pelo private sub tabulador ou ficam os dois no código?

ok acho que já estou a entender.

O private sub do tabcontrol é substituido pelo private sub tabulador ou ficam os dois no código?

Não..o meu primeiro código era só uma definição de como a coisa funcionar...

o segundo..uma aplicação prática....

[AnaGPSI]

Estou a colocar o código assim para ver se funciona e não está a carregar.

Estou a desesperar....

 Private Sub tabcontrol1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) _
         Handles TabControl1.SelectedIndexChanged
        Select Case TabControl1.SelectedTab.Name 'vai sacar o nome da pagina onde estás

            Case "Adicionar Curso"

                'Conexão com SQL  
                Const constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\GPSI\Documents\mydb.accdb"
                Dim mydb As New OleDbConnection(constr)
                mydb.Open()

                MsgBox("State: " & mydb.State.ToString(),
                MsgBoxStyle.Information)

                'carrega datagridview1

                'Minha instrução SQL 
                Dim VlSql1 As String = "select nome as [Nome do Curso], sigla as [sigla] from curso ORDER BY nome ASC"

                Dim da1 As New OleDbDataAdapter(VlSql1, mydb)
                Dim dt1 As New Data.DataTable()
                Dim cmd1 As New OleDbCommand(VlSql1, mydb)
                Dim datacurso As OleDbDataReader = cmd1.ExecuteReader()

                'Criando um datatable 
                dt1 = New DataTable

                'Passando o dados do dataadapter 
                da1.Fill(dt1)

                'Carregando o dados do datatable no DataGridView1 
                With DataGridView1
                    'DataGridView5.Columns(0).HeaderText = "Nome do Curso"
                    'DataGridView5.Columns(1).HeaderText = "Sigla"
                    DataGridView1.DataSource = dt1
                End With
                ' Case "xyz"
                'carrega a lista b
        End Select
    End Sub

[José Lopes]

O teu tabPage (a página do tabulador) chama-se    Case "Adicionar Curso"???????

[AnaGPSI]

Os nomes são:

tabcontrol= "tabcontrol1"

1ª tabpage= "tabpage1"

2ª tabpage= "tabpage2"

3ª tabpage = "tabpage4"

4ª tabpage = "tabpage5"

Como nome a aparecer no "cabeçalho" das tabpages tenho:

1ª = Adicionar curso

2ª = Adicionar disciplinas

3ª = Inserir módulo a disciplina

4ª = Adicionar disciplina a curso

:down:

[José Lopes]

então terás que usar:

Case "tabpage1"

'faz o que tens  afazer...

Duas dicas:

começa a dar nomes aos objectos que façam algum sentido...é mais fácil ler o código e provavelmente ocorrem menos erros... existem formas específicas, nomeadamente http://en.wikipedia.org/wiki/Naming_convention_(programming)

Experimenta as funcionalidades de debug ou então pequenos testes como por exemplo msgboxs para perceberes se o programa está a fazer o que queres...nomeadamente o que pretendes... http://www.dotnetperls.com/debugging

[AnaGPSI]

O problema é que continua a não carregar o datagridview!

[José Lopes]

MsgBox("State: " & mydb.State.ToString(),

                MsgBoxStyle.Information)

ok...ele esta a chegar a esta msgbox????

[AnaGPSI]

Abre o form mas não abre a mensagem antes como deveria mostrar.

Essa mensagem é um dos teste que faço!

[José Lopes]

sim..e chega lá??????

[AnaGPSI]

O normal era aparecer a mensagem a dizer que a ligação estava aberta e ao clicar no ok abria o form mas agora nao aparece a mensagem abre logo o form, Devo ter qualquer coisa trocada no código!

[José Lopes]

Publica isso aí online para dar uma vista de olhos..pk eu acho que estás a fazer uma grande confusão...

[AnaGPSI]

Para ser franca com o stress e tantas alterações começo mesmo a ficar confusa!

    Private Sub tabcontrol1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) _
         Handles TabControl1.SelectedIndexChanged
        Select Case TabControl1.SelectedTab.Name 'vai sacar o nome da pagina onde estás

            Case "TabPage1"

                'Conexão com SQL  
                Const constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\GPSI\Documents\mydb.accdb"
                Dim mydb As New OleDbConnection(constr)
                mydb.Open()

                MsgBox("State: " & mydb.State.ToString(),
                MsgBoxStyle.Information)

                'carrega datagridview1
                'Minha instrução SQL 

                Dim VlSql1 As String = "select nome as [Nome do Curso], sigla as [sigla] from curso ORDER BY nome ASC"
                Dim da1 As New OleDbDataAdapter(VlSql1, mydb)
                Dim dt1 As New Data.DataTable()
                Dim cmd1 As New OleDbCommand(VlSql1, mydb)
                Dim datacurso As OleDbDataReader = cmd1.ExecuteReader()

                'Criando um datatable 
                dt1 = New DataTable

                'Passando o dados do dataadapter 
                da1.Fill(dt1)

                'Carregando o dados do datatable no DataGridView1 
                With DataGridView1
                    'DataGridView5.Columns(0).HeaderText = "Nome do Curso"
                    'DataGridView5.Columns(1).HeaderText = "Sigla"
                    DataGridView1.DataSource = dt1
                End With


                ' Case "xyz"
                'carrega a lista b
        End Select
    End Sub

[AnaGPSI]

Só consigo publicar o código pois não tenho nenhuma plantaforma nem conhecimentos para publicar o programa em si!