Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Создание и удаление таблиц в БД

Автор: DimkraS 20.2.2007, 21:25

Как программно создать либо удолить таблицу, уже в готовой БД(Accsess)? smile

На форуме искал, ненашол.

Автор: Akina 20.2.2007, 23:43

А справку встроенную посмотреть религия не позволила?

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

Автор: DimkraS 21.2.2007, 06:22

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

Код


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 24.2.2007, 12:56

Ну чё никто не знает чтоль? Я ADO использую

Автор: Dexx 24.2.2007, 15:52

Что то типа того

Код



Dim cn As New ADODB.Connection

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

Автор: DimkraS 24.2.2007, 18:10

Dexx, большое спасибо smile

Автор: DimkraS 27.2.2007, 16:41

Код


    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

Найдите ошибку(и) плз

Автор: Dexx 27.2.2007, 18:14

Вот так у меня работает! На 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 тип строка.
Надеюсь исчерпывающий ответ!

Автор: DimkraS 27.2.2007, 20:48

Всё запахало =) Терь я понял как с этим работать
Dexx огромнейшее спасибо.
Тока у меня ругалось на строку Set db = New Connection, я сделал так Set db = New ADODB.Connection
Ещё раз спасибо

Автор: Akina 28.2.2007, 00:02

Цитата(DimkraS @ 27.2.2007, 21:48

)

у меня ругалось на строку Set db = New Connection, я сделал так Set db = New ADODB.Connection

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