consulta integrada língua Conversão (LINQ) resultados para um DataTable pode facilmente ser feito usando um DataSet e algumas outras classes. Um DataTable representa uma tabela de dados na memória que pode ser usado para muitas coisas, como preencher um controle DataGridView. A dados de controle DataGridView exibe usando linhas e colunas. No Visual Basic.NET , você pode consultar dados de um banco de dados e salvá-lo em um DataSet . Você pode consultar o DataSet usando LINQ to SQL e percorrer os resultados para salvá-los em um DataTable. Coisas que você precisa
Microsoft Visual Studio
Show Mais instruções
1
Abra o Microsoft Visual Studio , clique em " New Project" no painel esquerdo da tela do computador e expandir " Visual Basic" abaixo " modelos instalados ". Clique em " Windows" e clique duas vezes no centro da janela de diálogo para criar um novo projeto "Windows Forms Application " .
2
duplo clique em " DataGridView " para adicionar um novo controle ao seu formulário . Clique duas vezes em "Button" para adicionar um novo botão ao seu formulário. Clique duas vezes em "Button1 " para criar um evento de clique
3
Adicione a seguinte linha de código na parte superior do seu módulo para importar o namespace: .
System Imports . Data.OleDb
4
Adicione o seguinte código dentro do evento clique para criar uma conexão com um banco de dados e consultar uma tabela :
Dim connString as String = "Provider = Microsoft . ACE.OLEDB.12.0 ; Data Source = C: \\ Adamastor 2007.accdb "
Dim myConnection Como OleDbConnection = New OleDbConnection
Dim ds Como DataSet
Dim AD como OleDbDataAdapter
myConnection.ConnectionString = connString
da = New OleDbDataAdapter ("Select * From Fornecedores" , myConnection )
ds = New DataSet
da. Fill ( ds , " Fornecedor " )
myConnection.Close ()
5
Copie e cole o seguinte código para criar uma nova DataTable com uma coluna :
mesa Dim DataTable = New DataTable ( " SupplierTable " )
coluna Dim DataColumn
Dim linha As DataRow
coluna
= New DataColumn ()
column.DataType = System.Type.GetType ( " System.String " )
column.ColumnName = " Empresa "
column.Caption =
coluna "Sociedade" . ReadOnly = False
table.Columns.Add (coluna)
6
Use LINQ para obter os resultados da consulta SQL:
Dim supplierQuery = _
< Empresa p> de cust Em ds.Tables ( "fornecedor" ) . AsEnumerable _
Selecione cust !
7
Adicione o INQ de resultados SQL para o DataTable e exibir os resultados por meio de o controle DataGridView :
linha = table.NewRow ()
Para Cada cust Em supplierQuery
linha ( "Companhia") = cust
mesa. Rows.Add (linha)
linha = table.NewRow ()
Próxima
Me.DataGridView1.DataSource = mesa
8
Imprensa "F5" para executar o programa e clique em " Button1 " para ver os resultados.
