VBNet - Форум

Вопрос: SQL Добавлено: 03.12.03 22:04

Автор вопроса: Casper

Запрос SELECT COUNT (*) FROM TABLE1 подсчитывает общее число строк в таблице. ВОПРОС: Как написать чтобы он вставлял ответ в текстовое поле (Text1.Text=SELECT COUNT (*) FROM TABLE1 ясный перец не катит, а КАК?)

Ответить

Ответы Всего ответов: 8

Номер ответа: 1
Автор ответа:

NeForm@t

ICQ: 252999255

Вопросов: 36
Ответов: 247

Web-сайт: g--k.newmail.ru
Профиль | | #1

Добавлено: 03.12.03 22:08

А как(через что) он возвращает значение?

Ответить

Номер ответа: 2
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #2

Добавлено: 03.12.03 22:31

Примерно так,

dim rs as recordset

set rs = cn.execute ("SELECT COUNT (*) FROM TABLE1")

Text1.Text=rs.fields(1)

где cn - active connection к базе

Ответить

Номер ответа: 3
Автор ответа:

Casper

Вопросов: 38
Ответов: 28

Профиль | | #3

Добавлено: 03.12.03 22:57

Работает через ADO или DAO (без разницы через что работать).

set rs = cn.execute ("SELECT COUNT (*) FROM TABLE1")

Text1.Text=rs.fields(1)

Здесь непонятно что такое .execute и почему rs.fields(1)

О0бъясните пожалуйста.

Ответить

Номер ответа: 4
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #4

Добавлено: 03.12.03 23:07

cn объявлен как

cn as connection

execute - выполнение запроса к базе

rs.fields(1) - первое поле в первом record'e. Возможно надо поставить индех 0, не помню точно.

Ответить

Номер ответа: 5
Автор ответа:

Casper

Вопросов: 38
Ответов: 28

Профиль | | #5

Добавлено: 04.12.03 00:25

Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim co As Connection
Dim SQL As String

Private Sub Form_Load()
Set db = DAO.OpenDatabase("C:\fil.mdb")
SQL = "SELECT SUM (Number) FROM TABLE"
Set rs = co.Execute(SQL)
Text1.Text = rs.Fields(1)
End Sub

Выделяет .Execute и выдает ошибку "Ошибка компиляции"

Ответить

Номер ответа: 6
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #6

Добавлено: 04.12.03 00:58

С DAO давно не работал, все больше с ADO

Но попробуй следуещее:

Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim SQL As String

Private Sub Form_Load()
Set db = DAO.OpenDatabase("C:\fil.mdb")
SQL = "SELECT SUM (Number) FROM TABLE"
Set rs = db.connection.Execute(SQL)
Text1.Text = rs.Fields(1)
End Sub

Ответить

Номер ответа: 7 Автор ответа: Casper Вопросов: 38 Ответов: 28	Профиль \| \| #7	Добавлено: 04.12.03 09:21
	У меня обратная ситуация. С ADO давно не работал. Если не сложно, напиши код с использованием ADO. Ответить

Номер ответа: 8
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #8

Добавлено: 04.12.03 11:09

Нет проблем. Вот код для рботы с ADO

Dim cn As New Connection
Dim rs As Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0ata Source=C:\fil.mdb;Persist Security Info=False"
Set rs = cn.Execute("select count(*) from table")
Text1.Text = rs.Fields(0)

предворительно добавь reference на Microsoft ActiveX Data Objects 2.X Library

Ответить

Страница: 1 |