mark curtis
Registered User.
- Local time
- Today, 04:55
- Joined
- Oct 9, 2000
- Messages
- 457
I have the code below to connect to a access database but I am having trouble creating the recordset and placing it in Excel...any help would be appreciated.
Dim intPID As Integer, i As Integer
Dim oConn As Object
Dim oSheet As Object
Dim oRst As Object
'Dim strSQL As String, strRAGLoc As String
Dim CurrentValue As Variant, CurrentField As Variant
'Open connection and create recordset
Set oConn = CreateObject("ADODB.Connection")
'Make the recordset object
Set oRst = CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & "C:\MC\PSOInventory\10PSODatabase\Tonight\4.8" & "
\PSOInventory.97.4.8.0.mdb"
strSQL = "SELECT tblProduct.ProjectID, tblProduct.ProductName,
tblProduct.ProductDescription, tblProduct.ProductBreakdown1,
tblProduct.ProductBreakdown2, tblProduct.ProductBreakdown3,
tblProduct.ProductBreakdown4, tblProduct.strProductScope,
tblProduct.RevisedDeliveryDate, tblProduct.ActualDeliveryDate,
tblProduct.DeliveryDifferenceReason FROM" & _
"tblDocumentRegister INNER JOIN tblProduct ON
tblDocumentRegister.ProjectID = tblProduct.ProjectID WHERE " & _
"(((tblProduct.strProductScope) = ""yes"") And
((tblProduct.RevisedDeliveryDate) < Now()) And
((tblProduct.ActualDeliveryDate) Is Null)) Or
(((tblProduct.strProductScope) = ""yes"") And
((tblProduct.ActualDeliveryDate) > [RevisedDeliveryDate] + 14));"
Dim intPID As Integer, i As Integer
Dim oConn As Object
Dim oSheet As Object
Dim oRst As Object
'Dim strSQL As String, strRAGLoc As String
Dim CurrentValue As Variant, CurrentField As Variant
'Open connection and create recordset
Set oConn = CreateObject("ADODB.Connection")
'Make the recordset object
Set oRst = CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & "C:\MC\PSOInventory\10PSODatabase\Tonight\4.8" & "
\PSOInventory.97.4.8.0.mdb"
strSQL = "SELECT tblProduct.ProjectID, tblProduct.ProductName,
tblProduct.ProductDescription, tblProduct.ProductBreakdown1,
tblProduct.ProductBreakdown2, tblProduct.ProductBreakdown3,
tblProduct.ProductBreakdown4, tblProduct.strProductScope,
tblProduct.RevisedDeliveryDate, tblProduct.ActualDeliveryDate,
tblProduct.DeliveryDifferenceReason FROM" & _
"tblDocumentRegister INNER JOIN tblProduct ON
tblDocumentRegister.ProjectID = tblProduct.ProjectID WHERE " & _
"(((tblProduct.strProductScope) = ""yes"") And
((tblProduct.RevisedDeliveryDate) < Now()) And
((tblProduct.ActualDeliveryDate) Is Null)) Or
(((tblProduct.strProductScope) = ""yes"") And
((tblProduct.ActualDeliveryDate) > [RevisedDeliveryDate] + 14));"