| Вопрос: Как узнать пустая таблица или нет | Добавлено: 18.05.05 00:05 |
Автор вопроса:  Mag | ICQ: 289414238 |
| Как узнать пустая таблица или нет? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 18.05.05 01:13 |
| SELECT COUNT(*) FROM mytable | ||
|
Номер ответа: 2 Автор ответа: Mag ICQ: 289414238 Вопросов: 30 Ответов: 27 |
Профиль | | #2 | Добавлено: 18.05.05 02:33 |
| А как это cделать в VB 6.0 | ||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 18.05.05 10:39 |
| Открыть рекордсет с этим запросом | ||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 18.05.05 20:18 |
|
'Project>References "Microsoft ADO Ext. for DLL and Security"
Public Sub WritetoListView(ListView As ListView, DBpath$, Password$, Table$) '+ 'Отображает базу в ListView Dim db As Database, rs As Recordset ListView.View = lvwReport Set db = OpenDatabase(DBpath$, False, False, "MS Access;pwd=" & Password$) Set rs = db.OpenRecordset("select * from [" & Table$ & "]" 
For i = 0 To rs.Fields.Count - 1 'Создаём столюцы ListView.ColumnHeaders.Add , , rs.Fields(i).Name Next If rs.EOF = False Then 'Заполняем значениями столбцы While Not rs.EOF Set lvItm = ListView.ListItems.Add(, , IIf(IsNull(rs(0)), "", rs(0))) For i = 1 To rs.Fields.Count - 1 lvItm.SubItems(i) = IIf(IsNull(rs(i)), "", rs(i)) Next sno = sno + 1  oEvents
rs.MoveNext Wend End If End Sub Примерно так, нехочешь в листвью загружать - мотай счётчики |
||
Страница: 1 |