:)

I have a excel spreadsheet that is uploading data to tables in a SQL database.

I need more grandular control:

Based on a date say 1/01/2007 I want to be able to upload a range of excel cells with data to an offset position in the database columns.

Example: if 1/01/2007 upload to column 12 thru column 24 in the database and if 1/01/2008 upload data to columns 25 thru columns 37.

Any similar sample of code or any discerning thoughts would be most appreciated.

Thanks so much for your help ahead of time.

Henry

sounds possible, are the columns fixed, or is there criteria which is needs to be tested to see if it needs uploading

:)Actually I got it figured out ...but thanks so much for responding.

I had to upload hundreds of cells vertically which was simple just a row at a time but this one caught me a little off guard but it works very well and is robust code.

This will upload a range of cells in a horizonal motif


Const ConnectionString As String = _
                "Provider=SQLOLEDB.1;" & _
                "Data Source=servername;" & _
                 "Initial Catalog=databasename;" & _
                 "User ID=username;" & _
                 "Password=userpassword;"

    Dim Connection As ADODB.Connection
    Set Connection = New ADODB.Connection
    Connection.ConnectionString = ConnectionString
    Dim SQLstr As String
    Dim Recordset As Recordset
    Dim rng0 As Range
    Dim rng As Range
    Dim r As Variant
    Dim rngCol As Range
    Dim wksExpense As Worksheet
    Dim rngSR As Range
    Dim rngUploaded As Range
    Dim rngCO As Range
    Set wksExpense = ThisWorkbook.Worksheets("Expense Forecast")
    Set rngSR = wksExpense.Range("A3")
    Set rngUploaded = wksExpense.Range("B3")
    Set rngCO = wksExpense.Range("C3")


     Set rng = wksExpense.Range("J1").Resize(2, 36)

     Connection.Open


     For Each rngCol In rng.Columns



            SQLstr = "INSERT INTO tSrNew(SRNo, DateUpload, ChgOrderNo, EMONTH, EAMOUNT)" & _
            " VALUES ('" & rngSR.Value & "', '" & rngUploaded.Value & "', '" & rngCO.Value & "', '" & rngCol.Cells(1).Value & "', " & rngCol.Cells(2).Value & ")"

            'MsgBox SQLstr


           Connection.Execute (SQLstr)



    Next

   If (Connection.State = ObjectStateEnum.adStateOpen) Then
      Connection.Close
    End If