Срочно нужен пример Sql

[Warlock]

если есть у кавонибуть пример работы с базами SQl на платформе .NET

плиз поделитесь

[areh]

Мой тебе совет, покапайся в MSDN, там куча всяких примеров...

но вообще если совсем лень или некогда , то напиши, что конкретно тебе надо делать с базой, с какой базой и т.д.

вообщем чем смогу помогу....


да, и ещё, наверное эту тебу надо было в разделе по VB.NET создавать... информация бы кучнее лежала...

[Warlock]

буду благодарен любой помощи!


ситуация у меня такая раньше делал тестирующую программу для проверки уровня знаний у студентов

но текст мне приходилось савать в текстовый фаил а это не сильно хорошо

а я хочу штобы у меня тексты тестов были в базе данных и по какомунибуть запросу и выводили в текстовом поле


очень нужна любая помошь

[areh]

Итак вот несколько процедур по работе с базами данных

Код: Выделить всё

' Процедура загрузки данных
Sub LoadDataSet(ByRef DBDataSet As DataSet)

   ' Файл базы данных, в формате MS Access
   Dim DBFileName As String = "C:\db.mdb"

   ' Имя таблицы, загружаемой из базы данных
   Dim TableName As String = "TableName"

   ' Connection string - строка, содержащая источник данных, его тип и другую
   ' информацию, необходимую для инициализациия соедеинения с базой данных
   Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFileName

   ' Строка, содержащая SQL команду SELECT
   Dim SelectString As String = "SELECT * FROM " & TableName


   ' Экземпляр класса DataSet, представляющего собой структурированный набор
   ' данных (множество таблиц, ...)
   DBDataSet = New DataSet

   ' Экземпляр класса OleDbConnection, отвечающего за соединение с
   ' базами данных, поддерживающими спецификацию OleDB
   ' (это на скока я понимаю)
   Dim DBConnection As New OleDb.OleDbConnection(ConnectionString)

   ' Адаптер данных, позволяющий производить некоторые операции с базой данных
   ' MSDN рекомендует для каждой таблицы в базе создавать отдельный экземпляр
   Dim DBAdapter As New OleDb.OleDbDataAdapter(SelectString, DBConnection)

   ' Открываем соединение
   DBConnection.Open()

   ' Заполняем DBDataSet данными из таблицы TableName
   DBAdapter.Fill(DBDataSet, TableName)

   ' Закрываем соединение
   DBConnection.Close()
End Sub

' Процедура добавления данных в базу
Sub AddDataInDB()
   Dim DBFileName As String = "C:\db.mdb"
   Dim TableName As String = "TableName"
   Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFileName
   Dim SelectString As String = "SELECT * FROM " & TableName

   Dim DBDataSet As DataSet = New DataSet
   Dim DBConnection As New OleDb.OleDbConnection(ConnectionString)
   Dim DBAdapter As New OleDb.OleDbDataAdapter(SelectString, DBConnection)

   ' Экземпля класса OleDbCommandBuilder, отвечает за то, чтобы все изменения
   ' в объекте DataSet были сохранены в базе данных
   Dim DBCommandBuilder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(DBAdapter)

   DBConnection.Open()
   DBAdapter.Fill(DBDataSet, TableName)


   ' Тут добавляються / изменяються данные в объекте DBDataSet
   '------------------------------------------------------------
   ' Строка данных
   Dim DBDataRow As DataRow

   ' Создание новой строки в таблице
   DBDataRow = DBDataSet.Tables(TableName).NewRow

   ' Заполнение строки данных

   ' . . .

   ' заполнение строкового поля StringColumnName
   DBDataRow("StringColumnName") = " . . . "

   ' заполнение числового поля IntegerColumnName
   DBDataRow("IntegerColumnName") = 45

   ' . . .

   ' Добавление новой строки в таблицу
   DBDataSet.Tables(TableName).Rows.Add(DBDataRow)
   '------------------------------------------------------------


   ' Сохраняем изменения в базу данных
   DBAdapter.Update(DBDataSet, TableName)

   DBConnection.Close()
End Sub

' Функция возвращающая данные из определенной строки и столбца
Function GetData(ByRef DBDataSet As DataSet, ByVal TableName As String, ByVal RowIndex As String, ByVal ColumnName As String) As Object

   ' Получение строки из таблицы
   Dim DBDataRow As DataRow = DBDataSet.Tables(TableName).Rows(RowIndex)

   ' Возвращение значения нужного поля
   Return DBDataRow(ColumnName)
End Function

если чего будет непонятно, спрашивай, постараюсь помочь

[Warlock]

Areh
Агромнийшее спасибо за помощь
все попробывал но одно единственное не понял как работать с этой функцией возращяющей данные из определенной строки

помоги если можешь

[areh]

Итак, эта функция получает в качестве параметра объект DataSet, в который уже должна быть загружена таблица(ы) из базы данных. Далее обращаясь к конкретным значениям в таблице (имя таблицы передаеться как параметр) сначала необходимо получить всю строку целиком (используеться индекс строки, передаваемый как параметр), а потом уже обращаться к конкретному полю (название столбца так же передаеться в эту функцию как параметр).

А вообще не рекомендую использовать приведенные мной функции, т.к. они писались только для того чтобы продемонстрировать приципы работы с базами данных используя ADO.NET. Т.е. предполагаеться, что ты напишешь нужные тебе функции сам... Дело в том, что если тебе надо постоянно читать данные из базы, всё это быдет работать крайне медленно и не эффективно, так что надо переписать код под конкретную задачу.

Удачи.

[Warlock]

Areh
я понимаю что тебя уже достал но всетаки очень надо

так и не получается считать строку таблицы

не мог бы ты скинуть мне какой нидуть пример на мыло (какой нибуть маленький пример чтобы считывалась информация со строки из базы Acces и переводился в любое текстовое поле)

заранее огромнейшее спасибо