Datagrid with checkbox and SQL

[Thomas A]

Hi !

I'm trying to use a datagrid with an checkbox column, I not shoure to
get it work on several points

I have got the rest of the data mapped to the grid but the checkbox
doesnt work.

1. The column type in the sql is Integer (values 0 or 1), is this ok or
should I change it to something else?

2. my code to load the grid

Sub LoadDataToGrid( )

formatdatagrid( )
DataSet11.Clear ()

DataGrid1.DataS ource = (DataSet11)
DataGrid1.DataM ember = "RAT_Custom er"
SqlDataAdapter1 .SelectCommand. CommandText = "Select CustomerCode
as KundNr, SL01002 as KundNamn ,Pfaktor as Påslag, InOutputFile from
RAT_Customer, SL010100 where CustomerCode = SL01001"
SqlConnection1. Open()

SqlDataAdapter1 .Fill(DataSet11 )

SqlConnection1. Close()

End Sub
3. My code to format the grid

Dim grdColStyle1 As New DataGridTextBox Column
With grdColStyle1
.HeaderText = "Kund Nr"
.MappingName = "KundNr"
.Width = 50
End With

Dim grdColStyle2 As New DataGridTextBox Column
With grdColStyle2
.HeaderText = "Namn"
.MappingName = "KundNamn"
.Width = 90
End With

Dim grdColStyle3 As New DataGridTextBox Column
With grdColStyle3
.HeaderText = "Påslag traktamente (SEK)"
.MappingName = "Påslag"
.Width = 140
'.ReadOnly = True
End With

Dim grdColStyle4 As New DataGridBoolCol umn
With grdColStyle4
.HeaderText = "Överföring till RAT"
.MappingName = "InOutputFi le"
.Width = 130
.Alignment = HorizontalAlign ment.Center
.ReadOnly = False

End With

' Add the style objects to the table style's collection of
' column styles. Without this the styles do not take effect.
grdTableStyle1. GridColumnStyle s.AddRange _
(New DataGridColumnS tyle() _
{grdColStyle1, grdColStyle2, grdColStyle3, grdColStyle4})
DataGrid1.Table Styles.Add(grdT ableStyle1)
I should be very happy if anyone could tell whats wrong or whats missing

[Ken Tucker [MVP]]

Hi,

It does not look like you are setting up your tablestyle right. Here
is an example using the northwind database. I assume you have the
northwind.mdb in the bin directory of your project folder and imports
system.data.ole db at the top of your file.

Public ds As New DataSet

Dim dv As DataView

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

Dim conn As OleDbConnection

Dim strConn As String

Dim strSQL As String

Dim da As OleDbDataAdapte r

strConn = "Provider = Microsoft.Jet.O LEDB.4.0;"

strConn += "Data Source = Northwind.mdb;"

conn = New OleDbConnection (strConn)

da = New OleDbDataAdapte r("Select * From Products", conn)

da.Fill(ds, "Products")

SetupGrid()

dv = New DataView(ds.Tab les("Products") )

With dv

..AllowNew = False

..AllowEdit = True

..AllowDelete = False

End With

DataGrid1.DataS ource = dv

End Sub

Private Sub SetupGrid()

Dim ts As New DataGridTableSt yle

ts.MappingName = "Products"

Dim colName As New DataGridTextBox Column

With colName

..MappingName = "ProductNam e"

..HeaderText = "Name"

..Width = 200

End With

Dim colDiscontinued As New DataGridBoolCol umn

With colDiscontinued

..MappingName = "Discontinu ed"

..HeaderText = "Discontinu ed"

..Width = 80

End With

ts.GridColumnSt yles.Add(colNam e)

ts.GridColumnSt yles.Add(colDis continued)

DataGrid1.Table Styles.Add(ts)

ts = Nothing

colName = Nothing

colDiscontinued = Nothing

End Sub

Ken
-------------------

"Thomas A" <th************ **@msn.com> wrote in message
news:Xn******** *************** ***********@207 .46.248.16...

Hi !

I'm trying to use a datagrid with an checkbox column, I not shoure to
get it work on several points

I have got the rest of the data mapped to the grid but the checkbox
doesnt work.

1. The column type in the sql is Integer (values 0 or 1), is this ok or
should I change it to something else?

2. my code to load the grid

Sub LoadDataToGrid( )

formatdatagrid( )
DataSet11.Clear ()

DataGrid1.DataS ource = (DataSet11)
DataGrid1.DataM ember = "RAT_Custom er"
SqlDataAdapter1 .SelectCommand. CommandText = "Select CustomerCode
as KundNr, SL01002 as KundNamn ,Pfaktor as Påslag, InOutputFile from
RAT_Customer, SL010100 where CustomerCode = SL01001"
SqlConnection1. Open()

SqlDataAdapter1 .Fill(DataSet11 )

SqlConnection1. Close()

End Sub
3. My code to format the grid

Dim grdColStyle1 As New DataGridTextBox Column
With grdColStyle1
.HeaderText = "Kund Nr"
.MappingName = "KundNr"
.Width = 50
End With

Dim grdColStyle2 As New DataGridTextBox Column
With grdColStyle2
.HeaderText = "Namn"
.MappingName = "KundNamn"
.Width = 90
End With

Dim grdColStyle3 As New DataGridTextBox Column
With grdColStyle3
.HeaderText = "Påslag traktamente (SEK)"
.MappingName = "Påslag"
.Width = 140
'.ReadOnly = True
End With

Dim grdColStyle4 As New DataGridBoolCol umn
With grdColStyle4
.HeaderText = "Överföring till RAT"
.MappingName = "InOutputFi le"
.Width = 130
.Alignment = HorizontalAlign ment.Center
.ReadOnly = False

End With

' Add the style objects to the table style's collection of
' column styles. Without this the styles do not take effect.
grdTableStyle1. GridColumnStyle s.AddRange _
(New DataGridColumnS tyle() _
{grdColStyle1, grdColStyle2, grdColStyle3, grdColStyle4})
DataGrid1.Table Styles.Add(grdT ableStyle1)
I should be very happy if anyone could tell whats wrong or whats missing

[Thomas A]

Hi Ken !

I looked in table "products" in the Nortwind database at my sql Server. It
should be BIT and not Integer at the field.
After the tablechange the grid worked correctly with true and false.

Thank you for opening my eyes
Regards Thomas