|
Tak, ako som sa pýtal, tak takto sa to asi nedá. Sú dve možnosti. Vytvoriť DataGridView ručne a potom ho napĺňať, alebo pridať další stĺpec už do DataSet a až potom vytvoriť a naplniť DataGridView. Ten druhý spôsob je tu:
Imports System.Configuration
Imports System.Data.OleDb
Public Class Form1
Dim connStr As String = ConfigurationManager.ConnectionStrings("MojaDb").ConnectionString
Dim Con As OleDbConnection = New OleDbConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Con.ConnectionString = connStr
Dim da As OleDbDataAdapter = New OleDbDataAdapter("SELECT Column1, Column1 FROM Tabulka1 ", Con)
Dim Dst = New DataSet
da.Fill(Dst, "Tabulka1")
Dim adc3 As DataColumn
adc3 = New DataColumn("Column3", System.Type.GetType("System.String"))
Dst.Tables("Tabulka1").Columns.Add(adc3)
DataGridView1.DataSource = Dst.Tables("Tabulka1")
DataGridView1.Rows(2).Cells(2).Value = "Asi tak"
End Sub
End Class
|