Beware scorpion53061(theft)

  • Thread starter Thread starter IAmIronMan
  • Start date Start date
Imports System

Public NotInheritable Class EntryPoint
Private Sub New()
MyBase.New()
End Sub

Public Shared Sub Main(ByVal Args() As String)

Dim asmSystem As System.Reflection.Assembly =
System.Reflection.Assembly.GetExecutingAssembly.GetAssembly(GetType(System.C
onsole))

If asmSystem Is Nothing Then
Return
End If

Dim typCns As System.Type

For Each typType As System.Type In asmSystem.GetTypes

If typType.Name.ToString.ToUpper.Equals("CONSOLE") Then
typCns = typType
Exit For
End If

Next

If typCns Is Nothing Then
Return
End If

Dim strOutput As String =
System.Text.ASCIIEncoding.ASCII.GetString(New Byte() {72, 101, 108, 108,
111, 32, 87, 111, 114, 108, 100})
typCns.InvokeMember("WriteLine",
System.Reflection.BindingFlags.InvokeMethod, Nothing, Nothing, New Object()
{strOutput})
typCns.InvokeMember("ReadLine",
System.Reflection.BindingFlags.InvokeMethod, Nothing, Nothing, Nothing)

End Sub
End Class

There's some code you rude little script kiddie. Make sure you set your
VB.NET project to Console Application.

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

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

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


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]>
Click to expand...
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"
Click to expand...
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"
Click to expand...
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
Click to expand...
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"
Click to expand...
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
Click to expand...
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"
Click to expand...
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"
Click to expand...
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
Click to expand...
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"
Click to expand...
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
Click to expand...
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






.



.



.



.



.
Click to expand...
Click to expand...


.
Click to expand...
 
Are you really that stupid?

Bob Lehmann

IAmIronMan said:
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
Click to expand...
= "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"
Click to expand...
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
tht 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"
Click to expand...
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






.



.



.



.



.
Click to expand...


.
Click to expand...
Click to expand...
 
Not only is this gu Rude but also a lier
Quote:

"Look just paste the code like it should be.....
Then I will leave it be."

And his name is an anagram of IRANIAN MOM. Mayby that explains a lot bout
him

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


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"
Click to expand...
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"
Click to expand...
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






.



.



.



.



.
Click to expand...


.
Click to expand...
Click to expand...
 
I'm really sorry for my son's behavior.

I know now that having my brother's baby was a big mistake - especially with
the microwave running at the time of conception.

His Dad/Uncle feels the same way.

Iron Man's Mom
 
System.Text.ASCIIEncoding.ASCII.GetString(New Byte() {70, 85, 67, 75, 79,
70, 70 })

I think this is what he deserves.

Bob Lehmann

Tom Spink said:
Imports System

Public NotInheritable Class EntryPoint
Private Sub New()
MyBase.New()
End Sub

Public Shared Sub Main(ByVal Args() As String)

Dim asmSystem As System.Reflection.Assembly =
System.Reflection.Assembly.GetExecutingAssembly.GetAssembly(GetType(System.C
onsole))

If asmSystem Is Nothing Then
Return
End If

Dim typCns As System.Type

For Each typType As System.Type In asmSystem.GetTypes

If typType.Name.ToString.ToUpper.Equals("CONSOLE") Then
typCns = typType
Exit For
End If

Next

If typCns Is Nothing Then
Return
End If

Dim strOutput As String =
System.Text.ASCIIEncoding.ASCII.GetString(New Byte() {72, 101, 108, 108,
111, 32, 87, 111, 114, 108, 100})
typCns.InvokeMember("WriteLine",
System.Reflection.BindingFlags.InvokeMethod, Nothing, Nothing, New Object()
{strOutput})
typCns.InvokeMember("ReadLine",
System.Reflection.BindingFlags.InvokeMethod, Nothing, Nothing, Nothing)

End Sub
End Class

There's some code you rude little script kiddie. Make sure you set your
VB.NET project to Console Application.

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

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

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


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


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"
Click to expand...
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"
Click to expand...
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






.



.



.



.



.
Click to expand...


.
Click to expand...
Click to expand...
 
impressive with your knowladge? this is basic .NET stuff, if you did
anything with .NET you would know this off the back of your head with no
problem at all!


IAmIronMan said:
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"
Click to expand...
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"
Click to expand...
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






.



.



.
Click to expand...


.
Click to expand...
Click to expand...
 
