select * into REP in 'C:\TMP\copy.mdb'
from DATA
insert into [rep] select * from [data]
insert into [rep] select * from [data] WHERE ...
Adodc1.RecordSource = "insert into [rep] select * from [data] where date between " & d1 & " and " & d2 & " order by sim asc"
Dim cn as ADODB.Connection
Dim SQL as string
SQL="insert into [rep] select * from [data] where date between " & d1 & " and " & d2
Set cn=New ADODB.Connection
cn.Open "Provider=Microsoft Jet 4.0 OLE DB Provider;Data Source=C:\tmp\my.mdb;User ID=Admin;Password=;"
cn.Execute SQL
SK | Heaton писал(а):Konst_One
получилось... пасиб..
А ты не знаешь как можно вызвать форму отчета Аксеса на Вб ?!
Konst_One писал(а):(есть кажется и ocx для этого). отчет предварительно должен быть подготовлен.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1