Beware scorpion53061(theft)

[Brian]

Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net Then try to find
Excel and click select.

Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class

FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off whatever you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) = dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables (0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

in message
Because no one will answer me.........scorpion emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other stuff on
there. When I do that I get errors all over the place.

-----Original Message-----
"IAmIronMan" <[email protected]>
schrieb
This person scorpion53061 wrote a code sample at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows what
you were referring to.
If you want to write a single person, ask him if you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



in message
You should have listened and done what I asked and you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending to give
something back to
those newer than me and this has completely blown up
in
my face. Post again
so I can make sure it is really you and I will give
you
the link.

This guy is spreading lies about me on all the ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



message
that where related to the article he had in question
of course... not the
actual person posting in this group...


"IAmIronMan"

wrote in message
This individual is stealing other peoples code and
claiming it as his own. The proof is when I asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.

FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off whatever you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) = dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables (0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

in message
Because no one will answer me.........scorpion emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other stuff on
there. When I do that I get errors all over the place.

-----Original Message-----
"IAmIronMan" <[email protected]>
schrieb
This person scorpion53061 wrote a code sample at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows what
you were referring to.
If you want to write a single person, ask him if you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



in message
You should have listened and done what I asked and you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending to give
something back to
those newer than me and this has completely blown up
in
my face. Post again
so I can make sure it is really you and I will give
you
the link.

This guy is spreading lies about me on all the ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



message
that where related to the article he had in question
of course... not the
actual person posting in this group...


"IAmIronMan"

wrote in message
This individual is stealing other peoples code and
claiming it as his own. The proof is when I asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.

.

 

[Herfried K. Wagner [MVP]]

Well Herfried... I go on holiday, and come back to find this... Never Mind

Frohe Weihnachten, Herfried

Thank you! Merry Christmas, Tom!

 

[MyTwoCents]

Your caller ID may say "IAmIronMan", but you seem more
like a Whinny bit*h to me, especially the way you treat
these folks on this forum. Grow up. You will get further
in life by being NICE!!!

-----Original Message-----
Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class

FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off whatever you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) = dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables (0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

in message
Because no one will answer me.........scorpion emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other stuff on
there. When I do that I get errors all over the place.

-----Original Message-----
"IAmIronMan" <[email protected]>
schrieb
This person scorpion53061 wrote a code sample at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows what
you were referring to.
If you want to write a single person, ask him if you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



in message
You should have listened and done what I asked and you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending to give
something back to
those newer than me and this has completely blown up
in
my face. Post again
so I can make sure it is really you and I will give
you
the link.

This guy is spreading lies about me on all the ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



message
that where related to the article he had in question
of course... not the
actual person posting in this group...


"IAmIronMan"

wrote in message
This individual is stealing other peoples code and
claiming it as his own. The proof is when I asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.

FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off whatever you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) = dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables (0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

in message
Because no one will answer me.........scorpion emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other stuff on
there. When I do that I get errors all over the place.

-----Original Message-----
"IAmIronMan" <[email protected]>
schrieb
This person scorpion53061 wrote a code sample at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows what
you were referring to.
If you want to write a single person, ask him if you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



in message
You should have listened and done what I asked and you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending to give
something back to
those newer than me and this has completely blown up
in
my face. Post again
so I can make sure it is really you and I will give
you
the link.

This guy is spreading lies about me on all the ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



message
that where related to the article he had in question
of course... not the
actual person posting in this group...


"IAmIronMan"

wrote in message
This individual is stealing other peoples code and
claiming it as his own. The proof is when I asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.

.

.

 

[IAmIronMan]

Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"

-----Original Message-----
Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net Then try to find
Excel and click select.

Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


"IAmIronMan" <[email protected]>

wrote
in message

FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off

whatever
you

do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) = dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables (0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName ("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

in message
Because no one will answer me.........scorpion emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other

stuff
on

there. When I do that I get errors all over the place.

-----Original Message-----
"IAmIronMan"

schrieb
This person scorpion53061 wrote a code sample at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows what
you were referring to.
If you want to write a single person, ask him if you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



in message
You should have listened and done what I asked

and
you

wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending

to
give

something back to
those newer than me and this has completely

blown
up

in
my face. Post again
so I can make sure it is really you and I will give
you
the link.

This guy is spreading lies about me on all the ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



message
that where related to the article he had in question
of course... not the
actual person posting in this group...


"IAmIronMan"

wrote in message
This individual is stealing other peoples

code
and

claiming it as his own. The proof is when I asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.




"IAmIronMan" <[email protected]>

wrote
in message

FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off

whatever
you

do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) = dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables (0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName ("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

in message
Because no one will answer me.........scorpion emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other

stuff
on

there. When I do that I get errors all over the place.

-----Original Message-----
"IAmIronMan"

schrieb
This person scorpion53061 wrote a code sample at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows what
you were referring to.
If you want to write a single person, ask him if you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



in message
You should have listened and done what I asked

and
you

wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending

to
give

something back to
those newer than me and this has completely

blown
up

in
my face. Post again
so I can make sure it is really you and I will give
you
the link.

This guy is spreading lies about me on all the ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



message
that where related to the article he had in question
of course... not the
actual person posting in this group...


"IAmIronMan"

wrote in message
This individual is stealing other peoples

code
and

claiming it as his own. The proof is when I asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.



.

.

 

[Rick Mogstad]

Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"

From the example page:


"This code assumes you have a populated dataset. If you don't know how to fill a dataset see the
ADO.NET newsgroup."

I would guess that this is what the dstest object is referring to.

 

[J Jones]

"dstest is not declared"

Go on - Take a WILD guess...

Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"

-----Original Message-----
Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net Then try to find
Excel and click select.

Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before
anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName ("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan" <[email protected]>
wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"

schrieb
This person scorpion53061 wrote a code sample at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan" <[email protected]>
wrote
in message
You should have listened and done what I asked and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending to
give
something back to
those newer than me and this has completely blown
up
in
my face. Post again
so I can make sure it is really you and I will give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
This individual is stealing other peoples code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.




in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName ("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan" <[email protected]>
wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"

schrieb
This person scorpion53061 wrote a code sample at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan" <[email protected]>
wrote
in message
You should have listened and done what I asked and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending to
give
something back to
those newer than me and this has completely blown
up
in
my face. Post again
so I can make sure it is really you and I will give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
This individual is stealing other peoples code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.



.

.

 

[IAmIronMan]

I bet you have never even dealt with the guy.....

I have and he is a sneak, thief and jerk for helping some
and not others....

same goes for the rest of you defending him. Get to know
him first like I have and you won't defend him anymore.

You will then say the same things I am saying about the
whiny little jerk that he is

 

[JiangZemin]

Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"

Thank you IAmIronMan for giving the gift of Laughter at this joyous tyme of
Year (some marketing dept came up with that phrase).

Keep up the good deeds scorpion53061... it will come back to you someday.

Everybody have a Great XMAS.NET!

 

[Brian]

You need to create a dataset and fill it.

Dim dstest as Dataset

Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"

-----Original Message-----
Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net Then try to find
Excel and click select.

Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before
anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName ("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan" <[email protected]>
wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"

schrieb
This person scorpion53061 wrote a code sample at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan" <[email protected]>
wrote
in message
You should have listened and done what I asked and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending to
give
something back to
those newer than me and this has completely blown
up
in
my face. Post again
so I can make sure it is really you and I will give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
This individual is stealing other peoples code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.




in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName ("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan" <[email protected]>
wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"

schrieb
This person scorpion53061 wrote a code sample at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan" <[email protected]>
wrote
in message
You should have listened and done what I asked and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending to
give
something back to
those newer than me and this has completely blown
up
in
my face. Post again
so I can make sure it is really you and I will give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
This individual is stealing other peoples code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.



.

.

 

[IAmIronMan]

Please post the code on how to fill it and delclare it.

YOu have been most helpful dont stop now.

-----Original Message-----

You need to create a dataset and fill it.

Dim dstest as Dataset

Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"

-----Original Message-----
Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net Then try to find
Excel and click select.


"IAmIronMan" <[email protected]>

wrote
in message

Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before
anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this

stuff
to

me......

The first error I get after pasting your code is:

I will go through these errors one at a time

until
they

are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName ("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"

schrieb
This person scorpion53061 wrote a code

sample
at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
You should have listened and done what I asked and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread

intending
to

give
something back to
those newer than me and this has completely blown
up
in
my face. Post again
so I can make sure it is really you and I

will
give

you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.




in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this

stuff
to

me......

The first error I get after pasting your code is:

I will go through these errors one at a time

until
they

are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code and
that is why it isn't working.

Just work with me on this. Don't tick me off whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName ("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just paste
the
code here what he wrote without all the other stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"

schrieb
This person scorpion53061 wrote a code

sample
at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
You should have listened and done what I asked and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread

intending
to

give
something back to
those newer than me and this has completely blown
up
in
my face. Post again
so I can make sure it is really you and I

will
give

you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.



.



.

.

 

[Carl Rapson]

No-one in these newsgroups OWES you anything. They are helping out of the
goodness of their hearts. Your negative attitude only ensures that you will
receive very little assistance (and a lot of ridicule).

Try ASKING for help instead of DEMANDING it, and being properly appreciative
of the help you do get, and see how things go.

Carl Rapson

 

[Tom Spink]

May I ask, what exactly are you trying to do.. Filling a dataset isn't like
filling a kettle... You've got to have something to fill it with, granted
there's water for a kettle, but there's lots of different types of things
you can fill it with, such as data from an Access DB or XML data or some
other thing. I would like to see the shop where I can buy an XML kettle
from.

Declaring is simple... just like declaring an integer, except you have to
instantiate the class with the 'New' operator

'---
Dim MyDataset As New DataSet
'---

What you fill it with is what you've got... What have you got to fill it
with?

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

==== Converting to 2002 ====
Remove inline declarations

Please post the code on how to fill it and delclare it.

YOu have been most helpful dont stop now.

-----Original Message-----

You need to create a dataset and fill it.

Dim dstest as Dataset

Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"


-----Original Message-----
Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net
Then try to find
Excel and click select.


in message
Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before
anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


"IAmIronMan" <[email protected]>
wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code sample
at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I will
give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the rticle he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.




"IAmIronMan" <[email protected]>
wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code sample
at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I will
give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.



.



.

.

 

[Tom Spink]

How rude.

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

==== Converting to 2002 ====
Remove inline declarations

 

[Brian]

Add another imports at the top:

Imports System.Data.OleDb



'-- Create your dataset
Dim dstest As New DataSet()


Private Sub OpenDatabase()
Dim path As String = "C:\Test\Biblio.mdb" '--Name of path where
database is located ex: "C:\Myfolder\data.mbd"
Dim nameOfTable As String = "Authors" '-- Name of your table

Dim strConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & path

Dim conn As New OleDbConnection(strConnect)
Dim dt As New OleDbDataAdapter("Select * FROM " & nameOfTable, conn)

dt.Fill(dstest, nameOfTable)

End Sub

Please post the code on how to fill it and delclare it.

YOu have been most helpful dont stop now.

-----Original Message-----

You need to create a dataset and fill it.

Dim dstest as Dataset

Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"


-----Original Message-----
Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net
Then try to find
Excel and click select.


in message
Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before
anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


"IAmIronMan" <[email protected]>
wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code sample
at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I will
give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.




"IAmIronMan" <[email protected]>
wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code sample
at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I will
give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.



.



.

.

 

[IAmIronMan]

Show me code I can copy and paste dont talk in
circles.......

You sould like that bastard scorpion.

or are you him?

-----Original Message-----
May I ask, what exactly are you trying to do.. Filling a dataset isn't like
filling a kettle... You've got to have something to fill it with, granted
there's water for a kettle, but there's lots of different types of things
you can fill it with, such as data from an Access DB or XML data or some
other thing. I would like to see the shop where I can buy an XML kettle
from.

Declaring is simple... just like declaring an integer, except you have to
instantiate the class with the 'New' operator

'---
Dim MyDataset As New DataSet
'---

What you fill it with is what you've got... What have you got to fill it
with?

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

==== Converting to 2002 ====
Remove inline declarations

Please post the code on how to fill it and delclare it.

YOu have been most helpful dont stop now.

-----Original Message-----

You need to create a dataset and fill it.

Dim dstest as Dataset


"IAmIronMan" <[email protected]>

wrote
in message

Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"


-----Original Message-----
Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net
Then try to find
Excel and click select.


in message
Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before
anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


"IAmIronMan"

wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
[email protected]...
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code sample

at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html

http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
[email protected]...
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I will
give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to

read
for

themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam] @adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.




"IAmIronMan"

wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
[email protected]...
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code sample

at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html

http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
[email protected]...
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I will
give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to

read
for

themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam] @adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.



.



.



.

.

 

[IAmIronMan]

Where can I find Biblio.mdb?

It is not on my machine.

-----Original Message-----

Add another imports at the top:

Imports System.Data.OleDb



'-- Create your dataset
Dim dstest As New DataSet()


Private Sub OpenDatabase()
Dim path As String = "C:\Test\Biblio.mdb" '-- Name of path where
database is located ex: "C:\Myfolder\data.mbd"
Dim nameOfTable As String = "Authors" '-- Name of your table

Dim strConnect As String

= "Provider=Microsoft.Jet.OLEDB.4.0;" _

& "Data Source=" & path

Dim conn As New OleDbConnection(strConnect)
Dim dt As New OleDbDataAdapter("Select * FROM " & nameOfTable, conn)

dt.Fill(dstest, nameOfTable)

End Sub

Please post the code on how to fill it and delclare it.

YOu have been most helpful dont stop now.

-----Original Message-----

You need to create a dataset and fill it.

Dim dstest as Dataset


"IAmIronMan" <[email protected]>

wrote
in message

Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"


-----Original Message-----
Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net
Then try to find
Excel and click select.


in message
Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before
anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


"IAmIronMan"

wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
[email protected]...
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code sample

at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html

http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
[email protected]...
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I will
give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to

read
for

themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam] @adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.




"IAmIronMan"

wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
[email protected]...
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code sample

at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html

http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
[email protected]...
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I will
give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to

read
for

themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam] @adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.



.



.



.

.

 

[Bob Lehmann]

I hope you're charging numbnutz about $150 an hour to do his homework for
him.

Bob Lehmann

Add another imports at the top:

Imports System.Data.OleDb



'-- Create your dataset
Dim dstest As New DataSet()


Private Sub OpenDatabase()
Dim path As String = "C:\Test\Biblio.mdb" '--Name of path where
database is located ex: "C:\Myfolder\data.mbd"
Dim nameOfTable As String = "Authors" '-- Name of your table

Dim strConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & path

Dim conn As New OleDbConnection(strConnect)
Dim dt As New OleDbDataAdapter("Select * FROM " & nameOfTable, conn)

dt.Fill(dstest, nameOfTable)

End Sub

Please post the code on how to fill it and delclare it.

YOu have been most helpful dont stop now.

-----Original Message-----

You need to create a dataset and fill it.

Dim dstest as Dataset


Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"


-----Original Message-----
Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net
Then try to find
Excel and click select.


in message
Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before
anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


"IAmIronMan" <[email protected]>
wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code sample

at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html

http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I will
give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the article h had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.




"IAmIronMan" <[email protected]>
wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows, columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"

wrote
in message
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code sample

at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody knows
what
you were referring to.
If you want to write a single person, ask him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html

http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"

wrote
in message
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I will
give
you
the link.

This guy is spreading lies about me on all the
ng's I
think.

I can only hope people take the time to read for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam]@adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:

http://www.kjmsolutions.com/datasetarray.htm






.



.



.



.



.

 

[Brian]

Just find any old database on your system and try it. Search for *.mdb

Where can I find Biblio.mdb?

It is not on my machine.

-----Original Message-----

Add another imports at the top:

Imports System.Data.OleDb



'-- Create your dataset
Dim dstest As New DataSet()


Private Sub OpenDatabase()
Dim path As String = "C:\Test\Biblio.mdb" '-- Name of path where
database is located ex: "C:\Myfolder\data.mbd"
Dim nameOfTable As String = "Authors" '-- Name of your table

Dim strConnect As String

= "Provider=Microsoft.Jet.OLEDB.4.0;" _

& "Data Source=" & path

Dim conn As New OleDbConnection(strConnect)
Dim dt As New OleDbDataAdapter("Select * FROM " & nameOfTable, conn)

dt.Fill(dstest, nameOfTable)

End Sub

Please post the code on how to fill it and delclare it.

YOu have been most helpful dont stop now.


-----Original Message-----

You need to create a dataset and fill it.

Dim dstest as Dataset


in message
Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"


-----Original Message-----
Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net
Then try to find
Excel and click select.


"IAmIronMan" <[email protected]>
wrote
in message
Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before
anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


"IAmIronMan"

wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this
stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time
until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows,
columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As
System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can
use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"
<[email protected]>
wrote
in message
[email protected]...
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over
the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code
sample
at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody
knows
what
you were referring to.
If you want to write a single person, ask
him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html

http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"
<[email protected]>
wrote
in message
[email protected]...
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread
intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I
will
give
you
the link.

This guy is spreading lies about me on all
the
ng's I
think.

I can only hope people take the time to read
for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam] @adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is
when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:


http://www.kjmsolutions.com/datasetarray.htm






.



.




"IAmIronMan"

wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this
stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time
until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows,
columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As
System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can
use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"
<[email protected]>
wrote
in message
[email protected]...
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over
the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code
sample
at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody
knows
what
you were referring to.
If you want to write a single person, ask
him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html

http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"
<[email protected]>
wrote
in message
[email protected]...
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread
intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I
will
give
you
the link.

This guy is spreading lies about me on all
the
ng's I
think.

I can only hope people take the time to read
for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam] @adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is
when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:


http://www.kjmsolutions.com/datasetarray.htm






.



.



.



.



.

.

 

[Brian]

Get it here:

http://msdn.microsoft.com/vbasic/previous/vb5/downloads/default.aspx

Where can I find Biblio.mdb?

It is not on my machine.

-----Original Message-----

Add another imports at the top:

Imports System.Data.OleDb



'-- Create your dataset
Dim dstest As New DataSet()


Private Sub OpenDatabase()
Dim path As String = "C:\Test\Biblio.mdb" '-- Name of path where
database is located ex: "C:\Myfolder\data.mbd"
Dim nameOfTable As String = "Authors" '-- Name of your table

Dim strConnect As String

= "Provider=Microsoft.Jet.OLEDB.4.0;" _

& "Data Source=" & path

Dim conn As New OleDbConnection(strConnect)
Dim dt As New OleDbDataAdapter("Select * FROM " & nameOfTable, conn)

dt.Fill(dstest, nameOfTable)

End Sub

Please post the code on how to fill it and delclare it.

YOu have been most helpful dont stop now.


-----Original Message-----

You need to create a dataset and fill it.

Dim dstest as Dataset


in message
Okay got that........and no red lines

You are doing great and you seem impressive with your
knowledge.

the next error is

"dstest is not declared"


-----Original Message-----
Add a reference to Excel:

Toolbar---->Projects------>Add Reference----->.Net
Then try to find
Excel and click select.


"IAmIronMan" <[email protected]>
wrote
in message
Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.

-----Original Message-----
Put the imports at the top of the code page before
anything else.

Imports Office = Microsoft.Office.Core
Imports Excel1 = Microsoft.Office.Interop.Excel

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


"IAmIronMan"

wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this
stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time
until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows,
columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As
System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can
use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"
<[email protected]>
wrote
in message
[email protected]...
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over
the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code
sample
at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody
knows
what
you were referring to.
If you want to write a single person, ask
him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html

http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"
<[email protected]>
wrote
in message
[email protected]...
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread
intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I
will
give
you
the link.

This guy is spreading lies about me on all
the
ng's I
think.

I can only hope people take the time to read
for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam] @adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is
when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:


