sarnath
Legacy Member
Heb het volgend probleem:
ik plaats een DataGrid op mijn webform en plaats volgende code bij het load event van de form:
Dim connString As String
connString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\db\testdb.mdb" & ";"
objConnection = New OleDbConnection(connString)
Try
objConnection.Open()
lblStatus.Text = "Database connection = open"
Catch ex As Exception
End Try
Dim objCommand As New OleDbCommand("SELECT * FROM tblAfspraken", objConnection)
'Dim objcommand As OleDbCommand = New OleDbCommand
'objcommand.CommandText = txtSql.Text
'objcommand.Connection = objConnection
objCommand.CommandType = CommandType.Text
'objCommand.CommandType = CommandType.TableDirect
Dim objDataAdapter As New OleDbDataAdapter
Dim objDataSet As New DataSet
objDataAdapter.SelectCommand = objCommand
Try
objDataAdapter.Fill(objDataSet)
grdResults.DataSource = objDataSet
grdResults.DataMember = objDataSet.Tables(0).TableName
grdResults.DataBind()
'grdResults.AlternatingBackColor = Color.WhiteSmoke
'grdResults.GridLineStyle = DataGridLineStyle.None
'grdResults.SelectionBackColor = Color.LightGray
'grdResults.SelectionForeColor = Color.Black
Catch ex As Exception
End Try
objCommand.Dispose()
objCommand = Nothing
objDataAdapter.Dispose()
objDataAdapter = Nothing
objDataSet.Dispose()
objDataSet = Nothing
Dit verloopt allemaal goed, maar nu zou ik graag in bepaalde velden van de datagrid een knop zetten of een andere achtergrondkleur.
Dit krijg ik niet gefixt. Ik heb al geprobeerd met DataTable en dergelijke maar steeds zonder resultaat.
Iemand hier ervaring mee?
ik plaats een DataGrid op mijn webform en plaats volgende code bij het load event van de form:
Dim connString As String
connString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\db\testdb.mdb" & ";"
objConnection = New OleDbConnection(connString)
Try
objConnection.Open()
lblStatus.Text = "Database connection = open"
Catch ex As Exception
End Try
Dim objCommand As New OleDbCommand("SELECT * FROM tblAfspraken", objConnection)
'Dim objcommand As OleDbCommand = New OleDbCommand
'objcommand.CommandText = txtSql.Text
'objcommand.Connection = objConnection
objCommand.CommandType = CommandType.Text
'objCommand.CommandType = CommandType.TableDirect
Dim objDataAdapter As New OleDbDataAdapter
Dim objDataSet As New DataSet
objDataAdapter.SelectCommand = objCommand
Try
objDataAdapter.Fill(objDataSet)
grdResults.DataSource = objDataSet
grdResults.DataMember = objDataSet.Tables(0).TableName
grdResults.DataBind()
'grdResults.AlternatingBackColor = Color.WhiteSmoke
'grdResults.GridLineStyle = DataGridLineStyle.None
'grdResults.SelectionBackColor = Color.LightGray
'grdResults.SelectionForeColor = Color.Black
Catch ex As Exception
End Try
objCommand.Dispose()
objCommand = Nothing
objDataAdapter.Dispose()
objDataAdapter = Nothing
objDataSet.Dispose()
objDataSet = Nothing
Dit verloopt allemaal goed, maar nu zou ik graag in bepaalde velden van de datagrid een knop zetten of een andere achtergrondkleur.
Dit krijg ik niet gefixt. Ik heb al geprobeerd met DataTable en dergelijke maar steeds zonder resultaat.
Iemand hier ervaring mee?

