Guest_imported
New member
- Jan 1, 1970
- 0
The following program extracts data from a single cell and thn adds it to a database
Option Explicit
Dim wkbObj As Workbook
Dim x As Integer
Private Sub Command1_Click()
x = wkbObj.Worksheets(1).Range("a" & 1).Value
Text1.Text = x
Data1.Recordset.AddNew
Data1.Recordset.Test = x
Data1.Recordset.Update
End Sub
Private Sub Form_Load()
Set wkbObj = GetObject("f:\projecttest\test.xls"
End Sub
What i need to know is how to specify a whole row rather than the single cell statment 'Range("a" & 1). Value', so i can copy whole rows at a time and put them in the database.
Option Explicit
Dim wkbObj As Workbook
Dim x As Integer
Private Sub Command1_Click()
x = wkbObj.Worksheets(1).Range("a" & 1).Value
Text1.Text = x
Data1.Recordset.AddNew
Data1.Recordset.Test = x
Data1.Recordset.Update
End Sub
Private Sub Form_Load()
Set wkbObj = GetObject("f:\projecttest\test.xls"
End Sub
What i need to know is how to specify a whole row rather than the single cell statment 'Range("a" & 1). Value', so i can copy whole rows at a time and put them in the database.
