Re: exporting data - Visual Basic Discussion Boards

hi all

i m trying to use datagridview to display some data from database and i am trying this with out using dataset.

what exactly i m trying is find some alternative from which i can fill datagridview directly with dataadapter or some thing like that.

the moral is, i need to done my work (the loading) in just less than a second.

does some have any idea

thanks in advance.

help everyone

Falling down is not defeat...defeat is when u refuse to get up...

Hi,

The following code demonstrates one of the ways to fill up DataGridView without using DataSet.

BEGIN CODE

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class Form1
Inherits System.Windows.Forms.Form

Private buttonPanel As New Panel
Private WithEvents songsDataGridView As New DataGridView
Private WithEvents addNewRowButton As New Button
Private WithEvents deleteRowButton As New Button

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

SetupLayout()
SetupDataGridView()
PopulateDataGridView()

End Sub

Private Sub songsDataGridView_CellFormatting(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
Handles songsDataGridView.CellFormatting

If Me.songsDataGridView.Columns(e.ColumnIndex).Name = _
"Release Date" Then

If e IsNot Nothing Then
If e.Value IsNot Nothing Then
Try
e.Value = DateTime.Parse(e.Value.ToString()) _
.ToLongDateString()
e.FormattingApplied = True
Catch ex As FormatException
Console.WriteLine("{0} is not a valid date.", e.Value.ToString())
End Try
End If
End If

End If

End Sub

Private Sub addNewRowButton_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles addNewRowButton.Click

Me.songsDataGridView.Rows.Add()

End Sub

Private Sub deleteRowButton_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles deleteRowButton.Click

If Me.songsDataGridView.SelectedRows.Count > 0 AndAlso _
Not Me.songsDataGridView.SelectedRows(0).Index = _
Me.songsDataGridView.Rows.Count - 1 Then

Me.songsDataGridView.Rows.RemoveAt( _
Me.songsDataGridView.SelectedRows(0).Index)

End If

End Sub

Private Sub SetupLayout()

Me.Size = New Size(600, 500)

With addNewRowButton
.Text = "Add Row"
.Location = New Point(10, 10)
End With

With deleteRowButton
.Text = "Delete Row"
.Location = New Point(100, 10)
End With

With buttonPanel
.Controls.Add(addNewRowButton)
.Controls.Add(deleteRowButton)
.Height = 50
.Dock = DockStyle.Bottom
End With

Me.Controls.Add(Me.buttonPanel)

End Sub

Private Sub SetupDataGridView()

Me.Controls.Add(songsDataGridView)

songsDataGridView.ColumnCount = 5
With songsDataGridView.ColumnHeadersDefaultCellStyle
.BackColor = Color.Navy
.ForeColor = Color.White
.Font = New Font(songsDataGridView.Font, FontStyle.Bold)
End With

With songsDataGridView
.Name = "songsDataGridView"
.Location = New Point(8, 8)
.Size = New Size(500, 250)
.AutoSizeRowsMode = _
DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
.CellBorderStyle = DataGridViewCellBorderStyle.Single
.GridColor = Color.Black
.RowHeadersVisible = False

.Columns(0).Name = "Release Date"
.Columns(1).Name = "Track"
.Columns(2).Name = "Title"
.Columns(3).Name = "Artist"
.Columns(4).Name = "Album"
.Columns(4).DefaultCellStyle.Font = _
New Font(Me.songsDataGridView.DefaultCellStyle.Font, FontStyle.Italic)

.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
.Dock = DockStyle.Fill
End With

End Sub

Private Sub PopulateDataGridView()

Dim row0 As String() = {"11/22/1968", "29", "Revolution 9", _
"Beatles", "The Beatles [White Album]"}
Dim row1 As String() = {"1960", "6", "Fools Rush In", _
"Frank Sinatra", "Nice 'N' Easy"}
Dim row2 As String() = {"11/11/1971", "1", "One of These Days", _
"Pink Floyd", "Meddle"}
Dim row3 As String() = {"1988", "7", "Where Is My Mind?", _
"Pixies", "Surfer Rosa"}
Dim row4 As String() = {"5/1981", "9", "Can't Find My Mind", _
"Cramps", "Psychedelic Jungle"}
Dim row5 As String() = {"6/10/2003", "13", _
"Scatterbrain. (As Dead As Leaves.)", _
"Radiohead", "Hail to the Thief"}
Dim row6 As String() = {"6/30/1992", "3", "Dress", "P J Harvey", "Dry"}

With Me.songsDataGridView.Rows
.Add(row0)
.Add(row1)
.Add(row2)
.Add(row3)
.Add(row4)
.Add(row5)
.Add(row6)
End With

With Me.songsDataGridView
.Columns(0).DisplayIndex = 3
.Columns(1).DisplayIndex = 4
.Columns(2).DisplayIndex = 0
.Columns(3).DisplayIndex = 1
.Columns(4).DisplayIndex = 2
End With

End Sub

<STAThreadAttribute()> _
Public Shared Sub Main()
Application.EnableVisualStyles()
Application.Run(New Form1())
End Sub

End Class

END CODE

Regards,
John Adams
ComponentOne LLC

eyes2007 wrote:
i need to done my work (the loading) in just less than a second.

That depends on how much data you're talking about, where the data is stored, what kind of database it is, ..., not to mention that the DGV itself isn't known for it's speed in creating rows.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

I have started to programming in Visual Studio.NET 2003 and specifically in Visual Basic of this Studio.
I have a problem with the data I want to export from a picture box.
I set a background image in a picture box and after writing some code I manage to overlay another image in the background image(in the same picture box).
Finally, I manage to show in the picture box the two different images (one above the other) and I want to save (export) the final image as a new “.bitmap” image.
Can anyone help me?

Thanks in advance

The background is a Image - object, and in this class you've got the Save method (just use <code[yourimage].image.save("c:\test.bmp")> to save it as a Bitmap)

Thank you very much. I will try it!

First of all, please don't spam the whole site.

The Bitmap class has a Save method. However, if the PictureBox has a background image and you're just setting another image above it, the image above it is all you will save.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

Thanks a lot! So, I'll try the Save method.

Is there anybody out there who could help me please.

I am trying to make use of the Transactionscope to implicitly create a transaction. This transaction should roll back when a condition is not met. It doesn't seem to work for me even though i have started the msdtc service. My function inserts a row in an oracle database using the DI.CreateTemplate. Now i want it to roll back the insert when the Attach_ID_To_Invoice_Batch process is not sucessful.

Dim DI As New DataLayer.Invoice
Dim intRetVal As Integer = -1
Dim options As New Transactions.TransactionOptions

options.IsolationLevel = System.Transactions.IsolationLevel.ReadCommitted
Try
Using scope As Transactions.TransactionScope = New Transactions.TransactionScope(Transactions.TransactionScopeOption.Required, options)
'If Not IsDoumentAllocated(EntryID) Then
intRetVal = DI.CreateTemplate(oTemplate, strTemplateName, enumTemplateType, UserID, -1, -1, "")
If intRetVal <>0 Then
If Attach_ID_To_Invoice_Batch(intRetVal, EntryID) Then
scope.Complete()
Else
intRetVal = -2
End If
Else
intRetVal = -1
End If
'End If
End Using
Catch ex As Exception
Return intRetVal
End Try

Could somebody please go through this code and let me know what i am missing.

hey, i am having some trouble with my Hotel billing application form my visual basic 2005 book. I have completed the assignment halfway through, i just need help with some of the more harder coding i guess you could say. this doesn't include any databases or anything either.

It is case 5 from the programing assignments in chapter 8:

I have to design a hotel billing assignment for a cancun resort in Mexico.

The purpose:
the application will calculate the hotel cost and convert the bill into mexican pesos or american dollars based on the customer's nationality.

Other Info:
A combo box requesting the type of room:
King Suite ($280)
2 Queen Beds suite ($310)
King Standard Room ($235)
2 Queen Beds Standard Room ($255)

i have the entire interface completed, i need help with the code for converting american dollars to pesos. here is what i got that is completely wrong, i don't even think this is the right procedure, i do no it is way to short... i really need help with this

AmericanDollars = Pesos * 0.1

after that is converted, i need to add up the rooms like,
if people stay in the King Suite for 7 nights it will cost... $300 or something. and i don't no what source i need to write. Sigh | :sigh:

can someone help me with making these proceddures?

thanks alot ...seroiusly

/J-Man\

You need to store the prices for each item, probably in the value property of the combo box item. Then you need to multiply that by the number of nights.

AmericanDollars = Pesos * 0.1

Assuming that Pesos contains the price in Pesos and AmericanDollars is a variable to hold the US$ price, then the only possible problem here is that the conversion may not be 100% accurate. The code is fine.

I'd do the conversion at the end, after you work out the total price.

TotalPrice = RoomCost * NumberOfNights

That's really it, you just need to fill the blanks.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

ok well i have this in the cod,e i can't seem to fine what is missing?:

Dim Numberofnights As Decimal
Dim introomtype As Integer
Dim roomcost As Decimal
Dim totalprice As Decimal
Dim americandollars As Decimal

americandollars = Pesos * 0.1
TotalPrice = RoomCost * NumberOfNights

' it needs to print the total(s) here:

Me.lblFinalTotal.Visible = True
Me.lblTaxesForStay.Visible = True
Me.lblSubtotalBillingAmount.Visible = True
Me.lblPOPtotal.Visible = True
Me.lbltaxesPOP.Visible = True
Me.lblBillingPOP.Visible = True

/J-Man\

hi
pls

can u tell me?

i want to enter data to two dimensional array(string)
but it appear err.
this err is " Object reference not set to an instance of an object"

code is
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Structure CUSTOM_EXPORT
Dim Name_Renamed As String
Dim ViewName As String
Dim List() As String
Dim filter_Renamed() As String
Dim ColHeadName() As String
Dim ColWidth() As Object

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Dim udtCustom() As CUSTOM_EXPORT
Dim strCol As Object
Dim i As Short
Dim j As Short

i = 0
Do While r.AtEndOfStream <> True
ReadStr = r.ReadLine
If VB.Left(ReadStr, 8)<>"[Export]"And Len(ReadStr)>0 Then
i = i + 1
End If
Loop

For j = 0 To UBound(strCol)
udtCustom(i).List(j) = strCol(j)
udtCustom(i).ColHeadName(j) = varColHeadName(j)
udtCustom(i).ColWidth(j) = varColWidth(j)
Next
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Err is appeared this line " udtCustom(i).List(j) = strCol(j)"
strcol(j) is "Area Code"
it cannot assign this value
appear err.

thz for all

This is VB6 ? I'd say that List() needs to be allocated to be an array, it's probably null.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

Yes - Redim saves the day Big Grin | :-D

not VB6 ,this is VB.Net

hey, i am having some trouble with my Hotel billing application form my visual basic 2005 book. I have completed the assignment halfway through, i just need help with some of the more harder coding i guess you could say. this doesn't include any databases or anything either.

It is case 5 from the programing assignments in chapter 8:

I have to design a hotel billing assignment for a cancun resort in Mexico.

The purpose:
the application will calculate the hotel cost and convert the bill into mexican pesos or american dollars based on the customer's nationality.

Other Info:
A combo box requesting the type of room:
King Suite ($280)
2 Queen Beds suite ($310)
King Standard Room ($235)
2 Queen Beds Standard Room ($255)

i have the entire interface completed, i need help with the code for converting american dollars to pesos. here is what i got that is completely wrong, i don't even think this is the right procedure, i do no it is way to short... i really need help with this Frown | :(

AmericanDollars = Pesos * 0.1

can someone help me with making this proceddure?

thanks alot ...seroiusly

/J-Man\

modified on Tuesday, December 11, 2007 3:18:46 AM

this is Lounge. Don't ask your programming questions here.

No one will help here in the lounge. Please ask your questions in the appropriate forum.

SSK.

Anyone who says sunshine brings happiness has never danced in the rain.

It used to be AmericanDollars = Pesos * .00001

but I think currently it's AmericanDollars = Pesos * 52944

Seriously, apart from you asking this in the lounge, you just need to go to a banking site and get the current conversion rate, assuming you don't need to sync up with a webservice to keep the rate current.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

execute("http://www.google.com/search?hl=en&q=convert+%1+pesos+to+dollars") Roll eyes | :rolleyes:

Steve

His conversion rate is not that bad. As of today, it was 10.91 MXN per USD... His MXN = 0.1 * USD is assuming 10 pesos to 1 dollar, which is a good estimation.

Luis Alonso Ramos
Intelectix
Chihuahua, Mexico

My Blog!

I have used datagrid to display data on a web page. Does anyone know how to use the sleep function in vb.net to display data using time intervals.
for example first entry came in at 16:02:01 and the second at 16:02:21 instead of displaying both entries at once i want it to display the first entry then wait 20 secods to display the second entry.

I hope i have made the problem clear.

You should stick with the answers you're getting in the ASP.NET forum. Again, you cannot use the VB.NET sleep function, and the fact that you're continuing to ask about the VB.NET sleep method means you really need to take my advice and buy an ASP.NET book.

No matter what, you're going to use AJAX or you're just going to write javascript that takes all the values and shows them in a time interval. There's just no way to use VB.NET to create a client side delay as you're describing it.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

Hi Friendz! i m working on a type of intranet site! i hav given a task to add a disclaimer to outgoing smtp messages! so if any one has idea so plz plz help me out! soon! itz very urgent

Thanks & Regards
Adil

If you are using an exchange-server there are a lot of tools to add disclaimers to the outgoing mail ( normaly those use a message sink to fetch messages from the internal transport and attach these) - just search google for exchange and disclaimer ( you will find even some vb-scripts to handle the task ).