Beware scorpion53061(theft)

  • Thread starter Thread starter IAmIronMan
  • Start date Start date
Hi,

I've tried to keep out of this, but I feel I just need to put my 2 cents in.
I've gotten a good laugh out of these posts; even my wife--who knows nothing
about programming--has chuckled a bit.

I've looked at the code that originally started this mess. Now, I'm a
beginner at VB.NET, so I don't have the first clue what Scorp was trying to
accomplish in that code or why. As yet I've had no need to access an Excel
spreadsheet. But, just by taking 10 seconds to glance at Scorp's work, I
can tell that if I needed to do what he's doing there, he gives some pretty
simple step-by-step instructions/explanations on how to do it. Once I get
to the advanced point where he is, I'm sure I'll fully understand the code
he posted. As it is, I have a brief idea of what's happening in the first
few lines, especially with all the helpful notes. If I really wanted to
copy the code simply, I'd do a Ctrl+A and Ctrl+C on the code's page, then a
Ctrl+V in VB, then just Shift+Delete or comment out the extra lines of
notes. I surely wouldn't beg the helpful folks on the newsgroup to do it
for me.

Look, Mr. Iron Kid, it sounds like you don't know much about VB.NET yet.
Why in the world, then, do you need code for such an "advanced" procedure?
Start with the basics. Learn how to declare variables, import namespaces,
do a few loop structures, and compile simple/advanced "Hello World"
applications. Then you can start some simple database applications that
work really simply with Access. Store the phrase "Hello World" in six ten
different languages on a database table and access them through VB. Then
move to working with Access.

Forget about Scorpion's code for now. Buy a couple programming books and
search the net for information, like every beginning programmer. And feel
free to post a couple [polite] questions on the NG now and then along the
way.

If it weren't for the laugh's you've provided us, not only Scorpion but
everyone else in this NG would have reason to hate you.

Nathan
 
Do you want us to come over to your house and write the code for you?
Click to expand...


Bingo!

I think you hit the nail on the head with that one.

I, too, have been lurking, and learning in the ng for quite a while now.
I found that, even though the exact answer I thought I should have
received, was not given, there was enough information to direct me in my
search to find it myself.
For me, this equates to actually learning to code, rather than just copy and
paste.

Thanks to those that have helped,

And to iamironman... open your eyes with brain engaged

Gary
 
How old are you, 13, 14 maybe? Because you don't
communicate with much intelligence, and when you call
someone like SCORP a FAG like you did in your earlier
post, leads me to believe you are only a child. These
newsgroups are for the big boys, and not High Schoolers.

If you want to play with the big boys start giving them
respect they deserve, and stop being snot nose punk.

Remember: "Do unto others as you'd have them to unto you"


-----Original Message-----
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" <rianiup[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...
 
You don't even know the man. I do.

1. He failed to post the code in a manner that was
readable.

2. He failed to follow my repeated requests. He chose to
help other people instead.

3. He turned the whole newgroup against me....

4. He needs to grow up and learn how to write.
-----Original Message-----

How old are you, 13, 14 maybe? Because you don't
communicate with much intelligence, and when you call
someone like SCORP a FAG like you did in your earlier
post, leads me to believe you are only a child. These
newsgroups are for the big boys, and not High Schoolers.

If you want to play with the big boys start giving them
respect they deserve, and stop being snot nose punk.

Remember: "Do unto others as you'd have them to unto you"
-----Original Message-----
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" '--
Click to expand...
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


"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
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






.



.




"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
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...
 
This is not Burger King.

You DON'T "get it your way"

If you want it "your way", you hire someone and pay them.

In short, you really "don't get it".

--

IAmIronMan said:
You don't even know the man. I do.

1. He failed to post the code in a manner that was
readable.

2. He failed to follow my repeated requests. He chose to
help other people instead.

3. He turned the whole newgroup against me....

4. He needs to grow up and learn how to write.
-----Original Message-----

How old are you, 13, 14 maybe? Because you don't
communicate with much intelligence, and when you call
someone like SCORP a FAG like you did in your earlier
post, leads me to believe you are only a child. These
newsgroups are for the big boys, and not High Schoolers.

If you want to play with the big boys start giving them
respect they deserve, and stop being snot nose punk.

Remember: "Do unto others as you'd have them to unto you"
-----Original Message-----
Where can I find Biblio.mdb?

It is not on my machine.


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

Add another imports at the top:

Imports System.Data.OleDb



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


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

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

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

dt.Fill(dstest, nameOfTable)

End Sub


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


"IAmIronMan" <[email protected]>
wrote
in message
Okay got that........and no red lines

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

the next error is

"dstest is not declared"


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

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


