Поиск данных в таблице Аксесс - Microsoft Office Excel - Страница 2

doober · 17.05.2013, 00:29

Например так

Код:

    Set rst = dbs.OpenRecordset("SELECT * FROM Clients WHERE Surname_Client = '" & SurN & "' And Date_of_Birth = '" & Date_Brth & "' ")
    For n = 0 To rst.RecordCount - 1
        If n = 0 Then
            Sheets("information").Cells(3, 2) = Now
            Sheets("information").Cells(5, 2) = rst!Num_Request
        Else
            Sheets.Add.Name = "information_" & n + 1
            Sheets("information_"  & n + 1).Cells(3, 2) = Now
            Sheets("information_"  & n + 1).Cells(5, 2) = rst!Num_Request
        End If
        rst.MoveNext
    Next

Rust_12 · 18.05.2013, 08:02

Doober, спасибо Вам большое!
Немного сначала не получилось, ибо "rst.recordcount" возвращал все время значение 1, даже если число строк было больше 2. Погуглил, наткнулся на массу статей об этой проблеме.
Код изменил, теперь вроде все работает корректно.

Set rst = dbs.OpenRecordset("SELECT * FROM Clients WHERE Surname_Client = '" & SurN & "' And Date_of_Birth = '" & Date_Brth & "' ")
rst.MoveLast
For n = 0 To rst1.RecordCount - 1
If n = 0 Then
rst.MoveFirst
Sheets("information").Cells(3, 2) = Now
Sheets("information").Cells(5, 2) = rst!Num_Request
Else
Sheets.Add.Name = "information_" & n + 1
Sheets("information_" & n + 1).Cells(3, 2) = Now
Sheets("information_" & n + 1).Cells(5, 2) = rst!Num_Request
End If
rst.MoveNext
Next

Спасибо большое!

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поиск данных по таблице в базе данных	Awesome96	БД в Delphi	1	03.12.2012 09:53
Поиск в БД связь с Аксесс	MikaS007	БД в Delphi	30	17.06.2010 14:15
Поиск и суммирование данных в таблице произвольного размера	Darkdog	Microsoft Office Excel	26	16.02.2010 10:47
База данных аксесс	Игорь11071990	Microsoft Office Access	1	20.01.2010 20:33
Поиск в таблице бд	Aндрей	Помощь студентам	2	27.04.2009 09:13

18.05.2013, 08:02	#12
Rust_12 Пользователь Регистрация: 10.12.2011 Сообщений: 25	Doober, спасибо Вам большое! Немного сначала не получилось, ибо "rst.recordcount" возвращал все время значение 1, даже если число строк было больше 2. Погуглил, наткнулся на массу статей об этой проблеме. Код изменил, теперь вроде все работает корректно. Set rst = dbs.OpenRecordset("SELECT * FROM Clients WHERE Surname_Client = '" & SurN & "' And Date_of_Birth = '" & Date_Brth & "' ") rst.MoveLast For n = 0 To rst1.RecordCount - 1 If n = 0 Then rst.MoveFirst Sheets("information").Cells(3, 2) = Now Sheets("information").Cells(5, 2) = rst!Num_Request Else Sheets.Add.Name = "information_" & n + 1 Sheets("information_" & n + 1).Cells(3, 2) = Now Sheets("information_" & n + 1).Cells(5, 2) = rst!Num_Request End If rst.MoveNext Next Спасибо большое!