ok... how do i make bind that with a dataview?...
here are the crazy things I've been trying
Public Class Form1
Private MyDS As DataSet = New DataSet
Private MyTable As DataTable = MyDS.Tables.Add ("tblHoliday s") 'New
DataTable("tblH olidays")
Private Sub testme()
'Dim dt As New DataTable("tblH olidays")
Dim dcfirstcolumn As New DataColumn("fir st")
Dim dcsecondcolumn As New DataColumn("sec ond")
dcfirstcolumn.D ataType = System.Type.Get Type("System.Da teTime")
dcsecondcolumn. DataType = System.Type.Get Type("System.St ring")
MyTable.Columns .Add(dcfirstcol umn)
MyTable.Columns .Add(dcsecondco lumn)
Dim dr As DataRow = MyTable.NewRow( ) '= dt.Rows.Add ' 'dt.rows.newrow
MyTable.Rows.Ad d(dr)
dr.Item(dcfirst column) = #1/1/2008#
dr.Item(dcsecon dcolumn) = "New Years"
dr.AcceptChange s()
'MyTable.Rows(1 ).Item(0) = #1/1/2009#
' dr.
Me.DataGridView 1.DataSource = Me.MyDS.Tables
MyDS.AcceptChan ges()
'Me.DataGridVie w1.DataBindings
End Sub
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'With MyDS
' With MyTable
' .Columns.Add("d tmHoliday", Type.GetType("S ystem.DateTime" ))
' .Columns.Add("s trHoliday", Type.GetType("S ystem.String"))
' .Columns(1).Col umnName = "test"
' .Columns(0).Cap tion = "test caption"
' End With
' Console.WriteLi ne("Rows: {0}", .Tables(0).Rows .Count)
' MyTable.Rows.Ad d()
' Dim strSQL As String = "INSERT INTO tblHolidays (dtmHoliday, strHoliday)
values (#1/1/2009#, 'Testme')"
' Dim selectCMD As SqlClient.SqlCo mmand = New SqlClient.SqlCo mmand(strSQL)
' 'selectCMD.Exec uteScalar()
' Console.WriteLi ne("Rows: {0}", .Tables(0).Rows .Count)
' .AcceptChanges( )
Dim DS As New DataSet("MyData Set")
Dim DT As New DataTable("MyTa ble")
DT.Columns.Add( "Test", GetType(String) )
Dim DR As DataRow = DT.NewRow
DR.Item("Test") = "Hello, World"
DT.Rows.Add(DR)
DS.Tables.Add(D T)
DS.AcceptChange s()
Me.DataGridView 1.DataSource = DS.Tables
'End With
'testme()
End Sub
End Class
"Steve Gerrard" <my********@com cast.netwrote in message
news:NP******** *************** *******@comcast .com...
Brian wrote:
>>
"rowe_newsgrou ps" <ro********@yah oo.comwrote in message
news:ca******* *************** ************@c6 5g2000hsa.googl egroups.com...
On Aug 2, 6:43 pm, "Brian" <bsgalla...@com munity.nospamwr ote:
>>I want to create an In Memory dataset. not connected to any
database..
Dim dataSet As New DataSet()
lol...
ok.. a little more info...
I want to create a table with a few columns... and a few rows....
Same principle applies:
Dim DS As New DataSet("MyData Set")
Dim DT As New DataTable("MyTa ble")
DT.Columns.Add( "Test", GetType(String) )
Dim DR As DataRow = DT.NewRow
DR.Item("Test") = "Hello, World"
DT.Rows.Add(DR)
DS.Tables.Add(D T)
DS.AcceptChange s()
' all done
