Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Алексей Немиро -

ASP - Базы данных

Все примеры / Базы данных

Как добавить новые данные в базу данных?

Автор: Алексей Немиро | добавлено: 05.03.2010, 20:20 | просмотров: 3401 (1+) | комментариев: 0 | рейтинг: *x1
Данный пример показывает, как можно добавить данные в базу данных, а также получить данные из базы данных.

Инструкции

Обратите внимание, иногда может потребоваться открыть права доступа для записи к каталогу и/или файлу базы данных в Windows (правой кнопкой мышки по файлу/папке, в которой находится файл БД, вкладка Доступ).

Код

<%
  Response.CacheControl = "no-cache"
  Response.AddHeader "Pragma", "no-cache"
  Response.Expires = -1
  adOpenStatic = 3
  adOpenDynamic = 2
  adUseClient = 3
  adOpenKeyset = 1
  adLockOptimistic = 3

strAlert = vbNullString

'вызываем процедуру загрузки страницы
  Page_Load

'процедура загрузки страницы
Private Sub Page_Load()
  If Not Request("tbName1") = vbNullString Then AddMyData
End Sub

'функция добавления данных в БД
Private Function AddMyData()
If Request("tbName1") = vbNullString Then AddData = False: Exit Function
'создаем объекты для доступа к БД
  Set Conn = Server.CreateObject("ADODB.Connection")
    Set RS = Server.CreateObject("ADODB.Recordset")
    strDBPath = Server.MapPath("db.mdb")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
               strDBPath
'Открываем Recordset для добавления данных
    RS.ActiveConnection = Conn
    RS.CursorLocation = adUseClient
    RS.CursorType = adOpenKeyset
    RS.LockType = adLockOptimistic
    RS.Source = "tblMain"
    RS.Open 
    RS.AddNew
    'добавляем данные
    RS("name1") = Request("tbName1")
    RS("name2") = Request("tbName2")
    RS("name3") = Request("tbName3")
'обновляем Recordset - заносим данные в БД
    RS.Update
    RS.Close

    Conn.Close
    Set RS = Nothing
    Set Conn = Nothing

AddData = True
'создаем клинетское сообщение на JavaScript
strAlert = "alert('Данные успешно добавлены!');"
End Function

'функция получения данных из БД
Private Function GetMyData()
'создаем объекты доступа к базе данных
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
'получаем путь к базе данных
strDBPath = Server.MapPath("db.mdb")
'подключаемся к базе данных
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
strDBPath
'создаем запрос выборки данных
strSQL = "SELECT * FROM tblMain " & _
"ORDER BY id"
'выполняем запрос в подключенной БД
strResult = ""
RS.Open strSQL, Conn, adOpenStatic
'если данные есть, то выводим их
If RS.RecordCount > 0 Then
'выводим данные
Do While Not RS.EOF
strResult = strResult & "Запись #" & RS("id") & _
": " & RS("name1") & _
" " & RS("name2") & _
" " & RS("name3") & _
"<br/>" & vbCrLf
RS.MoveNext
Loop
Else
'данных нет, выводим сообщение об этом
strResult = "Нет данных..."
End If

'закрываем БД
Conn.Close
'удаляем объекты из памяти
Set RS = Nothing
Set Conn = Nothing

GetMyData = strResult
End Function
%>

<html>
<head>
<title>Библиотека кодов Немиро Алексея</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<style type="text/css">
<!--
p {
font-family: Arial, Helvetica, sans-serif;
font-size: x-small;
margin: 0px;
padding: 0px;
}
-->
</style>
<script language="JavaScript" type="text/javascript">
<%=strAlert%>
</script>
</head>

<body>
<p><font size="6"><strong> БИБЛИОТЕКА КОДОВ</strong></font></p>
<p><font size="5"><strong>НЕМИРО АЛЕКСЕЯ</strong></font></p>
<p><font size="1">&lt;<a href="mailto:aleksey@kbyte.ru?Subject=LibCodeASP_Добавление_данных_в_БД">aleksey@kbyte.ru</a>&gt; 
  <a href="http://www.kbyte.ru/">http://www.kbyte.ru/</a></font></p>
<hr>
<p><strong><font size="4">ASP =&gt; Добавление данных в БД</font></strong></p>
<hr>
<form name="form1" method="post" action="default.asp">
  <p align="center">Фамилия: 
    <input name="tbName1" type="text" id="tbName1">
    Имя: 
    <input name="tbName2" type="text" id="tbName2">
    Отчество: 
    <input name="tbName3" type="text" id="tbName3">
  </p>
  <p align="center">&nbsp; </p>
  <p align="center"> 
    <input name="btnAdd" type="submit" id="btnAdd" value="Добавить">
  </p>
</form>
<hr>
<p><%=GetMyData%></p>
</body>
</html>
Файлы WriteData.zip (40,09 Кб)
Об авторе

Алексей Немиро

Интернет-деятель. Автор многочисленных статей и переводов статей по программированию и информационным технологиям. Работы Алексея можно найти в популярных печатных изданиях компьютерной тематики. Автор проекта Kbyte.Ru.
Сейчас Алексей занимается профессиональным Web-программированием на базе технологий .NET Framework. Иногда пишет различные программки и компоненты для Windows и Android. В свободное время занимается Web-дизайном, увлекается фото- и видеосъемкой.

См. также:
Профиль автора
Алексей Немиро
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики