Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание и удаление таблиц в БД, В VB 
:(
    Опции темы
DimkraS
Дата 20.2.2007, 21:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 22.5.2006

Репутация: нет
Всего: 3
Как программно создать либо удолить таблицу, уже в готовой БД(Accsess)?  smile 
На форуме искал, ненашол.

--------------------
PM MAIL   Вверх
Akina
Дата 20.2.2007, 23:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
А справку встроенную посмотреть религия не позволила? 

Создание выполняется TSQL-командой CREATE TABLE
Удаление - соответственно DROP TABLE


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
DimkraS
Дата 21.2.2007, 06:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 22.5.2006

Репутация: нет
Всего: 3
Справка не пашет
Эти команды я знаю, но преминить неполучаецца.

Код

Private Sub Command1_Click()
    imy = Text1.Text
    Create Table imy (nomervop(50) Text, vopros(50) TEXT, kolvarot(50) TEXT, klasot(50) TEXT, Var1(50) TEXT, Var2(50) TEXT, Var3(50) TEXT, Var4(50) TEXT, Var5(50) TEXT, Var6(50) TEXT, Var7(50) TEXT, Var8(50) TEXT, Var1b1(50) TEXT, Var2b2(50) TEXT, Var3b3(50) TEXT, Var4b4(50) TEXT, Var5b5(50) TEXT, Var6b6(50) TEXT, Var7b7(50) TEXT, Var8b8(50) TEXT)
End Sub

во знаю что неправильно, но как зделать?

Это сообщение отредактировал(а) DimkraS - 21.2.2007, 09:09
--------------------
PM MAIL   Вверх
DimkraS
Дата 24.2.2007, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 22.5.2006

Репутация: нет
Всего: 3
Ну чё никто не знает чтоль? Я ADO использую
--------------------
PM MAIL   Вверх
Dexx
Дата 24.2.2007, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7
Что то типа того
Код


Dim cn As New ADODB.Connection

cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;Data Source=SomeSQLServer" ' Открываем набор записей
cn.Execute ("Create Table...")
.....





 


--------------------
PM   Вверх
DimkraS
Дата 24.2.2007, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 22.5.2006

Репутация: нет
Всего: 3
Dexx, большое спасибо smile 
--------------------
PM MAIL   Вверх
DimkraS
Дата 27.2.2007, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 22.5.2006

Репутация: нет
Всего: 3
Код

    Dim cn As New ADODB.Connection
    imy = Text1.Text
    cn.ConnectionString = "Provider=Microsoft.jet.OLEDB.3.51; Data Source=D:\[Проэкты]\Тест МХ бд\bd.mdb"
    cn.ConnectionString = "Driver=Microsoft Access Driver (*.mdb); DBQ=D:\[Проэкты]\Тест МХ бд\bd.mdb"
    cn.Open "bd.mdb"
    cn.Execute ("Create Table imy (nomervop, vopros, kolvarot, klasot, Var1, Var2, Var3, Var4, Var5, Var6, Var7, Var8, Var1b1, Var2b2, Var3b3, Var4b4, Var5b5, Var6b6, Var7b7, Var8b8)")
    cn.Close


Найдите ошибку(и) плз
--------------------
PM MAIL   Вверх
Dexx
Дата 27.2.2007, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7
Вот так у меня работает! На 100%
Код

Sub main()

Dim db As ADODB.Connection
    imy = "MyTable"
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;"
  db.Execute " Create Table " & imy & " (VAR string) ;"
 
 db.Close

End Sub



Создается таблица с одним полем VAR тип строка.
Надеюсь исчерпывающий ответ!


--------------------
PM   Вверх
DimkraS
Дата 27.2.2007, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 22.5.2006

Репутация: нет
Всего: 3
Всё запахало =) Терь я понял как с этим работать
Dexx огромнейшее спасибо. 
Тока у меня ругалось на строку  Set db = New Connection, я сделал так Set db = New ADODB.Connection
Ещё раз спасибо
--------------------
PM MAIL   Вверх
Akina
Дата 28.2.2007, 00:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(DimkraS @  27.2.2007,  21:48 Найти цитируемый пост)
у меня ругалось на строку  Set db = New Connection, я сделал так Set db = New ADODB.Connection

Это - следствие того, что ADO-либа в референсах есть, а DAO - нет.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0534 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.