Скопировать структуру RecordSet / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Скопировать структуру RecordSet

5 сообщений из 5, страница 1 из 1

Скопировать структуру RecordSet

#38262931

Shizuku

Гость

Я пишу:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Form_Load()
  Dim rsBuild As ADODB.Recordset
  Set rsBuild = New ADODB.Recordset
  With rsBuild
    .CursorLocation = adUseClient
    .Fields.Append "Question", adLongVarWChar, 1
    "Answer", adLongVarWChar, 1
    .Open
    .AddNew 0, String(5000, "*")
    .Update
    Debug.Print .Fields(0)
    .Close
  End With
  Set rsBuild = Nothing
End Sub

А можно как-нибудь скопировать структуру таблицы из другого открытого RecordSet?
Чтобы не писать безумно длинный .Fields.Append ?

...

Рейтинг:

0 / 0

18.05.2013, 00:27

| Ответить | Цитировать | Написать

Скопировать структуру RecordSet

#38262932

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Чтобы не писать безумно длинный .Fields.Append, существуют циклы. Fields это коллекция.

...

Рейтинг:

0 / 0

18.05.2013, 00:31

| Ответить | Цитировать | Написать

Скопировать структуру RecordSet

#38279092

Shizuku

Гость

Antonariy,

Я имел ввиду именно структуру. В итоге у меня получилось примерно следующее:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

With rsBuild
 .CursorLocation = adUseClient
 .Fields.Append "num_ls", adDouble, 8
 .Fields.Append "num_dog", adVarWChar, 7, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "datdog", adDate, 8, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "fam", adVarWChar, 30, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "im", adVarWChar, 20, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "ot", adVarWChar, 20, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "nname", adVarWChar, 30
 .Fields.Append "n_dom", adVarWChar, 20, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "n_kv", adVarWChar, 4, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "crsumma", adDouble, 8
 .Fields.Append "prsumma", adDouble, 8
 .Fields.Append "kolmes", adDouble, 8
 .Open
' Здесь действия над таблицей
 .Close
End With

Как видите, без педантичного перечисления "ап'эндов" не обошлось! :)

...

Рейтинг:

0 / 0

29.05.2013, 18:14

| Ответить | Цитировать | Написать

Скопировать структуру RecordSet

#38279107

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

А я типа что-то другое имел ввиду?

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.

Public Function CreateRSCopy(rsSource As ADODB.Recordset) As ADODB.Recordset
Dim rsCopy As ADODB.Recordset
Dim f As ADODB.Field
Dim i As Long
    Set rsCopy = New ADODB.Recordset
    'копирование структуры
    For Each f In rsSource.Fields
        rsCopy.Fields.Append f.Name, f.Type, f.DefinedSize, f.Attributes And adFldIsNullable
        If f.Type = adNumeric Then
            rsCopy.Fields(f.Name).Precision = f.Precision
            rsCopy.Fields(f.Name).NumericScale = f.NumericScale
        End If
    Next f

    'копирование данных
    rsCopy.Open
    If rsSource.RecordCount > 0 Then
        rsSource.MoveFirst
        While Not rsSource.EOF
            rsCopy.AddNew
            For i = 0 To rsSource.Fields.Count - 1
                rsCopy.Fields(i).Value = rsSource.Fields(i).Value
            Next i
            rsSource.MoveNext
        Wend
        rsSource.MoveFirst
        rsCopy.MoveFirst
    End If
    Set CreateRSCopy = rsCopy
    Set rsCopy = Nothing
End Function

...

Рейтинг:

0 / 0

29.05.2013, 18:26

| Ответить | Цитировать | Написать

Скопировать структуру RecordSet

#38279118

Shizuku

Гость

Antonariy,

Упс! Красиво... А я тут через debug тоже самое вытягиваю и додумать не могу!

...

Рейтинг:

0 / 0

29.05.2013, 18:35

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Скопировать структуру RecordSet

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&tid=2156946]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	2ms
check topic access:	2ms
track hit:	44ms
get topic data:	12ms
get forum data:	3ms
get page messages:	46ms
get tp. blocked users:	2ms
others:	14ms

total:	150ms