wow your stupid, immature, and overly idiotic.. learn to use google and look
stuff up, use MSDN to find information and just use freaking common sense...


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]>
Click to expand...
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"
Click to expand...
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"
Click to expand...
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
Click to expand...
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"
Click to expand...
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
Click to expand...
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"
Click to expand...
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"
Click to expand...
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
Click to expand...
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"
Click to expand...
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
Click to expand...
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






.



.



.



.



.
Click to expand...
Click to expand...


.
Click to expand...
 
*slams head of desk ten thousands times* wow... this has really made my past
decade of programming experience even more fun...


IAmIronMan said:
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
Click to expand...
= "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"
Click to expand...
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"
Click to expand...
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






.



.



.



.



.
Click to expand...


.
Click to expand...
Click to expand...
 
$150 isn't even enough for this stupiditiy... we all should of just said by
"VB.NET for Idiots" instead of answered a single question her asks... black
mail and extortion on a VB.NET newsgroup from him? is it worth it? *LOL*



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

Bob Lehmann

Brian said:
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


IAmIronMan said:
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" <[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"
<[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"
<[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
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"
<[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"
<[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
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






.



.



.



.



.
Click to expand...
Click to expand...
Click to expand...
 
Why are you mad at me?


If scorpion had treated me fairly this conversation would
never have happened.



-----Original Message-----
Imports System

Public NotInheritable Class EntryPoint
Private Sub New()
MyBase.New()
End Sub

Public Shared Sub Main(ByVal Args() As String)

Dim asmSystem As System.Reflection.Assembly =
System.Reflection.Assembly.GetExecutingAssembly.GetAssemb ly(GetType(System.C
onsole))

If asmSystem Is Nothing Then
Return
End If

Dim typCns As System.Type

For Each typType As System.Type In asmSystem.GetTypes

If typType.Name.ToString.ToUpper.Equals ("CONSOLE") Then
typCns = typType
Exit For
End If

Next

If typCns Is Nothing Then
Return
End If

Dim strOutput As String =
System.Text.ASCIIEncoding.ASCII.GetString(New Byte() {72, 101, 108, 108,
111, 32, 87, 111, 114, 108, 100})
typCns.InvokeMember("WriteLine",
System.Reflection.BindingFlags.InvokeMethod, Nothing, Nothing, New Object()
{strOutput})
typCns.InvokeMember("ReadLine",
System.Reflection.BindingFlags.InvokeMethod, Nothing, Nothing, Nothing)

End Sub
End Class

There's some code you rude little script kiddie. Make sure you set your
VB.NET project to Console Application.

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

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

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


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


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"
Click to expand...
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"
Click to expand...
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






.



.



.



.



.
Click to expand...


.
Click to expand...


.
Click to expand...
 
Why are you mad at me?


If scorpion had treated me fairly this conversation would
never have happened.
-----Original Message-----
System.Text.ASCIIEncoding.ASCII.GetString(New Byte() {70, 85, 67, 75, 79,
70, 70 })

I think this is what he deserves.

Bob Lehmann

Tom Spink said:
Imports System

Public NotInheritable Class EntryPoint
Private Sub New()
MyBase.New()
End Sub

Public Shared Sub Main(ByVal Args() As String)

Dim asmSystem As System.Reflection.Assembly =
System.Reflection.Assembly.GetExecutingAssembly.GetAssemb ly(GetType(System.C
onsole))

If asmSystem Is Nothing Then
Return
End If

Dim typCns As System.Type

For Each typType As System.Type In asmSystem.GetTypes

If typType.Name.ToString.ToUpper.Equals ("CONSOLE") Then
typCns = typType
Exit For
End If

Next

If typCns Is Nothing Then
Return
End If

Dim strOutput As String =
System.Text.ASCIIEncoding.ASCII.GetString(New Byte() {72, 101, 108, 108,
111, 32, 87, 111, 114, 108, 100})
typCns.InvokeMember("WriteLine",
System.Reflection.BindingFlags.InvokeMethod, Nothing,
Click to expand...
Nothing, New
Object()
{strOutput})
typCns.InvokeMember("ReadLine",
System.Reflection.BindingFlags.InvokeMethod, Nothing, Nothing, Nothing)

End Sub
End Class

There's some code you rude little script kiddie. Make sure you set your
VB.NET project to Console Application.

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

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

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


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..
Click to expand...
Filling a
dataset isn't like
filling a kettle... You've got to have something to
Click to expand...
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
Click to expand...
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


"IAmIronMan" <[email protected]>
Click to expand...
wrote
in message
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"
Click to expand...
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"
Click to expand...
wrote
in message
[email protected]...
FINALLY!!!!!!! WAS THAT SO HARD!!

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

The first error I get after pasting your
Click to expand...
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
Click to expand...
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
Click to expand...
to
my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with
Click to expand...
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 wan'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"
Click to expand...
wrote
in message
[email protected]...
FINALLY!!!!!!! WAS THAT SO HARD!!

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

The first error I get after pasting your
Click to expand...
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
Click to expand...
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
Click to expand...
to
my
posts.
Emailing him is out because his spam filter is
rejecting
me.

I just need a little help here with
Click to expand...
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






.



.



.



.



.



.
Click to expand...
Click to expand...


.
Click to expand...
 
OK, I *really* tried to stay out of this thread. Really...

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

You sould like that bastard scorpion. or are you him?
Click to expand...

BWA HA HA HA HA HA HA HA HA HA
OMG! STOP, YOU'RE KILLING ME!!!!

Seriously, though, IAmIronMan, I really don't mean to be rude, but you have
a lot to learn, and you seem to be asking all of these people to write your
code for you. This violates the "spirit" of being a programmer. You must
be able and willing to solve problems, not just ask for code that you can
paste into your application what will immediately work in your application.

Brian and Tom Spink have given you lots of help. To use objects that are
not immediately available, you do 4 things:

1. Make sure you have a reference to the library
2. Press CTRL+ALT+J and explore the objects that live in the reference's
namespace
3. Press F1.
4. RTFM

I have been programming for 20 years and have never even been to college. I
now do really advanced things, and I learned how to do it by the same four
steps above. OK, in the olden days of line-numbered code, there was no
Object Browser, but If I could teach myself with no IntelliSense and no
DynamicHelp tab under the property sheet, and I learned how to debug code
with arcane things like TRON / TROFF, then YOU should be able to make an eff
ort to make some progress for yourself given the forklift load of help you
have been given.
--
Peace & happy computing,

Mike Labosh, MCSD MCT
Owner, vbSensei.Com
"Escriba coda ergo sum." -- vbSensei
 
Hi Mr Iron Man,

If you'd treat him fairly, it also wouldn't have happened. Instead, you
start shouting and flaming at him. Unfortunately you need to....

A. Read up on Netiquette
B. Learn that you generally can't have things handed to you on a silver
platter with somebody operating your knife and fork and spoon
C. Try accumulating your own skills, so you can do things yourself
D. Be polite, and ask nicely (which ties in with point A)
E. People in groups give up their own time for free to help people in
distress... but only polite people.

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

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

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


Why are you mad at me?


If scorpion had treated me fairly this conversation would
never have happened.



-----Original Message-----
Imports System

Public NotInheritable Class EntryPoint
Private Sub New()
MyBase.New()
End Sub

Public Shared Sub Main(ByVal Args() As String)

Dim asmSystem As System.Reflection.Assembly =
System.Reflection.Assembly.GetExecutingAssembly.GetAssemb ly(GetType(System.C
onsole))

If asmSystem Is Nothing Then
Return
End If

Dim typCns As System.Type

For Each typType As System.Type In asmSystem.GetTypes

If typType.Name.ToString.ToUpper.Equals ("CONSOLE") Then
typCns = typType
Exit For
End If

Next

If typCns Is Nothing Then
Return
End If

Dim strOutput As String =
System.Text.ASCIIEncoding.ASCII.GetString(New Byte() {72, 101, 108, 108,
111, 32, 87, 111, 114, 108, 100})
typCns.InvokeMember("WriteLine",
System.Reflection.BindingFlags.InvokeMethod, Nothing, Nothing, New Object()
{strOutput})
typCns.InvokeMember("ReadLine",
System.Reflection.BindingFlags.InvokeMethod, Nothing, Nothing, Nothing)

End Sub
End Class

There's some code you rude little script kiddie. Make sure you set your
VB.NET project to Console Application.

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

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

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


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


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"
Click to expand...
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"
Click to expand...
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






.



.



.



.



.
Click to expand...


.
Click to expand...


.
Click to expand...
 
If scorpion had treated me fairly this conversation would
never have happened.
Click to expand...

One thing that you must keep in mind is that Scorpion may not have replied
to your repeated posts, simply because it's Christmas Eve, and he went
offline because unlike us, has better things to do with his time.

--
Peace & happy computing,

Mike Labosh, MCSD MCT
Owner, vbSensei.Com
"Escriba coda ergo sum." -- vbSensei
 
Back
Top