Visual Basic

Christian Graus13-Nov-06 13:23

13-Nov-06 13:23

yyyyyy87 wrote:
I get an error saying that SQL server can not be found.

Then you need to install it Smile | :)

yyyyyy87 wrote:
I already got .net framework 2.0 installed.

That has nothing to do with SQL Server.

7prince14-Nov-06 6:03

7prince

14-Nov-06 6:03

OK. What is the answer then?

thank you in advance.

programmer

Christian Graus14-Nov-06 9:44

14-Nov-06 9:44

Installing SQL Server, obviously. Or, if it's on the same network, setting up the connection string so it will connect.

7prince14-Nov-06 12:11

7prince

14-Nov-06 12:11

thanks.

programmer

Load DataGrid from Excel File

shopi3013-Nov-06 13:49

shopi30

13-Nov-06 13:49

Hi yyyyyy87.

The client need have the SQL Native Client Installed.

SINCERELY.
ANTHONY ACUÑA

PREFERED PHRASE:
SOMEBODY TELL ME WHY IS MORE REAL WHEN I DREAM THAT I AM WAKE?

alexfromto13-Nov-06 5:59

alexfromto

13-Nov-06 5:59

Hi.

Last week I posted a question regarding reading Excel file and loading it into the DataGrid.
I didn't get any useful response back so please forgive me for posting this second time.
I'm sure someone had the same problem I have.

I have 3 columns in Excel. One of the columns (User Id) has text data (like: User 1) or a number data (like: 12345). My code works and doesn't throw any error but for some reason it only extracts text data. The numbers are missing and I'm not sure why. I've tried to foramt that columnt to TEXT only but it doesn't help. Just to be sure I looped through DataSet to make sure the values are there and of course they weren't.

Here's the code that reads Excel and loads data into DataGrid. Please help.

Thank you.

Try<br />
'Create DataSet and DataAdapter<br />
ds = New System.Data.DataSet<br />
da = New System.Data.OleDb.OleDbDataAdapter<br />
<br />
'Establish connection<br />
con = New System.Data.OleDb.OleDbConnection( _<br />
"provider=Microsoft.Jet.OLEDB.4.0; " & _<br />
"data source=" & Session("ExcelFilePath").ToString() & "; " & _<br />
"Extended Properties=Excel 8.0")<br />
<br />
'Create command<br />
cmdSelectExcel = New System.Data.OleDb.OleDbCommand("SELECT * FROM [Sheet1$] ORDER BY Company", con)<br />
<br />
'Open connection<br />
con.Open()<br />
<br />
'Exectue command through adapter<br />
da.SelectCommand = cmdSelectExcel<br />
da.Fill(ds, "[Sheet1$]")<br />
<br />
'Assign DataSourse of the DataGrid and bind it<br />
dg.DataSource = ds.Tables(0).DefaultView<br />
dg.DataBind()<br />
<br />
'Close Connection<br />
con.Close()<br />
Catch ex As Exception<br />
'Display error message<br />
lblError.Text = "Error: " & ex.ToString()<br />
lblError.Visible = True<br />
End Try

Re: Load DataGrid from Excel File

shopi3013-Nov-06 13:46

shopi30

13-Nov-06 13:46

Hi Alexfromto.

Do you want that the oledb driver extracts all data as Text, correctly?

Then you need add the follow Extended Properties:

1st: IMEX=1;
2nd: MaxScanRows=0

The first property force the OleDb Driver to read any cell of excel for determine the column type.

The second establish the number of cell for every column to scan for determine de column type, the 0 value force to scan all cells.

SINCERELY.
ANTHONY ACUÑA

PREFERED PHRASE:
SOMEBODY TELL ME WHY IS MORE REAL WHEN I DREAM THAT I AM WAKE?

Re: Load DataGrid from Excel File

alexfromto14-Nov-06 3:19

alexfromto

14-Nov-06 3:19

Thank you very much Anthony. It worked like a charm. You da man.

Alex.

VB.Net 2003 - ItemDataBound

DDscales13-Nov-06 5:37

DDscales

13-Nov-06 5:37

I am new to "The Code Project".
D'Oh! | :doh:

I was attracted to this site due to an article; "Advanced DataGrid Formating with ItemDataBound".

