P
Peter W Johnson
Hi guys,
I have a problem with a datagrid record count. Here is the code:-
<snip>
Public Class frmMerchantDeposit
Inherits System.Windows.Forms.Form
Dim myconnection As New Odbc.OdbcConnection("DSN=database")
Dim dsMerchant As DataSet
Dim daMerchant As Odbc.OdbcDataAdapter
Private Sub frmMerchantDeposit_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
myconnection.Open()
Dim mysql As String
mysql = "Select * from qryInvoice WHERE NOT Posted"
daMerchant = New Odbc.OdbcDataAdapter(mysql, myconnection)
dsMerchant = New DataSet
daMerchant.Fill(dsMerchant, "Merchant")
DataGridBatchMerchant.DataSource = dsMerchant.Tables("Merchant")
Dim tsMerchant As New DataGridTableStyle
tsMerchant.MappingName = "Merchant"
tsMerchant.AlternatingBackColor = System.Drawing.Color.Gold
DataGridBatchMerchant.TableStyles.Clear()
Dim cstbInvoiceDate As New DataGridTextBoxColumn
With cstbInvoiceDate
.MappingName = "InvoiceDate"
.HeaderText = "Date"
.Width = 80
End With
Dim cstbFirstName As New DataGridTextBoxColumn
With cstbFirstName
.MappingName = "FirstName"
.HeaderText = "First Name"
.Width = 150
End With
Dim cstbLastName As New DataGridTextBoxColumn
With cstbLastName
.MappingName = "LastName"
.HeaderText = "Last Name"
.Width = 150
End With
tsMerchant.GridColumnStyles.Add(cstbInvoiceDate)
tsMerchant.GridColumnStyles.Add(cstbFirstName)
tsMerchant.GridColumnStyles.Add(cstbLastName)
DataGridBatchMerchant.TableStyles.Add(tsMerchant)
DataGridBatchMerchant.Visible = True
lblRecordNumber.Text = "There are " &
dsMerchant.Tables(0).Rows.Count & " records in the table"
'...............first record count
myconnection.Close()
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnSave.Click
MsgBox("There are " & dsMerchant.Tables(0).Rows.Count & " records in
the table") '....................second record count
If dsMerchant.Tables(0).Rows.Count > 0 Then
'do stuff
End If
End Sub
End Class
</snip>
In the first record count in the .Load class I get zero records, the dataset
is empty. On the second I get a count of one but have not added any records.
Any ideas as to why?
Cheers
Peter.
I have a problem with a datagrid record count. Here is the code:-
<snip>
Public Class frmMerchantDeposit
Inherits System.Windows.Forms.Form
Dim myconnection As New Odbc.OdbcConnection("DSN=database")
Dim dsMerchant As DataSet
Dim daMerchant As Odbc.OdbcDataAdapter
Private Sub frmMerchantDeposit_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
myconnection.Open()
Dim mysql As String
mysql = "Select * from qryInvoice WHERE NOT Posted"
daMerchant = New Odbc.OdbcDataAdapter(mysql, myconnection)
dsMerchant = New DataSet
daMerchant.Fill(dsMerchant, "Merchant")
DataGridBatchMerchant.DataSource = dsMerchant.Tables("Merchant")
Dim tsMerchant As New DataGridTableStyle
tsMerchant.MappingName = "Merchant"
tsMerchant.AlternatingBackColor = System.Drawing.Color.Gold
DataGridBatchMerchant.TableStyles.Clear()
Dim cstbInvoiceDate As New DataGridTextBoxColumn
With cstbInvoiceDate
.MappingName = "InvoiceDate"
.HeaderText = "Date"
.Width = 80
End With
Dim cstbFirstName As New DataGridTextBoxColumn
With cstbFirstName
.MappingName = "FirstName"
.HeaderText = "First Name"
.Width = 150
End With
Dim cstbLastName As New DataGridTextBoxColumn
With cstbLastName
.MappingName = "LastName"
.HeaderText = "Last Name"
.Width = 150
End With
tsMerchant.GridColumnStyles.Add(cstbInvoiceDate)
tsMerchant.GridColumnStyles.Add(cstbFirstName)
tsMerchant.GridColumnStyles.Add(cstbLastName)
DataGridBatchMerchant.TableStyles.Add(tsMerchant)
DataGridBatchMerchant.Visible = True
lblRecordNumber.Text = "There are " &
dsMerchant.Tables(0).Rows.Count & " records in the table"
'...............first record count
myconnection.Close()
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnSave.Click
MsgBox("There are " & dsMerchant.Tables(0).Rows.Count & " records in
the table") '....................second record count
If dsMerchant.Tables(0).Rows.Count > 0 Then
'do stuff
End If
End Sub
End Class
</snip>
In the first record count in the .Load class I get zero records, the dataset
is empty. On the second I get a count of one but have not added any records.
Any ideas as to why?
Cheers
Peter.