Beware scorpion53061(theft)

  • Thread starter Thread starter IAmIronMan
  • Start date Start date
I

IAmIronMan

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
 
is it just me or is this guy trying to create a conspiray theory about
himself? *LOL* who the heck is scorpion53061? i looked thorgh all the posts
and could not find anyone named that or even close..
 
that where related to the article he had in question of course... not the
actual person posting in this group...
 
grow up... learn to read and write code also... anyone who needs to copy and
paste "complete" code shouldn't be programming to start with...
 
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.....
 
Count on it, scorp.
We programmer-types never take other people's word for
anything. ;)
I appreciated your giving back to the community. I only
wish I had something helpful to offer!

Have a great holiday
 
You should have listened and done what I asked and you
wouldn't be having this problem.

I wasn't asking too much.
 
* "IAmIronMan said:
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.
Click to expand...

It's hard to be alone at christmas, isn't it?
 
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 said:
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-----
This person scorpion53061 wrote a code sample at
http://www.kjmsolutions.com/datasetarray.htm

in which he did not explain it well.
[.....]
Click to expand...


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

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

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-----
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
Click to expand...
can
write him an email.
--
Armin

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

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


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

I wasn't asking too much.

in
my face. Post again you
the link.
Click to expand...


.
Click to expand...
 
scorpion didnt make an error in his code, you made an error based on where
you placed the code... there can not be ANYTHING before an import
statement... it must be at the absolute top of the code (except for option
strict and explicite which can be placed before it thoes are the ONLY
exceptions)


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

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

.
Click to expand...


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

I wasn't asking too much.


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

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

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



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


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

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

.
Click to expand...


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

I wasn't asking too much.


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

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

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



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


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



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

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

.
Click to expand...


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

I wasn't asking too much.


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

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

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



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


"IAmIronMan" <[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...
 
'Imports' statment must precede any declarations.


Seems pretty clear to me. If you don't understand this, then you need to
back up quite a bit and buy a good book on Beginning VB.NET. We are all
here to help, but you've got to take some initiative yourself.

Do you want us to come over to your house and write the code for you?
 
When the code gernerates the :

''Imports' statment must precede any declarations.'

it means you havent got any chance of getting it to work. your @brain@
can't cope so you must 'Give up'

sorry that you are getting ticked off.

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

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

.
Click to expand...


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

I wasn't asking too much.


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

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

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



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


"IAmIronMan" <[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...
 
Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.

Don't mind the other people in this thread.

It isn't my fault the code is not complete.
-----Original Message-----
Put the imports at the top of the code page before anything else.

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

Public Class Form1
Inherits System.Windows.Forms.Form

'--Your code here

End class


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

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

The first error I get after pasting your code is:

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

'Imports' statment must precede any declarations.

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

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





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

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

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

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

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

Dim DataArray(rows, columns) As Object

For c = 0 To columns - 1
DataArray(r, c) = dstest.Tables (0).Columns.Item(c).ColumnName
For r = 0 To rows - 1
DataArray(r, c) =
Click to expand...
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
Click to expand...
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan" <[email protected]>
Click to expand...
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
Click to expand...
you
can
write him an email.


--
Armin

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

.



"IAmIronMan" <[email protected]>
Click to expand...
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
Click to expand...
up
in
my face. Post again
so I can make sure it is really you and I will give you
the link.

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

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



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


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



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) =
Click to expand...
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
Click to expand...
close
or kill .. up to you
excelInstance.Kill()
count += 1
Catch ex As Exception
End Try
Next

Return count

End Function

"IAmIronMan" <[email protected]>
Click to expand...
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
Click to expand...
you
can
write him an email.


--
Armin

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

.



"IAmIronMan" <[email protected]>
Click to expand...
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
Click to expand...
up
in
my face. Post again
so I can make sure it is really you and I will give you
the link.

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

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



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


"IAmIronMan"
Click to expand...
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...
 
IAmIronMan said:
Okay you are doing good.......

I did that and got the error that

"Excel has not been defined".

How to resolve that.
Click to expand...

Add a reference to Excel.

Don't mind the other people in this thread.

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

But it is your fault you cant understand it.....
 
I read those.

But, from what I've read in your postings, I think he's not answering
because you are a di*k. And, as others in those groups pointed out, even if
you have only the most basic of skills, you should be able to work with the
sample.

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

Frohe Weihnachten, Herfried :-)

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

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

==== Converting to 2002 ====
Remove inline declarations
 
Back
Top