The article identified how to format ADO.Net Datagrid rows conditionally.

I need to do the same from a VB.Net Datagrid.

My Application provides the user a datagrid that displays equipment calibration related data. I.E. "Equip. Serial #", "Due dates" ETC...

I want to conditionally change the color of rows (records) who's "Due date" columns are greater than the current date; DueDate > Today()

Thus, visually identifing records which need to be prioritized.

Can anyone direct me to an article, or perhaps point me in the right direction?

Regards:

DDscales

DDscales

Re: VB.Net 2003 - ItemDataBound

shopi3013-Nov-06 14:00

shopi30

13-Nov-06 14:00

Hi DDscales.

Try Using

[c#]
this.dataGridView1.Rows[0].DefaultCellStyle

Or if you are using the a DataSet use DataBindings to set the properties with the correct datamember.

SINCERELY.
ANTHONY ACUÑA

PREFERED PHRASE:
SOMEBODY TELL ME WHY IS MORE REAL WHEN I DREAM THAT I AM WAKE?

Re: VB.Net 2003 - ItemDataBound

DDscales15-Nov-06 8:28

DDscales

15-Nov-06 8:28

Perhaps I am just to green.

I assume "this." refers to my DataGrid "DataGrid1" ?

Also, I notice in your reply [c#], I am running VB 2003. Or does that matter?

Anyway...I think my problem is I do not know how to set the dataGridView properties. Do I have to create a class Library?

I realize this could get rather complicated. Could you refer me to an article or virtual lab that might help me to get the answers?

Regards:

DDscales

AutoRefresh

Tim8w13-Nov-06 5:30

Tim8w

13-Nov-06 5:30

I have a function that needs to be called anytime the form is re-sized, minimized or maximized. In VB6, I could just set the AutoRefresh and call the function in the resize routine and everything worked fine. It doesn't seem to work that way in VB.NET. Any ideas?

Thanks,

Tim Alvord

Re: AutoRefresh

Christian Graus13-Nov-06 12:15

Re: setting text properties

13-Nov-06 12:15

There's an event for the form resizing, and another, I believe, for if the state is changed.

Solved: AutoRefresh

Tim8w14-Nov-06 5:23

Tim8w

14-Nov-06 5:23

A user, Craig Gemmill, on another forum solved it this way. It's pretty slick:

Private Sub frmJournal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetStyle(ControlStyles.UserPaint, True)
SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
SetStyle(ControlStyles.AllPaintingInWmPaint, True)
SetStyle(ControlStyles.ResizeRedraw, True)
Me.UpdateStyles()
End Sub

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Using gradientBrush As New Drawing2D.LinearGradientBrush(Me.ClientRectangle, Color.Black, Color.Blue, Drawing2D.LinearGradientMode.Vertical)
e.Graphics.FillRectangle(gradientBrush, Me.ClientRectangle)
End Using
End Sub

Tim Alvord

setting text properties

dianadcx13-Nov-06 4:50

dianadcx

13-Nov-06 4:50

I'm not sure if this is possible....but I was wondering if it is it possible to set properties (like set different font styles/font sizes) to items within a listbox or combobox. Any help woud be greatly appreciated, thank you in advance!

Christian Graus13-Nov-06 12:15

Re: setting text properties

13-Nov-06 12:15

No, you need to create an owner drawn listbox to do this ( or look for one on the site )

dianadcx14-Nov-06 3:05

dianadcx

14-Nov-06 3:05

Thank you very much, I'll try that.

numeric

jds120713-Nov-06 4:13

jds1207

13-Nov-06 4:13

I need to know how to make sure a row is numeric when written to the database. Here is some sample code:

FormatCost = Format(CSng(row("dealernetpricedollars")), "c").ToString()

Thanks!

jds1207

Tim Carmichael13-Nov-06 5:22

Tim Carmichael

13-Nov-06 5:22

IsNumeric

jds120713-Nov-06 5:38

jds1207

13-Nov-06 5:38

Ok. What do I use if the row is not numeric?

Tim Carmichael13-Nov-06 5:43

Tim Carmichael

13-Nov-06 5:43

You asked how to know if the value is numeric... since the question was posed in a VB forum, the answer given is the function to test a value in VB.

How the application handles this is another question entirely and beyond the scope of the first question.