| Вопрос: Как получить количество записей из базы данных? | Добавлено: 25.01.08 20:10 |
Автор вопроса:  Александр
|
|
Здравствуйте!
Наверное задам глупый вопрос, но тем не менее незнаю как сделать. Как на vb.net получить количество записей в базе данных (Access 2003)? Пробовал recordcount, но ничего не вышло(((( |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 25.01.08 20:39 |
| верно, что глупый вопрос, т.к. ты ничего нам не рассказал о способе подключения к базе, с чего ты вообще решил, что база данных подключена к проекту? | ||
|
Номер ответа: 2 Автор ответа: Александр Вопросов: 20 Ответов: 44 |
Профиль | | #2 | Добавлено: 25.01.08 20:55 |
|
хе-хе, я конечно новичок в программировании, но не до такой степени!))
'Объявление и подключение Public p_base As New ADODB.Connection Public p_baseset As New ADODB.Recordset p_base.Open("Provider=microsoft.jet.OLEDB.4.0  ata source=p_base.mdb"
p_baseset.Open("base", p_base, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic) |
||
|
Номер ответа: 3 Автор ответа: АлександрВопросов: 20 Ответов: 44 |
Профиль | | #3 | Добавлено: 25.01.08 20:58 |
|
хе-хе, я конечно новичок в программировании, но не до такой степени!))
'Объявление и подключение Public p_base As New ADODB.Connection Public p_baseset As New ADODB.Recordset p_base.Open("Provider=microsoft.jet.OLEDB.4.0 ata source=p_base.mdb"
p_baseset.Open("base", p_base, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic) |
||
|
Номер ответа: 4 Автор ответа: BUMM ® Вопросов: 8 Ответов: 482 |
Профиль | | #4 | Добавлено: 25.01.08 23:30 |
|
хе-хе, я конечно новичок в программировании, но не до такой степени!))
'Объявление и подключение Public p_base As New ADODB.Connection Public p_baseset As New ADODB.Recordset p_base.Open("Provider=microsoft.jet.OLEDB.4.0 ata source=p_base.mdb"
p_baseset.Open("base", p_base, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic) ужосс юзай лучше ADO.NET Dim cn As New OleDb.OleDbConnection("Provider=microsoft.jet.OLEDB.4.0
ata source=p_base.mdb"
Dim cmd As New OleDb.OleDbCommand("SELECT COUNT(PK) FROM base" 'PK - Primary Key, можешь юзать * - все
Try cn.Open() Dim res As Object = cmd.ExecuteScalar MsgBox(res.ToString) Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Error"
Finally cn.Close() End Try |
||
|
Номер ответа: 5 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #5 | Добавлено: 25.01.08 23:31 |
|
поправка:
Dim cmd As New OleDb.OleDbCommand("SELECT COUNT(PK) FROM base", cn)
|
||
|
Номер ответа: 6 Автор ответа: АлександрВопросов: 20 Ответов: 44 |
Профиль | | #6 | Добавлено: 27.01.08 15:00 |
| Спасибо! | ||
Страница: 1 |