http://www.kjmsolutions.com/datasetarray.htm






.



.




"IAmIronMan"

wrote
in message
FINALLY!!!!!!! WAS THAT SO HARD!!

Alright brian you done good now explain this
stuff
to
me......

The first error I get after pasting your code is:

I will go through these errors one at a time
until
they
are all resolved and their are a lot of them:

'Imports' statment must precede any declarations.

I am sure scorpion53061 made an error in the code
and
that is why it isn't working.

Just work with me on this. Don't tick me off
whatever
you
do






-----Original Message-----
Try this:

'--Add a reference then
'-- Put this at the top
Imports Office = Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel

Private Sub CreateSpreadSheetFromDataSet()
Dim Excel As New Excel.Application
Dim oBook As Excel.Workbook
Dim WSheet As New Excel.Worksheet

WSheet = Excel.Workbooks.Add.Worksheets.Add
Excel.Visible = True

Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim c As Integer

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables
(0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
dstest.Tables
(0).Rows(r).Item(c)
Next
Next

WSheet.Range("A2").Resize(rows,
columns).Value =
DataArray

Dim columns2 as Integer
Dim columns3 as Integer = 1

For columns2 = 0 To dstest.Tables
(0).Columns.Count - 1

WSheet.Cells(1, columns3).Value =
dstest.Tables(0).Columns(columns2).ColumnName
columns3 = columns3 + 1

Next

End Sub

Private Function closeExcel() As Short
Dim count As Short = 0
Dim excelInstance As
System.Diagnostics.Process
Dim excelInstances() As Process =
System.Diagnostics.Process.GetProcessesByName
("Excel")

For Each excelInstance In excelInstances
Try
excelInstance.Close() '<-- you can
use
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan"
<[email protected]>
wrote
in message
[email protected]...
Because no one will answer me.........scorpion
emailed
everyone telling them not to help me.

He (acting like a she) isn't responding to my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with this. Just
paste
the
code here what he wrote without all the other
stuff
on
there. When I do that I get errors all over
the
place.

-----Original Message-----
"IAmIronMan"
<[email protected]>
schrieb
This person scorpion53061 wrote a code
sample
at

http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]


