SQL запрос к recordset - как?! / Visual Basic

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / SQL запрос к recordset - как?!

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

SQL запрос к recordset - как?!

#33546223

ВasiС

Гость

Делаю выборку всех записей из листа Excel c помощью ADO.
Т.е. получаю recordset
Вопрос: Как можно удалить из этого recordset колонки, записи по условиям и т.д.? Образно говоря, к этому recordset производить SQL запросы.
Т.е. работать не с таблицей как таковой, а с виртуальной таблицей в recordset

Кто сталкивался, подскажите пожалуйста, как это можно осущевствить?

...

Рейтинг:

0 / 0

15.02.2006, 13:32:53

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

SQL запрос к recordset - как?!

#33546362

TIKO

Гость

Для удаления обнавления
используй не рекордсет а комманд с запросом
Insert into Table(t1,t2) Values(1,2)
Update Table set t1=2, t2=3 where t1=3
Delete t1 From Table where t1=2
типа того

...

Рейтинг:

0 / 0

15.02.2006, 14:00:33

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

SQL запрос к recordset - как?!

#33546421

ВasiС

Гость

Это понятно, у меня немного другое попоробую кодом:

Код: plaintext

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

Dim con As ADODB.Connection: Set con = New ADODB.Connection
Dim rs As ADODB.Recordset: Set rs = New ADODB.Recordset
Dim i As Integer

'Открываем коннект
con.Open "DRIVER={Microsoft Excel Driver (*.xls)};" & "ReadOnly=1;DBQ=" & filename
'Делаем выборку всех записей из нужного листа
rs.Open "SELECT * FROM [FirstSheet$]", con, adOpenStatic, adLockOptimistic


'В выборке удаляем лишний столбец (КАК ЗДЕСЬ ЭТО МОЖНО СДЕЛАТЬ?)
'rs.Open "ALTER TABLE [FirstSheet$ DROP COLUMN NN", rs, adOpenStatic, adLockOptimistic
'В выборке удаляем лишние записи (КАК ЗДЕСЬ ЭТО МОЖНО СДЕЛАТЬ?)
'rs.Open "DELETE * FROM [FirstSheet$] WHERE Col=25", rs, adOpenStatic, adLockOptimistic


'Вставляем полученный рекордсет в новый лист
For i =  0  To rs.Fields.Count -  1 : Cells( 1 , i +  1 ).Value = rs.Fields(i).Name: Next i
Sheets("TestSheet").Range("A2").CopyFromRecordset rs

rs.Close: Set rs = Nothing
con.Close: Set con = Nothing

Думаю, так понятней будет. Сталкиваюсь с такой задачей впервые. Прошу хелпа =)

...

Рейтинг:

0 / 0

15.02.2006, 14:15:00

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

SQL запрос к recordset - как?!

#33546572

TIKO

Гость

Попробуй в такой последовательностью

Dim s As New ADODB.Connection
Dim comm As New ADODB.Command
Dim rs As New ADODB.Recordset

comm.ActiveConnection = s
comm.CommandText = "ALTER TABLE [FirstSheet$] DROP COLUMN NN"
comm.Execute
comm.CommandText = "DELETE * FROM [FirstSheet$] WHERE Col=25"
comm.Execute

rs.Open "SELECT * FROM [FirstSheet$]", con, adOpenStatic, adLockOptimistic

...

Рейтинг:

0 / 0

15.02.2006, 14:49:54

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

SQL запрос к recordset - как?!

#33546590

TIKO

Гость

SELECT t1,t2,t2,col (Без столбца NN) FROM [FirstSheet$]
where not WHERE Col=25
а это просто по выборке
практически то же самое но виртуально

...

Рейтинг:

0 / 0

15.02.2006, 14:53:49

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

SQL запрос к recordset - как?!

#33546674

ВasiС

Гость

Насколько я понимаю, ты предлагаешь сначала удалить всё ненужное, а потом уже вывести всё что осталось в recordset.
Дело в том, что это Excel, и у меня при таких действиях выводится, что такие действия не поддерживаются драйвером ISAM (вроде как). Т.е. выборку сделать можно, а вот удалить записи нет =(
Поэтому я хочу пойти по пути обработки recordseta с выборкой, а уже потом его вывести и сохранить. Вот.

...

Рейтинг:

0 / 0

15.02.2006, 15:08:00

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

SQL запрос к recordset - как?!

#33546691

ВasiС

Гость

>SELECT t1,t2,t2,col (Без столбца NN) FROM [FirstSheet$]
>where not WHERE Col=25
>а это просто по выборке
>практически то же самое но виртуально

Критерии выборки всё время меняются, (выбор через чекбоксы). Представляешь, как sql запрос будет выглядеть, если в него включить 15-20 значений чекбоксов =))
Хотя.... может к этому и прийду...
Просто не хочется идти в Москву через северный полюс =))

...

Рейтинг:

0 / 0

15.02.2006, 15:12:58

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

SQL запрос к recordset - как?!

#33546851

TIKO

Гость

where col in (ч1,ч2,ч3 итд...)
прокрути по цыклу чеки
собери в перемнную типа
и выдай критерием In(.....)

...

Рейтинг:

0 / 0

15.02.2006, 15:45:59

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

SQL запрос к recordset - как?!

#33547021

ВasiС

Гость

И всё-таки, возможно ли это сделать Сабжем ?

...

Рейтинг:

0 / 0

15.02.2006, 16:26:17

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

SQL запрос к recordset - как?!

#33547086

TIKO

Гость

Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection
Dim control As control
Dim str As String
For Each control In frmDataEnv.Controls
If control.Tag = "R" Then
If control.Value = Checked Then
str = str & control.Caption & ","
End If
End If
Next
str = Left(str, Len(str) - 1)
Debug.Print str
' caption-ы чека выводит параметры выборки данных
'==========

rs.Open "SELECT t1,t2,t2,col FROM [FirstSheet$]" _
& " where not WHERE Col in (" & str & ")"

PS.
Если параметр текстовой то надо добавить '' для каждого

...

Рейтинг:

0 / 0

15.02.2006, 16:40:18

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

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

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / SQL запрос к recordset - как?!

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

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

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

start [/forum/topic.php?fid=60&msg=33546674&tid=2166374]:	0ms
get settings:	8ms
get forum list:	17ms
check forum access:	3ms
check topic access:	3ms
track hit:	299ms
get topic data:	11ms
get forum data:	3ms
get page messages:	50ms
get tp. blocked users:	1ms
others:	193ms

total:	588ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы