Получить даные из Oracle через VBA

Вторник, 17 Июня 2014 г. 08:33 + в цитатник

Доброго времени суток, уважаемые.
подскажите пожалуйста,
как получить данные через SQL из таблиц Oracle при нажатии на кнопку, (используя переменную из формы) через VBA и вписать полученное значение в соответсвующее поле на форме.
подобная штука работает в Excell, там все просто, но с Access начал работать только-только.

ВОт пример из Excell, хотелось бы подобное в Access

Sub ShipmStartLoad()

Dim cn As ADODB.Connection
Dim qSQL As String
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
i = "00" & ActiveCell.Value
    cn.ConnectionString = "Provider=MSDASQL.1;Password=pass;Persist Security Info=True;User ID=user_ro;Data Source=ord.dtt"
    cn.Mode = adModeRead
    cn.Open
qSQL = "select min(sn.sysdat), sl.locatn from  systrn sn, sysdtl sl where sn.trnseq =  sl.trnseq and  sn.sysdat >= (sysdat -2) and  sn.sysdat <= (sysdat+1) and  sl.shipid = '" & i & "' and  sn.trntyp ='DEPSUL' and  sl.locatn like 'DOOR%' group by sl.locatn;"
rs.Open qSQL, cn

With ActiveCell
     .Offset(0, 5).CopyFromRecordset rs
End With
    rs.Close
    cn.Close
Set cn = Nothing
Set rs = Nothing
    Application.ScreenUpdating = True
End Sub