Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Как открыть базу данных при помощи DAO с исполь... Добавлено: 16.02.04 02:51  

Автор вопроса:  агент x-com

Помогите, пожалуйста, кто может. Я открываю программно базу данных, для создания таблицы программно. БД в 2000 аксессе, а след. из Micrsoft Jet ее читает только OLE DB 4.0. Вопрос, как програмно открыть БДс исп. этого провайдера или как по-другому создать программно таблицу? Заранее спасибо.

Ответить

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

Номер ответа: 1
Автор ответа:
 POMAH



ICQ: 223-574-928 

Вопросов: 0
Ответов: 16
 Профиль | | #1 Добавлено: 16.02.04 11:26

Лучше использовать ADO.

dim cn as New ADODB.Connection

cn.Provider="Microsoft.Jet.OLEDB.4.0"

cn.ConnectionString="c:\Temp\MyDB.mdb"

cn.Open

Вот и установлено соединение с БД

теперь для работы с таблицами (уже созданными) понадобится набор записей - RecordSet:

dim rs as New ADODB.RecordSet

rs.ActiveConnection=cn

rs.Source="select * from table1"

rs.Open

для создания новой таблицы, наверное необходимо использовать SQL-statements

dim strSQL as string

strSQL="Create table Имя_таблицы " & _

             "([Поле1] Text (2) " & _

             "[Поле2] Byte)"

и выполнить сей запрос cn.Execute(strSQL)

 

Ответить

Номер ответа: 2
Автор ответа:
 агент x-com



Вопросов: 7
Ответов: 9
 Профиль | | #2 Добавлено: 16.02.04 15:45

Большое спасибо,  вы очень помогли.

Ответить

Номер ответа: 3
Автор ответа:
 агент x-com



Вопросов: 7
Ответов: 9
 Профиль | | #3 Добавлено: 16.02.04 21:15

Еще раз, спасибо, все работает. Даже лучше, но почемку я спрашивал DAO - в SQL нельзя использовать переменные в кач-ве имени таблицы, а оно нужно именно из переменной. Есть ли какой-нибудь обходной путь?

Ответить

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



Вопросов: 3
Ответов: 122
 Профиль | | #4 Добавлено: 16.02.04 22:49

Это тоже очень просто. Объявление переменной и приписывание значений для нее происходит в VB, а затем имя передается в SQL комманду:

Dim sTblName as string

...

sTblName="МояПерваяТаблица"

...

strSQL="create table " & sTblName & " ([Column1] text(2), [Column2] byte)"

 

Ответить

Страница: 1 |

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



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