SELECIONAR ITEM DATAGRID

JOHNHEY 29/04/2012 19:01:25
#401008
Imports System.Data.SqlClient
Public Class Pesquisa
[ô] Declaração de variáveis privadas
Private da As SqlDataAdapter
Private ds As DataSet
Private totalrows As String

[ô] No Form Load vamos colocar a informação para actualizar a DataGridView
Private Sub Pesquisa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô] Texto de ligação à base de dados
Dim linha As String = Application.StartupPath & [Ô]\SIAF.mdf[Ô]
Dim myConnectionString As String = _
[Ô]Data source=.\SQLEXPRESS;AttachDbFilename=[Ô] & linha & [Ô];Integrated Security=True;User Instance=True[Ô]

[ô] Cria uma nova ligação à base de dados
Dim connection As New SqlConnection(myConnectionString)

[ô] Cria um novo SqlDataAdapter que servirá para actualizar o DataSet
Dim SQL As String = [Ô]SELECT * FROM [Ô] & tabela
da = New SqlDataAdapter(SQL, connection)

[ô] Cria um DataSet, ou seja, uma representação em memória da informação
ds = New DataSet

[ô] Coloca a informação da tabela definida no DataSet
da.Fill(ds, tabela)

[ô] Define que a fonte de dados da DataGridView é a nossa DataSet
[ô] criando automáticamente as colunas e linhas de dados
Me.DGPesquisa.DataSource = ds.Tables(tabela)

[ô] Limpa a ligação à base de dados. Não é necessário fechar a ligação
[ô] porque esta não foi aberta através do comando .Open()
connection = Nothing
totalrows = DGPesquisa.Rows.Count
txtregistos.Text = totalrows - 1
If tabela = [Ô]TBPais[Ô] Then
DGPesquisa.Columns(1).Width = 190
DGPesquisa.Columns(2).Visible = False
DGPesquisa.Columns(3).Visible = False
DGPesquisa.Columns(4).Visible = False
End If
End Sub
Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
[ô]Fecha a tela
Me.Close()
End Sub

Private Sub DGPesquisa_MouseDoubleClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles DGPesquisa.MouseDoubleClick
Registos.txtregisto.Text = DGPesquisa.CurrentRow.Cells(0).Value
Registos.txtnome.Text = DGPesquisa.CurrentRow.Cells(1).Value
End Sub

Private Sub dgpesquisa_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles DGPesquisa.MouseHover
[ô]Informação na barra de status
Principal.ToolStripStatusLabel1.Text = [Ô]Clique sobre a pesquisa para alterar ou editar[Ô]
End Sub

Private Sub Dgpesquisa_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles DGPesquisa.MouseLeave
[ô]Coloca o nome do utilizador na barra de status
Principal.ToolStripStatusLabel1.Text = [Ô]Utilizador: [Ô] & utilizador
End Sub
End Class
ALTAIR148 29/04/2012 19:04:04
#401009
Veja se assim vai aparecer uma msgbox falando o valor da coluna.

    Private Sub DGPesquisa_MouseDoubleClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles DGPesquisa.MouseDoubleClick
       msgbox (DGPesquisa.CurrentRow.Cells(0).Value)
         End Sub
JOHNHEY 29/04/2012 19:17:58
#401010
realmente devolve o valor, só que no meu form não, kkkk, ai meu deus.
olha o meu txt registo esta dentro de uma tabcontrol1 isso muda alguma coisa?
ALTAIR148 29/04/2012 19:19:44
#401011
Não era para mudar não. Como que você chama o form que tem esse datagrid...

Exemplo:

FormPesquisa.Show()
JOHNHEY 29/04/2012 19:22:49
#401012
Dim frm As New Pesquisa
frm.MdiParent = Principal
frm.Text = [Ô]Pesquisar...[Ô]
frm.Show()
ALTAIR148 29/04/2012 19:26:51
#401013
Coloque apenas assim para testar

pesquisa.show()
JOHNHEY 29/04/2012 19:37:13
#401014
tambem nao aparece nada
ALTAIR148 29/04/2012 19:38:41
#401016
Muito estranho... teria como postar o seu projeto?
Página 2 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar