Olá pessoal boa tarde, estou com um probleminha aqui rsrs estou tentando mostrar o resultado do datagridview na minha label mas não estou conseguindo ele so mostra quando eu clico na coluna do item, veja o exemplo:

--------conectando ao banco de dados |Form1------------

Dim conexao As New MySqlConnection
Dim comando As New MySqlCommand
Dim adaptador As New MySqlDataAdapter
Dim dados As New DataTable
Dim sql As String
conexao = New MySqlConnection
conexao.ConnectionString = "SERVER=localhost;user id=root; password=;database=bd"
sql = "SElECT * FROM bd.premium"
Try
conexao.Open()
Try
comando.Connection = conexao
comando.CommandText = sql
adaptador.SelectCommand = comando
adaptador.Fill(dados)
DataGridView1.DataSource = dados

Catch erro As MySqlException
MessageBox.Show("Erro ao tentar ler o banco de dados" & erro.Message)

End Try
MessageBox.Show("Conexão aberta com sucesso.", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch erro As MySqlException
MessageBox.Show("Erro ao tentar conectar com o banco de dados." & erro.Message)
Finally
conexao.Dispose()
End Try

----------------Mostra resultado no labe l Datagridview---------
If (e.RowIndex >= 0) Then
Dim row As DataGridViewRow
row = Me.DataGridView1.Rows(e.RowIndex)
Label1.Text = row.Cells("ativado".Value.ToString

End If
----------------------------------------------------------
Em fim quero mostrar apenas o conteudo da coluna "ativado" sem precisar clicar no datagridview, ou seja quando eu abrir o programa ele ja me mostrar o conteudo. Grato espero por ajudar!

boa tarde jacob, andei visitando seu site, li e aproveitei muitas coisas, estou programando um sistema em access mas, faz muitissimoooo tempo que nao utilizo programacao estou com problema na contagem de registro de uma consulta, tudo esta funcionando perfeitamente a nao ser a ultima consulta desmama!!! So conta 1 registro, se possivel me ajudar, agradeço!!

Private Sub Comando0_Click()
Dim db As Dao.Database
Dim rs As Dao.Recordset
Dim TotBeze As Integer 'variaveis declaradas
Dim TotMatriz As Integer
Dim TotDesma As Integer
Set db = CurrentDb() ' banco de dados aberto ou seja o corrento DATABASEFAZENDA

Set rs = db.OpenRecordset("Consulta Bezerro" 'tabela em leitura, aberta
TotBeze = rs.recordcount 'contando registros da tabela
txt_beze = TotBeze

Set rs = db.OpenRecordset("Consulta Matriz"
TotMatriz = rs.recordcount
txt_matriz = TotMatriz 'variavel recebendo o total de cabecas contadas

Set rs = db.OpenRecordset("CONSULTA DESMAMA"
TotDesma = rs.recordcount
txt_Desma = TotDesma

txt_tot = TotBeze + TotMatriz + TotDesma 'somando as tabelas
'MsgBox "BEZERROS: " & numreg
End Sub

Já agora fica o codigo que eu estava tentando utilizar.

Private Sub Command315_Click()
Dim fd As Object
Dim x As String
Set fd = Application.FileDialog(1)
With fd
.ButtonName = "Abrir"
.Title = "Selecione o local onde se encontra o arquivo..."
If .Show Then
SelecionarPasta = .SelectedItems(1)
x = SelecionarPasta
MsgBox "ok" ' aqui é que não sei como substituir a tabela vinculada por a que vou selecionar.
' Ou tenho tudo mal?
End If
End With
Set fd = Nothing
End Sub

Obrigado

olá a todos,
Tenho uma base de dados em access onde eu tenho uma tabela vinculada em excel. gostaria de saber se haverá alguma forma de criar um botão que me pedisse a localização da tabela vinculada e me deixasse substituir por outra.
Desde já os melhores comprimentos pelo site.

Oá tenho vb.net express e quero visualizar um relatorio que fiz no acces atraves de comando em vb.net, senso que o crystal reports não abre nessa versão, como faço