Visual Basic

15-Apr-05 2:25

I have problem to reload DataReader in my app. Here is my code:

Private Function ContactView()
Dim DA As New OleDbDataAdapter
Dim DR As OleDbDataReader
objConn.Open()
DA.SelectCommand = New OleDbCommand
DA.SelectCommand.Connection = objConn
DA.SelectCommand.CommandType = CommandType.Text
DA.SelectCommand.CommandText = _
"SELECT primary_contact, entity_id, ISNULL(first_name, '') + ' ' + ISNULL(last_name, '') AS Name, ISNULL(company, '') " & _
"AS Company, ISNULL(business_phone, '') AS phone, ISNULL(home_phone, '') AS homePhone, ISNULL(pager, '') AS Pager, " & _
"ISNULL(mobile_phone, '') AS mobilePhone, ISNULL(business_fax, '') AS fax, ISNULL(email, '') AS email " & _
"FROM Contacts WHERE (status = 1) AND client_entity_id = " & client_entityID & " ORDER BY last_name, first_name"
DR = DA.SelectCommand.ExecuteReader

Dim y = 72
Dim primaryContact As Boolean
Dim entity As Int32
Dim fullName, phone, fax, homePhone, cellPhone, email, company, pager As String

Do While DR.Read()
primaryContact = DR.GetBoolean(0)
entity = DR.GetInt32(1)
fullName = DR.GetString(2)
company = DR.GetString(3)
phone = DR.GetString(4)
homePhone = DR.GetString(5)
pager = DR.GetString(6)
cellPhone = DR.GetString(7)
fax = DR.GetString(8)
email = DR.GetString(9)

'create a checked button

If primaryContact = True Then
Dim aImageButton As New Button
With aImageButton
Dim imagePath As String = Path.Combine(Application.StartupPath, "checkbox_checked.gif")
.Image = Image.FromFile(imagePath)
.Name = entity
.Text = ""
.ImageAlign = ContentAlignment.MiddleCenter
.FlatStyle = FlatStyle.Flat
.Location = New Point(10, y)
.Width = 20
.Height = 20
End With
' Attach the Click Event handler
AddHandler aImageButton.Click, AddressOf ImageButtonClickHandler
' Finally, add the control to the Form
tpgContact.Controls.Add(aImageButton)
Else
Dim aImageButton As New Button
With aImageButton
Dim imagePath As String = Path.Combine(Application.StartupPath, "checkbox_blank.gif")
.Image = Image.FromFile(imagePath)
.Name = entity
.Text = ""
.ImageAlign = ContentAlignment.MiddleCenter
.FlatStyle = FlatStyle.Flat
.Location = New Point(10, y)
.Width = 20
.Height = 20
End With
' Attach the Click Event handler
AddHandler aImageButton.Click, AddressOf ImageButtonClickHandler
' Finally, add the control to the Form
tpgContact.Controls.Add(aImageButton)
End If

Dim aButton As New Button
tpgContact.Controls.Add(aButton)
aButton.Text = " "
aButton.Name = entity
aButton.Location = New Point(38, y)
'aButton.DialogResult = DialogResult.OK
aButton.BackColor = Color.LightGray
aButton.Height = 20
aButton.Width = 30
aButton.Font = New System.Drawing.Font("Arial", 7.25!)
AddHandler aButton.Click, AddressOf ContactViewClickHandler

Dim aTextName As New Label
tpgContact.Controls.Add(aTextName)
aTextName.Text = fullName
aTextName.Location = New Point(75, y)
aTextName.Width = 189
aTextName.Height = 20
aTextName.BackColor = Color.White
aTextName.TextAlign = ContentAlignment.MiddleLeft
aTextName.Font = New System.Drawing.Font("Arial", 7.25!)

