J
Jonathan
What code would I need to add below to make the text in datagrid rows bold
when the value of one of the fields, "strResult" equals "Purchased"?
Function bolPopulateDataGrid() as Boolean
Dim oConn As OleDbConnection
Dim oComm As OleDbDataAdapter
Dim sConn As String
Dim sComm As String
Dim oDataSet As New DataSet
'Build the connection string
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
sConn += "Data Source=D:\inetpub\www\myweb\fpdb\db.mdb;"
sConn += "Persist Security Info=False"
'Build the SQL string
sComm = "SELECT qryDataGrid01.* "
sComm += "FROM qryDataGrid01;"
'Create the connection and command objects
oConn = New OleDbConnection(sConn)
oComm = New OleDbDataAdapter(sComm, oConn)
'Fill the dataset with the results of the query
oComm.Fill(oDataSet, sComm )
'Set the grid source to the dataset and bind the data
oGrid.DataSource=oDataSet.Tables(sComm).DefaultView
oGrid.DataBind()
End Function
when the value of one of the fields, "strResult" equals "Purchased"?
Function bolPopulateDataGrid() as Boolean
Dim oConn As OleDbConnection
Dim oComm As OleDbDataAdapter
Dim sConn As String
Dim sComm As String
Dim oDataSet As New DataSet
'Build the connection string
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
sConn += "Data Source=D:\inetpub\www\myweb\fpdb\db.mdb;"
sConn += "Persist Security Info=False"
'Build the SQL string
sComm = "SELECT qryDataGrid01.* "
sComm += "FROM qryDataGrid01;"
'Create the connection and command objects
oConn = New OleDbConnection(sConn)
oComm = New OleDbDataAdapter(sComm, oConn)
'Fill the dataset with the results of the query
oComm.Fill(oDataSet, sComm )
'Set the grid source to the dataset and bind the data
oGrid.DataSource=oDataSet.Tables(sComm).DefaultView
oGrid.DataBind()
End Function