This solution will help you find the first empty row number in a spreadsheet. After you know that number you would used the standard expression like worksheet.range ("A1").value .
Dim excelApp As Excel.Applicati on = New Excel.Applicati on()
Dim excelBook As Excel.Workbook
Dim strPath As String = "C:\Documen ts and Settings\All Users\Documents \Intranet\Sysco ARL\uniqueinv-20081201-024-ALL.xls"...
mrmelvin
Last Activity: Apr 5 '09, 10:11 PM
Joined: Aug 7 '08
Location:
-
-
Dynaset is a type of recordset.
Dim rs As Recordset
Dim rstype As RecordsetTypeEn um
Set rs = CurrentDb.OpenR ecordset("selec t * from table where id = 100", RecordsetTypeEn um.dbOpenDynase t)
Dim str As String
Do While Not rs.EOF
str = rs("fieldname" )
MsgBox (str)
rs.MoveNext
LoopLeave a comment:
-
An additional option would be to declare class level variables in the general declaration of the class. Then use the those varables in your returndocumentr ules function. Then close the db and recordset after your done calling the function in you main calling code. For example:
public class abc()
Dim db As Database, rs As Recordset
function ReturnDocumentR ules()
db = x
rs = y
end function
private...Leave a comment:
-
As a first line of troubleshooting , I would check to see if the project was compiled in debug mode and not release mode. I'm refering to the compilation setting in the project properties.Leave a comment:
No activity results to display
Leave a comment: