Access

[Gopnik]

я скинул файл. посмотри.
меня уже вешать собрались

[Gopnik]

Народ, срочно надо! Хоть кто-нибудь, предложите что-нибудь!

[lord0n]

ответь на почту
а я те скину файлы

[Gopnik]

Код: Выделить всё

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


О вообще - STFW

Объяни что за что отвечает, плз!