Dim aTextCompany As New Label
tpgContact.Controls.Add(aTextCompany)
aTextCompany.Text = company
aTextCompany.Location = New Point(267, y)
aTextCompany.Width = 149
aTextCompany.Height = 20
aTextCompany.BackColor = Color.White
aTextCompany.TextAlign = ContentAlignment.MiddleLeft
aTextCompany.Font = New System.Drawing.Font("Arial", 7.25!)

If phone <> "" And fax <> "" And cellPhone <> "" And pager <> "" And homePhone <> "" Then
Dim aCombobox As New ComboBox
tpgContact.Controls.Add(aCombobox)
Dim i = 0
If phone <> "" Or fax <> "" Or cellPhone <> "" Or pager <> "" Or homePhone <> "" Then
If phone <> "" Then
aCombobox.Text = "B: " & phone
End If
If fax <> "" Then
aCombobox.Items.Add("F: " & fax)
End If
If cellPhone <> "" Then
aCombobox.Items.Add("M: " & cellPhone)
End If
If pager <> "" Then
aCombobox.Items.Add("P: " & pager)
End If
If homePhone <> "" Then
aCombobox.Items.Add("H: " & homePhone)
End If
Else
aCombobox.Items.Clear()
End If
aCombobox.Location = New Point(419, y)
aCombobox.Font = New System.Drawing.Font("Arial", 7.25!)
aCombobox.Width = 120
aCombobox.Height = 20
Else
Dim aWhiteText As New Label
tpgContact.Controls.Add(aWhiteText)
aWhiteText.Text = " "
aWhiteText.Location = New Point(419, y)
aWhiteText.Width = 120
aWhiteText.Height = 18
aWhiteText.BackColor = Color.White
End If

If email <> "" Then
Dim aButtonEmail As New Button
tpgContact.Controls.Add(aButtonEmail)
aButtonEmail.Text = email
aButtonEmail.Location = New Point(542, y)
aButtonEmail.Width = 48
aButtonEmail.Height = 20
aButtonEmail.BackColor = Color.LightGray
aButtonEmail.Font = New System.Drawing.Font("Arial", 7.25!)
AddHandler aButtonEmail.Click, AddressOf EmailClickHandler
Else
Dim aWhiteText As New Label
tpgContact.Controls.Add(aWhiteText)
aWhiteText.Text = " "
aWhiteText.Location = New Point(542, y)
aWhiteText.Width = 48
aWhiteText.Height = 20
aWhiteText.BackColor = Color.White
End If

y += 25
Loop
DR.Close()
objConn.Close()
End Function

Private Sub ContactViewClickHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
results = CType(CType(sender, Button).Name, String)
'MessageBox.Show(results)
Dim contactView As New frmContactEdit
contactView.ShowDialog()

End Sub

Public Sub EmailClickHandler(ByVal sender As Object, ByVal e As System.EventArgs)
results = CType(CType(sender, Button).Text, String)
Dim mail = "mailto:" & results
'MessageBox.Show(mail)
System.Diagnostics.Process.Start(mail)
End Sub

Public Sub ImageButtonClickHandler(ByVal sender As Object, ByVal e As System.EventArgs)
results = CType(CType(sender, Button).Name, Int32)
'MessageBox.Show(results)

Dim DA As New OleDbDataAdapter
objConn.Open()
DA.SelectCommand = New OleDbCommand
DA.SelectCommand.Connection = objConn
DA.SelectCommand.CommandType = CommandType.Text
DA.SelectCommand.CommandText = "UPDATE Contacts set primary_contact = 0 WHERE client_entity_id = " & client_entityID
DA.SelectCommand.ExecuteNonQuery()

Dim DA2 As New OleDbDataAdapter
DA2.SelectCommand = New OleDbCommand
DA2.SelectCommand.Connection = objConn
DA2.SelectCommand.CommandType = CommandType.Text
DA2.SelectCommand.CommandText = "UPDATE Contacts set primary_contact = 1 WHERE entity_id = " & results
DA2.SelectCommand.ExecuteNonQuery()
objConn.Close()

