Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Пример для vb .net Добавлено: 02.11.03 16:32  

Автор вопроса:  Maxik
У кого-нибудь есть пример записи в базу access в vb .net??
Пришлите, плз, на miki@online.sinor.ru

Ответить

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

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



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
  Web-сайт: www.vbnet.ru
 Профиль | | #1 		Добавлено: 03.11.03 08:26
Что именно нужно?

Ответить

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



Вопросов: 58
Ответов: 201
  Профиль | | #2 Добавлено: 07.11.03 07:03
Добавление записи, редактирование, удаление.
Читаю так:
Dim dbCmd As New OleDb.OleDbCommand _
("SELECT Data.Date,Data.Importance,Data.Teams FROM Data")

Dim AConn As OleDb.OleDbConnection = New
OleDb.OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & GCDir()
& "Data.mdb")
Dim dbRead As OleDb.OleDbDataReader
AConn.Open()
dbCmd.Connection = AConn
dbRead = dbCmd.ExecuteReader(CommandBehavior.SingleResult)
Dim lv As ListViewItem
Do While dbRead.Read
lv = lvRecords.Items.Add(dbRead.GetDateTime(0).ToString)
lv.SubItems.Add(ImpF(dbRead.GetByte(1)))
lv.SubItems.Add(dbRead.GetString(2))
Loop

Ответить

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



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
  Web-сайт: www.vbnet.ru
 Профиль | | #3 		Добавлено: 07.11.03 07:42
Изменение записи:

Dim dbCmd As New OleDb.OleDbCommand _
("Update Data Set
Data.Date=дата,Data.Importance=импортанс,Data.Teams=команды")

Dim AConn As OleDb.OleDbConnection = New
OleDb.OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & GCDir()
& "Data.mdb")
AConn.ExecuteNonQuery

Удаление и добавление так же, только SQL-запросы при создании команды
будут другие (Delete и Insert into, подробнее посмотри мою статью
"Основы SQL").

Ответить

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



Вопросов: 58
Ответов: 201
  Профиль | | #4 Добавлено: 07.11.03 10:33
Все ясно. Спасибо.

Ответить

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



Вопросов: 58
Ответов: 201
  Профиль | | #5 Добавлено: 07.11.03 15:47
Делаю:
Dim dbCmd As New OleDb.OleDbCommand _
("INSERT INTO Data (Data.Date, Data.Imp, Data.Theme,
Data.Message) VALUES (#7.11.2003#, 1, 'Тема', 'Первая запись'")

Dim AConn As OleDb.OleDbConnection = New OleDb.OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & GCDir() &
"Data.mdb")
AConn.Open()
dbCmd.Connection = AConn
dbCmd.ExecuteNonQuery()
Говорит: Ошибка синтаксиса в инструкции INSERT INTO
:((

Ответить

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



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
  Web-сайт: www.vbnet.ru
 Профиль | | #6 		Добавлено: 07.11.03 15:52
Попробуй поиграться с форматом даты. Обычно засада в этом, а так вроде
всё должно быть Ok.

Кстати, если используется SQLServer, то в коллекции Errors класса
SqlError можно посмотреть детальное описание ошибки. В OleDb такое
есть?

Ответить

Номер ответа: 7
Автор ответа:
 Maxik



Вопросов: 58
Ответов: 201
  Профиль | | #7 Добавлено: 10.11.03 05:23
Думаю ты прав. Меняю разделители, текст ошибки меняется.
Может использовать текст, в место даты?
Есть OleDbError и OleDbErrorCollection.
Только я ими ни разу не пользовался. Надо порыться.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам