Модераторы: gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Соединение с базой Access и вывод информации 
:(
    Опции темы
Alex
Дата 24.12.2004, 12:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: нет
Всего: 162
База должна называться database.mdb содержать в себе таблицу с названием tblTest
Код

<% 
Option Explicit

'Переменные
Dim adoCon
Dim strCon
Dim strSQL
Dim rsSelect

'Подключаемся к базе
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
adoCon.Open strCon
    
    'Выводим информацию с таблици tblTest
    Set rsSelect = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT Name FROM tblTest;"
    rsSelect.Open strSQL, adoCon
    
    Response.Write(rsSelect("Name"))
    
    rsSelect.Close
    Set rsSelect = Nothing

adoCon.Close
Set adoCon = Nothing
%>





--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Прежде чем создать тему, посмотрите сюда:
Любитель
Mymik
mr.DUDA
Используйте теги [code=csharp][/code] для подсветки кода. Используйтe чекбокс "транслит" если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Любитель, Mymik, mr.DUDA.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Разработка под ASP.NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0385 ]   [ Использовано запросов: 23 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.