"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"
<[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
[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"
<[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
[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...
 
(e-mail address removed)


Ha ha

You didnt even read teh sample otherwise you would have
agreed with me.....

Are you his girlfriend?

If so, you need me......
-----Original Message-----
This is not Burger King.

You DON'T "get it your way"

If you want it "your way", you hire someone and pay them.

In short, you really "don't get it".

--

You don't even know the man. I do.

1. He failed to post the code in a manner that was
readable.

2. He failed to follow my repeated requests. He chose to
help other people instead.

3. He turned the whole newgroup against me....

4. He needs to grow up and learn how to write.
-----Original Message-----

How old are you, 13, 14 maybe? Because you don't
communicate with much intelligence, and when you call
someone like SCORP a FAG like you did in your earlier
post, leads me to believe you are only a child. These
newsgroups are for the big boys, and not High Schoolers.

If you want to play with the big boys start giving them
respect they deserve, and stop being snot nose punk.

Remember: "Do unto others as you'd have them to unto you"



-----Original Message-----
Where can I find Biblio.mdb?

It is not on my machine.


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

Add another imports at the top:

Imports System.Data.OleDb



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


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

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

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

dt.Fill(dstest, nameOfTable)

End Sub


in message
Please post the code on how to fill it and
Click to expand...
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"
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.


"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"
<[email protected]>
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 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() '<--
Click to expand...
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
Click to expand...
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
Click to expand...
and
I
will
give
you
the link.

his guy is spreading lies about me
Click to expand...
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
[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 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() '<--
Click to expand...
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
Click to expand...
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
Click to expand...
and
I
will
give
you
the link.

This guy is spreading lies about me
Click to expand...
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...
 
You need to get back on your "meds"

--
Cheryl Fischer
Law/Sys Associates
Houston, TX

IAmIronMan said:
(e-mail address removed)


Ha ha

You didnt even read teh sample otherwise you would have
agreed with me.....

Are you his girlfriend?

If so, you need me......
-----Original Message-----
This is not Burger King.

You DON'T "get it your way"

If you want it "your way", you hire someone and pay them.

In short, you really "don't get it".

--

You don't even know the man. I do.

1. He failed to post the code in a manner that was
readable.

2. He failed to follow my repeated requests. He chose to
help other people instead.

3. He turned the whole newgroup against me....

4. He needs to grow up and learn how to write.

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

How old are you, 13, 14 maybe? Because you don't
communicate with much intelligence, and when you call
someone like SCORP a FAG like you did in your earlier
post, leads me to believe you are only a child. These
newsgroups are for the big boys, and not High
Schoolers.

If you want to play with the big boys start giving them
respect they deserve, and stop being snot nose punk.

Remember: "Do unto others as you'd have them to unto
you"



-----Original Message-----
Where can I find Biblio.mdb?

It is not on my machine.


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

Add another imports at the top:

Imports System.Data.OleDb



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


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

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

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

dt.Fill(dstest, nameOfTable)

End Sub


"IAmIronMan" <[email protected]>
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


"IAmIronMan"
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.


"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
[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
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
giv
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
[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
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...
 
What do you look like?

If you have pics I will be nice to you.
-----Original Message-----
You need to get back on your "meds"

--
Cheryl Fischer
Law/Sys Associates
Houston, TX

(e-mail address removed)


Ha ha

You didnt even read teh sample otherwise you would have
agreed with me.....

Are you his girlfriend?

If so, you need me......
-----Original Message-----
This is not Burger King.

You DON'T "get it your way"

If you want it "your way", you hire someone and pay them.

In short, you really "don't get it".
Click to expand...
wrote
in message
You don't even know the man. I do.

1. He failed to post the code in a manner that was
readable.

2. He failed to follow my repeated requests. He
Click to expand...
chose
to
help other people instead.

3. He turned the whole newgroup against me....

4. He needs to grow up and learn how to write.

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

How old are you, 13, 14 maybe? Because you don't
communicate with much intelligence, and when you call
someone like SCORP a FAG like you did in your earlier
post, leads me to believe you are only a child. These
newsgroups are for the big boys, and not High
Schoolers.

If you want to play with the big boys start giving them
respect they deserve, and stop being snot nose punk.

Remember: "Do unto others as you'd have them to unto
you"



-----Original Message-----
Where can I find Biblio.mdb?

It is not on my machine.


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

Add another imports at the top:

Imports System.Data.OleDb



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


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

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

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

dt.Fill(dstest, nameOfTable)

End Sub


"IAmIronMan"
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


"IAmIronMan"
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.


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

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

The first error I get after pasting your
code
is:

I will go through these errors one at
Click to expand...
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
Click to expand...
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
Click to expand...
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
Click to expand...
(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
Click to expand...
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
Click to expand...
me
on
all
the
ng's I
think.

I can only hope people take the
Click to expand...
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
Click to expand...
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
[email protected]...
FINALLY!!!!!!! WAS THAT SO HARD!!

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

The first error I get after pasting your
code
is:

I will go through these errors one at
Click to expand...
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
Click to expand...
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
Click to expand...
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
Click to expand...
(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
Click to expand...
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
Click to expand...
you
and
I
will
give
you
the link.

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

I can only hope people take the
Click to expand...
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
Click to expand...
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...
 
Armin Zingler said:
Thanks for sending the same quoted text 1001 times.


Option Brain On
Click to expand...


I have a feeling that he is going to get an error on that first line.....
 
Back
Top