need to start table dump on row 8 column A

Hi!

I want to add a company jpg on column a row 1 and title. Therefore I need to start my dataset dump on row 8 and comlumn A.

The code I have now looks like this:



How do i modify accordingly?

THanks!

Tammy
If CheckBox1.CheckState = CheckState.Checked Then
 
 
                    connectionString2 = "data source='" & ComboServers.Text & "'; Initial catalog=master;Integrated Security = True;"
                    cnn2 = New SqlConnection(connectionString2)
                    cnn2.Open()
                    sql2 = "Select * from master.dbo.temp_Filter_by_error where [Error Description] in ('Could not index file') order by [fileset ID],[Doc ID]"
                    Dim dscmd2 As New SqlDataAdapter(sql2, cnn2)
                    Dim ds2 As New DataSet
                    dscmd2.Fill(ds2)
 
 
                    .Worksheets(3).Select()
 
 
                    CType(Excel.Workbooks(1).Worksheets("Sheet3"), Microsoft.Office.Interop.Excel.Worksheet).Name = "Index Error Report"
 
                    Dim m As Integer = 1
                    For col = 0 To ds2.Tables(0).Columns.Count - 1
                        .cells(1, m).value = ds2.Tables(0).Columns(col).ColumnName
                        .cells(1, m).EntireRow.Font.Bold = True
                        m += 1
                    Next
                    m = 2
                    Dim n As Integer = 1
                    For col = 0 To ds2.Tables(0).Columns.Count - 1
                        m = 2
                        For row = 0 To ds2.Tables(0).Rows.Count - 1
                            .Cells(m, n).Value = ds2.Tables(0).Rows(row).ItemArray(col)
                            m += 1
                        Next
                        n += 1
                    Next
 
 
                End If

Open in new window

jtammygAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
nutschConnect With a Mentor Commented:
My apologies, I got confused since the code uses m as a row once, then as a column. Here is the updated code from line 18 to 33
                    Dim m As Integer = 1
                    For col = 0 To ds2.Tables(0).Columns.Count - 1
                        .cells(8, m).value = ds2.Tables(0).Columns(col).ColumnName
                        .cells(8, m).EntireRow.Font.Bold = True
                        m += 1
                    Next
                    m = 9
                    Dim n As Integer = 1
                    For col = 0 To ds2.Tables(0).Columns.Count - 1
                        m = 9
                        For row = 0 To ds2.Tables(0).Rows.Count - 1
                            .Cells(m, n).Value = ds2.Tables(0).Rows(row).ItemArray(col)
                            m += 1
                        Next
                        n += 1
                    Next

Open in new window

0
 
nutschCommented:
Change line 18 to
                    Dim m As Integer = 8
and line 24 to
m=9
0
 
jtammygAuthor Commented:
That's not what i need.

I need to dump the data in row 8......not column 8

Thanks!

Tammy
0
 
jtammygAuthor Commented:
Thank you so much Nutsch!!!!!

works perfect :-)
0
 
nutschCommented:
Glad to help.

Thomas
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.