Помогите новичку! Ну пожааалуйста!

[bashobn]

Проблема такая:

Есть две базы *.mdb с одинаковой структурой, но в одной есть данные, а другая чистая.

Вопрос: как можно перекинуть данные из заполненной базы в чистую?

Примечание: Пробовал мудрить с recordsetом через sql-инструкцию: записи выбираются...а вот как их скопировать и вставить оказалось проблемой...

Помогите пожалуйста!

[Хакер] :: Устное предупреждение. Во-первых, ты ошибся разделом. Во-вторых, давать темам подобные названия запрещено правилами. В следующий раз, предупреждение будет не устным.

[bashobn]

Извините, уважаемый Хакер! Больше не буду!

[Хакер]

Что именно вызывает проблемы у тебя в организации вставки?

[bashobn]

Вообще технология копирования. Мне бы хотя бы знать, какое свойство, допустим от .Recordset применить (мне кажется, что один фиг через него надо делать).

У меня задумка такая: Открыть одну базу, присвоить 1 recordset, потом открыть вторую с другим рекордом, приравнять 2 к 1 и записать.
А вот как сделать вопрос стал... Вот...

[iGrok]

А зачем изобретать велосипед?

1) А почему, к примеру, тупо не скопировать файл?
2) В аксессе, прилинковать к чистой БД таблицы из заполненной. Далее Ctrl-C - Ctrl-V. При вставке указываешь имя таблицы д/заполнения и выбираешь "добавить данные в таблицу".

Или нужен всё-таки программный способ?

[bashobn]

чистая база с некоторыми изменениями в таблице (добавлено поле, которое ссылается на другую таблицу, )как обновленная идет...Но юзеру же не объяснишь как что, поэтому нужна прога,макрос,запрос или подобное.

[iGrok]

Угу. Тогда понял.

Открываешь в рекордсетах обе таблицы, и бежишь по записям, копируя все поля. Собственно, в чём сложность-то? Копируя - т.е. читая из одного и записывая в другой. Никакого метода для быстрого копирования у рекордсета нету.

Впрочем, м.б. тебе есть смысл копнуть в сторону SELECT INTO?
Скорей всего это тебя спасёт. )

[bashobn]

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

Private Sub Command1_Click()
Dim i As Integer
Dim dt As String
Data1.DatabaseName = "c:\privcom\main.mdb"
Data2.DatabaseName = "c:\privcom\main_change.mdb"
Data1.Refresh
Data2.Refresh
dt = "PrUsed"
Data1.RecordSource = "select * from " & dt
Data1.Refresh
Data2.RecordSource = "select * from " & dt
Data2.Refresh
Do While Not Data1.Recordset.EOF
For i = 0 To Data1.Recordset.Fields.Count - 1
If Not Data1.Recordset.Fields(i) = "" Then
Data2.Recordset.AddNew
Data2.Recordset.Update
End If
Next i
Data1.Recordset.MoveNext
Loop
End Sub

Единственное что не знаю что вставить между Addnew и Update...

Вообще из такого моего произведения может что получиться?
Или есть варианты получше?

[iGrok]

Лучший вариант - копать SELECT INTO (sql)
Тогда за тебя всё сделает движок БД.

А так..

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


Do While Not Data1.Recordset.EOF

    Data2.Recordset.AddNew

    For i = 0 To Data1.Recordset.Fields.Count - 1

    If Not IsNull(Data1.Recordset.Fields(i)) Then
        Data2.Recordset.Fields(i) = Data1.Recordset.Fields(i)
    End If

    Next i

    Data2.Recordset.Update

    Data1.Recordset.MoveNext
Loop

Но вообще код какой-то.. Странный.
Думается мне, работать оно будет кривовато..
Если порядок полей поменялся, так и вообще получишь полный бред.
Несколько правильней было бы сверять имена полей..

.Fields("FieldName")

Но более правильным, и менее геморным всё равно остаётся вариант с запросом...

[bashobn]

GREAT THANKS to iGrok!!! Your name will be include in names of developers.

В аксесе создал макрос с запросом

INSERT INTO TableName IN Database.location SELECT * FROM TableName

Всё работает!!!

[iGrok]

Ой. Нифига ж себе. 0.o

Да не за что. )