как наити обшее кол-во записеи

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
elsen
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 117
Зарегистрирован: 05.04.2004 (Пн) 0:23
Откуда: Где то Далеко идут Дожди

как наити обшее кол-во записеи

Сообщение elsen » 23.02.2005 (Ср) 18:05

надо подшитат обшее кол-во записеи по условию (Access)
ест такои код
Dim dbs As Database, qdf As QueryDef, rst As Recordset
Dim prm As Parameter, strSQL As String
Dim i As Integer

Set dbs = CurrentDb


strSQL = "SELECT * FROM Zakazi WHERE (((Left([Zakazi].[artn],2))= '" & artn1 & "'));"

Set qdf = dbs.CreateQueryDef("Parameterabfrage", strSQL)
Set rst = qdf.OpenRecordset
' в етом месте дает ошибку - 13
i = 0
While (Not (rst.EOF))
i = i + 1
rst.MoveNext
Wend
dbs.Close

rst.Close
Set rst = Nothing
dbs.QueryDefs.Delete ("Parameterabfrage")
моэт ест идеи

elsen
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 117
Зарегистрирован: 05.04.2004 (Пн) 0:23
Откуда: Где то Далеко идут Дожди

Сообщение elsen » 23.02.2005 (Ср) 18:07

pardon v etom meste oshibka
Set qdf = dbs.CreateQueryDef("Parameterabfrage", strSQL) :oops:

elsen
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 117
Зарегистрирован: 05.04.2004 (Пн) 0:23
Откуда: Где то Далеко идут Дожди

Сообщение elsen » 24.02.2005 (Чт) 0:30

ну спасибо как всегда сам нашел рещение
посемуто в етот раздел мало заходят однако .


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0

    TopList  
cron