Why not answer in the other thread? Nobody
knows
what
you were referring to.
If you want to write a single person, ask
him if
you
can
write him an email.


--
Armin

http://www.plig.net/nnq/nquote.html

http://www.netmeister.org/news/learn2quote.html

.



"IAmIronMan"
<[email protected]>
wrote
in message
[email protected]...
You should have listened and done what I asked
and
you
wouldn't be having this problem.

I wasn't asking too much.


-----Original Message-----
I posted something in another thread
intending
to
give
something back to
those newer than me and this has completely
blown
up
in
my face. Post again
so I can make sure it is really you and I
will
give
you
the link.

This guy is spreading lies about me on all
the
ng's I
think.

I can only hope people take the time to read
for
themselves and not just
take his word for it.....



"Brian Henry" <brianiup[nospam] @adelphia.net>
wrote in
message
that where related to the article he had in
question
of course... not the
actual person posting in this group...


"IAmIronMan"
<[email protected]>
wrote in message
[email protected]...
This individual is stealing other peoples
code
and
claiming it as his own. The proof is
when I
asked
him to
explain his code he would not.

For proof view these threads in
dotnet.languages.vb

Giving Back(Thank You)
scorpion53061
Straighten This Out....


This is the forged code he won't explain:


http://www.kjmsolutions.com/datasetarray.htm






.



.



.



.



.

.

 

[Bob Lehmann]

Please don't multi-post, you stupid little turd. Cross-post if must, so your
intelligence can be derided with a single click.

PS - Don't be surprised when your ISP cancels your account for posting
libelous remark to the newsgroups.

Bob Lehmann