ContactView()
End Sub

There are two problems in here, first, when I click the aImageButton, it didn't refresh to the update one. The contactView() in ImageButtonClickHandler not working. Second, IN ContactViewClickHandler, it opens a new forms to edit the info, after this window close, how to update the newest data and reload the dataReader?

Lisa

Dave Kreskowiak15-Apr-05 3:54

15-Apr-05 3:54

The DataReader object returns table rows in a "forward-only" manner. Meaning you can't rewind it and re-read the row that it just returned. The only way to get it to go backwards is to destroy the current DataReader object and create a new one, which will start returning rows from the beginning of the table again.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Lisana15-Apr-05 3:58

15-Apr-05 3:58

where and how to destroy the current dataReader in my app?

Lisa

Dave Kreskowiak15-Apr-05 4:20

15-Apr-05 4:20

In your code, the DataReader that you create in the ContactView function is destroyed when execution reaches the end of the function. A new one is created and destroyed every time you execute ContactView.

In your code, though, you have no way of destroying all the controls you made so you can create new ones with the updated data. I get the feeling that your code IS getting the updated values from the database, but since you never destroyed the controls with the old data, the new controls your creating are being created BEHIND the controls you already have, and are therefore not visible.

IMHO, you've really got to use a DataGrid for this. You'll end up getting the functionality you want with about half the lines code that you've already written, and have yet to write more to get it to really work.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Lisana15-Apr-05 4:30

15-Apr-05 4:30

I want to user DataGrid, but how can I have buttons and combobox inside the datagrid?

Lisa

Dave Kreskowiak15-Apr-05 7:26

15-Apr-05 7:26

I'm trying to find a good tutorial on the custom DataGrid's for Windows Forms, but have so far come up emtpy. I keep finding everything under the sun for the ASP.NET DataGrid, though. How sad is that?!

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Lisana15-Apr-05 8:06

How to chage query at runtime

15-Apr-05 8:06

thanks for your trying..

Lisa

Sheel Gohe15-Apr-05 2:01

Sheel Gohe

15-Apr-05 2:01

I am opening a mail merege document from vb.net application at runtime. but the problem is, document is showing all the records in the table. I want to chage the mail merge's sql query at runtime.

Please help.
Thanks in advance.

Regards
Sheel Frown | :(

sheel

how to retrieve primary key of a database ?

sumit2115-Apr-05 1:49

sumit21

15-Apr-05 1:49

i have a oledb connection to a database which contains 5 tables.

i had given the option to user to select any table.
they will be dispalyed in a list.

i have another listbox in which i want to bind the primary values of the table the user had selected.
i want to do it in run time.
my problem is that i dont know which column in the table are primary keys.

"so is there any method through which i can know which column in a given table is primary key, which is foreign key" basically i want to retrieve the constraint and schema

a code will be more helpful

thanks......

Toolbars with Icons/Images

Errol Obrique14-Apr-05 23:58

Errol Obrique

14-Apr-05 23:58

Help! How to insert icon/image next to menu item? Confused | :confused:

Re: Toolbars with Icons/Images

Jim Matthews15-Apr-05 2:57

Jim Matthews

15-Apr-05 2:57

this isn't supported in the current incarnation of the winform menuitem, but i believe i read somewhere that it will be supported in v2.0 of the framework.

for now you'll have to subclass the menuitem class and owner draw the menu's yourself. there are tons of examples of how to do this all over the net.

here's an article here on cp that exlpains how to do this and here are the results of a search in the microsoft .net vb language newsgroup.

hope this helps.

-jim

Write procedure description

nitin_ion14-Apr-05 23:30

nitin_ion

14-Apr-05 23:30

does any one knew how to add description about the parameters in the function and about function, just like microsoft has did for its in built function.

Re: Write procedure description

Dave Kreskowiak15-Apr-05 3:46