Gopnik писал(а):Народ помогите срочно.Много данных. Надо в данной базе данных данные из одной таблицы сунуть в VBA (модуль), превратить в переменные, обработать и затем результат выдать в другую таблицу.
RayShade писал(а):Гопницкий способ Не проще ли, обработать запросом?
RayShade писал(а):Может, быть, тогда просто в Excel Sheet? И на нем уже считать? Если да, то поиск по форуму теяб спасет - тут много раз обсуждалось как данные в Excel имортить.
Но, именно _VBA_ массивы - это будет страшно медленно и ресурсоемко
lord0n писал(а):ты обьясни что нужно конкретно
Dim cnMain As New ADODB.Connection
Dim rsSource As New ADODB.Recordset
Dim Data1 As Long, Data2 As Long.........
Call cnMain.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;User Id=admin;Password=;")
Call rsSource.Open("SELECT * FROM table1", cnMain, adOpenStatic, adLockReadOnly)
Data1 = rsSource![<fied1>]
Data2 = rsSource![<fied2>]
........
........... расчеты
cnMain.Execute ("INSERT INTO table2 (field1, field2) VALUES (" & Data1 & ", " & Data2 & ")")
Set rsSource = Nothing
Set cnMain = Nothing
Gopnik писал(а):Народ, скорее! Начальство наезжает. Завтра уже надо пилотную версию в Астану слать.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 56