By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
444,239 Members | 1,505 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 444,239 IT Pros & Developers. It's quick & easy.

Datagrid record count

P: n/a
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.

Mar 25 '06 #1
Share this Question
Share on Google+
4 Replies


P: n/a
Hi,

You specify a name when filling the dataset. Try
dsMerchant.Tables("Merchant").Rows.Count

Ken
-----------------
"Peter W Johnson" <vk****@yahoo.com> wrote in message
news:uE*************@TK2MSFTNGP09.phx.gbl...
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.

Mar 27 '06 #2

P: n/a
Peter,

Is that happen as well as you eliminate all that style code.

(I do not see the sense here why you show that to us.)

Cor
Mar 27 '06 #3

P: n/a
Cor,

I included it because I thought it may be relavant.

Cheers

Peter.
"Cor Ligthert [MVP]" <no************@planet.nl> wrote in message
news:Oa*************@TK2MSFTNGP09.phx.gbl...
Peter,

Is that happen as well as you eliminate all that style code.

(I do not see the sense here why you show that to us.)

Cor

Mar 28 '06 #4

P: n/a
Ken,

Thanks but no difference.

Cheers

Peter.
"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in message
news:%2******************@TK2MSFTNGP14.phx.gbl...
Hi,

You specify a name when filling the dataset. Try
dsMerchant.Tables("Merchant").Rows.Count

Ken
-----------------
"Peter W Johnson" <vk****@yahoo.com> wrote in message
news:uE*************@TK2MSFTNGP09.phx.gbl...
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.


Mar 28 '06 #5

This discussion thread is closed

Replies have been disabled for this discussion.