Страница 32 из 476 Следующая конструкция обеспечивает соединение с базой данных SQL Server. В кавычках передается строка соединения. В строке последовательно указываются:провайдер; имя компьютера, на котором запущен SQL-сервер; имя базы данных SQL Server; имя пользователя и пароль, используемые для доступа к базе данных. DBConn - New OleDbConnection("Provider-sqloledb;" _ & "server-localhost;" & "Initial Catalog-INETC9;" & "User Id«sa;" _ & "Password'-yourpassword;") Если соединение должно быть установлено с базой данных Access, необходимо изменить запись о провайдере и путь к файлу базы данных. Можно задать полный путь. В данном случае указан путь относительно корневой папки Web-сервера: DBConn2 - New OleDbConnection("PROVIDER-Mlcrosoft.Jet.OLEDB.4.0;" _ & "DATA SOURCE-" _ & Server.MapPath("/InetBook/C9/" & "Access/C90nlineCaippus .mdb; ")) Операции с данными в базе данных Когда связь с базой данных установлена, можно манипулировать ее содержимым. При этом единственное различие между использованием базы Access и SQL Server связано с синтаксисом SQL-запросов. Следующий запрос предназначен для добавления записи в таблицу Courses: Dim DBConn as OleDbConnection Dim DBInsert As New OleDbCommand DBConn = New OleDbConnection("Provider-sqloledb;" & "server-localhost;" & "Initial Catalog«INETC9;rt & "User Id-sa;" & "Password-yourpassword;") DBInsert.CommandText - "Insert Into Courses " & "(CourseName,CourseDescription) valued ('" & "?" & txtCourseName.Text & "*, " _ & "'" & txtCourseDescription.Text & ")" DBInsert.Connection - DBConn DBInsert.Connection.Open DBInsert.ExecuteNonQuery() В дополнение к объекту OleDbConnection понадобится объект OleDbCommand:Dim DBInsert As New OleDbCommand Запрос, который необходимо выполнить, надлежит присвоить в качестве значения свойству CommandText этого объекта. В данном примере — это SQL-инструкция Insert: DBInsert.CommandText » "Insert Into Courses " ? "(CourseName, CourseDescription) values ('" & "'" & txtCourseName.Text & "', " _ & "'" & txtCourseDescription.Text & ")"
|