R
Robert
The following code works when the rs.Open string is less than 255
characters, but does not work when the sting is a complex query that
goes over 255 characters. Does anyone have a workaround or an
alternative solution?
Thanks in advance.
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "DBase", "userid", "password"
Set rs = New Recordset
rs.Open "SELECT * from sometable", db
Dim myRow
Dim myColumn
myRow = 1
myColumn = 1
Do Until rs.EOF
For Each fld In rs.Fields
Worksheets("Sheet1").Cells(myRow, myColumn).Value = fld.Value
myColumn = myColumn + 1
Next fld
myRow = myRow + 1
myColumn = 1
rs.MoveNext
Loop
Excel Templates Training & Add-ins
characters, but does not work when the sting is a complex query that
goes over 255 characters. Does anyone have a workaround or an
alternative solution?
Thanks in advance.
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "DBase", "userid", "password"
Set rs = New Recordset
rs.Open "SELECT * from sometable", db
Dim myRow
Dim myColumn
myRow = 1
myColumn = 1
Do Until rs.EOF
For Each fld In rs.Fields
Worksheets("Sheet1").Cells(myRow, myColumn).Value = fld.Value
myColumn = myColumn + 1
Next fld
myRow = myRow + 1
myColumn = 1
rs.MoveNext
Loop
Excel Templates Training & Add-ins