Не создается таблица в Access DB файле.
Сначала создается access DB файл; следом создается таблица member. Далее на форме человеку предлагается вписать своем имя в TextBox1 и нажав кнопку Button1 создать одноименное поле в таблице member.
Ошибка возникает на этапе попытки создания таблицы. Подскажите, пожалуйста.
http://i9.fastpic.ru/big/2010/0829/59/3 ... f7e259.jpg
- Код: Выделить всё
Imports SYSTEM.DATA.OleDb
Imports SYSTEM.Windows.Forms
Imports SYSTEM.IO
Public Class Form1
DIM n AS INTEGER
DIM myFRead AS FileStream
DIM textFRead AS StreamReader
DIM x AS INTEGER
Private SUB Form1_Load(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles MyBase.Load
TextBox1.Text = Nothing
Button1.Text = "Далее"
DIM cat AS New ADOX.Catalog
Try
cat.Create("Provider=Microsoft.ACE.OleDb.12.0; Data Source=""C:\DB_organon.accdb""")
Catch ex AS Runtime.InteropServices.COMException
MessageBox.Show("База данных создана")
Finally
END Try
DIM CON = New OleDbConnection("Provider=Microsoft.ACE.OleDb.12.0; Data Source=""C:\DB_organon.accdb""")
CON.OPEN()
DIM COMMAND AS New OleDbCommand("CREATE TABLE member", CON)
Try
COMMAND.ExecuteNonQuery()
MessageBox.Show("Таблица создана")
Catch ex AS Exception
MessageBox.Show("Таблица не создана")
END Try
END SUB
Private SUB Button1_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles Button1.Click
DIM CON = New OleDbConnection("Provider=Microsoft.ACE.OleDb.12.0; Data Source=""C:\DB_organon.accdb""")
CON.OPEN()
DIM COMMAND2 AS New OleDbCommand("INSERT INTO member (" & TextBox1.Text & ")", CON)
COMMAND2.Connection = CON
Try
COMMAND2.ExecuteNonQuery()
MessageBox.Show("Поле вставлено")
Catch ex AS Exception
MessageBox.Show("Поле не вставлено")
END Try
CON.CLOSE()
END SUB
END Class
