ADO data access to excel
 

Hi

Its not working :

Sub ADOImportFromAccessTable(DBFullName As String, _
TableName As String, TargetRange As Range)

Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer
Dim pocz, kon As Date

Set TargetRange = TargetRange.Cells(1, 1)
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
DBFullName & ";"
Set rs = New ADODB.Recordset
pocz = InputBox("Od")
kon = InputBox("Do")
With rs
.Open "SELECT * FROM " & TableName & _
" WHERE Pocz±tek pocz and koniec<kon", cn, , , adCmdText
TargetRange.CopyFromRecordset rs '
End With
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

ADOImportFromAccessTable "c:\Baza.mdb", "Postoje",
ThisWorkbook.Worksheets("Arkusz2").Cells(1, 1)


why ???

mrjoy

ADO data access to excel
 

Maybe

With rs
.Open "SELECT * FROM " & TableName & _
" WHERE Pocz±tek " & pocz & " and koniec < #" &
Format(kon,dd-mm-yyyy" &"#, cn, , , adCmdText


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"myrka" wrote in message
...
Hi

Its not working :

Sub ADOImportFromAccessTable(DBFullName As String, _
TableName As String, TargetRange As Range)

Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer
Dim pocz, kon As Date

Set TargetRange = TargetRange.Cells(1, 1)
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
DBFullName & ";"
Set rs = New ADODB.Recordset
pocz = InputBox("Od")
kon = InputBox("Do")
With rs
.Open "SELECT * FROM " & TableName & _
" WHERE Pocz±tek pocz and koniec<kon", cn, , , adCmdText
TargetRange.CopyFromRecordset rs '
End With
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

ADOImportFromAccessTable "c:\Baza.mdb", "Postoje",
ThisWorkbook.Worksheets("Arkusz2").Cells(1, 1)


why ???

mrjoy

ADO data access to excel
 

"Its not working". What does that mean ?
Error, wrong results, syntax ?
You need to provide more details.

Is the filed really called "Pocz±tek" ?

NickHK

"myrka" wrote in message
...
Hi

Its not working :

Sub ADOImportFromAccessTable(DBFullName As String, _
TableName As String, TargetRange As Range)

Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer
Dim pocz, kon As Date

Set TargetRange = TargetRange.Cells(1, 1)
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
DBFullName & ";"
Set rs = New ADODB.Recordset
pocz = InputBox("Od")
kon = InputBox("Do")
With rs
.Open "SELECT * FROM " & TableName & _
" WHERE Pocz±tek pocz and koniec<kon", cn, , , adCmdText
TargetRange.CopyFromRecordset rs '
End With
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

ADOImportFromAccessTable "c:\Baza.mdb", "Postoje",
ThisWorkbook.Worksheets("Arkusz2").Cells(1, 1)


why ???

mrjoy