O DataGridView é um controle ActiveX , muitas vezes usado em aplicações baseados em Visual Basic para a ligação e importar dados de um banco de dados externo e , em seguida, apresentar os dados em um formato de planilha . Antes de conectar o controle DataGridView através de código de programação , é necessário colocar o controle em seu formulário VB primeiro. Vinculando o controle DataGridView requer algum conhecimento de programação VB . Uma vez que é adquirido, começá-lo feito leva apenas alguns passos e linhas de código simples. Instruções
1

Abra o Visual Basic 6 .
2

Selecione " Standard EXE " da nova lista de projetos. Agora você está no ambiente de programação Visual Basic 6 . Você deve ter um formulário principal padrão na tela para começar a adicionar seus controles.
3

Clique em " Project" , seguido por " componentes".
4

Scroll a lista de componentes e procure por " Microsoft DataGridView de controle." Coloque uma verificação na caixa ao lado e clique em " OK". Isto irá colocar o controle DataGridView para o seu controle ToolBox.
5

Selecione o controle DataGridView do ToolBox. Arraste-o e solte-o em seu formulário principal para começar a usar.
6

Vá para o menu superior e clique em " Project" , seguido de " Adicionar módulo . " Digite ou copie e cole o seguinte código no módulo :

Private Sub GetData (ByVal SelectCommandpropriedade As String)

Experimente em

' Especifique uma seqüência de conexão. Substitua o valor dado com um

'string de conexão válida para uma amostra Northwind SQL Server

' banco de dados acessível ao seu sistema.

Dim connectionString As String = _

"Integrated Security = SSPI ; Manter informações de segurança = false; " + _

" Initial Catalog = Northwind ; Data Source = localhost"

'Criar um novo adaptador de dados com base no consulta especificada.

Me.dataAdapter = New SqlDataAdapter ( SelectCommandpropriedade , connectionString )

'Criar um construtor de comando para gerar atualização SQL , inserir e

' apagar os comandos com base em SelectCommand . Estes são utilizados para

' atualizar o banco de dados.

Dim CommandBuilder.Essa As New SqlCommandBuilder ( Me.dataAdapter )

" Preencher uma nova tabela de dados e vinculá-lo ao BindingSource.

Dim tabela As New DataTable ()

table.Locale = = Mesa

' redimensionar as colunas de DataGridView para ajustar o conteúdo recém- carregado.

Me.dataGridView1.AutoResizeColumns ( _

DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader )

captura Como ex SqlException

MessageBox.Show (" Para executar esse exemplo , substitua o valor do " + _

" connectionString variável com uma string de conexão que é" + _

" válido para o sistema. " )

End Try End Sub