VBNet - Форум - Помогите пожалуйста с ACCESSOM

Вопрос: Помогите пожалуйста с ACCESSOM Добавлено: 11.08.05 18:23

Автор вопроса: Роман

Здравствуйте!
У меня вот какая проблемка возникла,Была создана база данных,после чего на Visual Basic были созданы формы,в одной из них через DataGrid возможно просмотреть базу как обычно.Так же через DataGrid можно добавить в базу новые данные.
Но вроде бы все хорошо,и все получается, вот только есть одно Но.
А именно через другую форму в которой находятся текстовые поля и один ComboBox(для выбора данных из списка) нужно данные которые пользователь введет в тестовые поля добавить в базу данных.
Что я только не делал,не чего не получается:(
Please погите начинающему,вроде делал все как в книге написано,а выдает ошибку хоть убейся(Ошибка синтаксиса в инструкци INSERT INTO)
Так же предоставляю листинг где происходит ошибка

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'После проверки заполнения текстовых полей, после нажатия кнопки "OK" данные добовляются в базу данных через DataGrid
        If (Trim(TextBox1.Text) = " ") Then
            MsgBox("Не Задан Порядковый Номер") : Exit Sub
        End If
        If (Trim(TextBox2.Text) = " ") Then
            MsgBox("Не задан Жанр Книги") : Exit Sub
        End If
        If (Trim(TextBox3.Text) = " ") Then
            MsgBox("Не задано Название книги") : Exit Sub
        End If
        If (Trim(ComboBox1.Text) = " ") Then
            MsgBox("Не задан Автор Книги") : Exit Sub
        End If
        If (Trim(TextBox5.Text) = " ") Then
            MsgBox("Не задано Название Рассказа") : Exit Sub
        End If
        If (Trim(TextBox7.Text) = " ") Then
            MsgBox("Не задано № Полки Книги") : Exit Sub
        End If
        If (Trim(TextBox9.Text) = " ") Then
            MsgBox("Не задан Год Выпуска Книги") : Exit Sub
        End If
        If (Trim(TextBox10.Text) = " ") Then
            MsgBox("Не задано Содержание Книги") : Exit Sub
        End If
        Dim sSQL As String
        sSQL = "INSERT INTO Spravochnik" & "([N Порядковый Номер]. [№ Полки]. [№ Книги]. Жанр. [Название Книги]. [Год Выпуска]. Содержание. [Название Рассказа]. Примечание1. Комментарий. Примечание2, Код)" & _ "VALUES (" & TextBox1.Text & ",'" & TextBox7.Text & "'," & TextBox8.Text & ",'" & _ TextBox2.Text & "','" & TextBox3.Text & "'," & TextBox9.Text & ",'" & _ TextBox10.Text & "','" & TextBox5.Text & "','" & TextBox11.Text & "','" & _ TextBox6.Text & "','" & TextBox12.Text & "','" & ComboBox1.Text & "') "
        Try
            ExecSQL(sSQL)
            Me.DialogResult = DialogResult.OK
            Close()
        Catch myExeption As Exception
            MsgBox(myExeption.Message)
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Процедура кнопки Отмена
        Me.DialogResult = DialogResult.Cancel
        Close()
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub Dobavity_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Заранее благодарен
Ответить

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

Номер ответа: 1 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #1	Добавлено: 12.08.05 02:07
	Эээ... Дык запятыми поля разделяются, а не точками... Ответить

Номер ответа: 2 Автор ответа: Роман Вопросов: 9 Ответов: 1	Профиль \| \| #2	Добавлено: 17.08.05 11:42
	Спасибо за ответ,но когда поставил запятые он выдал ошибку что нет колонки "N Порядковый номер" убрал ее,вывел что не может найти "№ Полки". Все понять не могу в чем проблема((((( Может я что-то не правельно прописал Ответить

Номер ответа: 3 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182	Профиль \| \| #3	Добавлено: 23.08.05 12:36
	Поставь контрольную точку где пибудь в процедуре и добывь в Watch свой запрос. Ты увидишь что передаешь базе. Возможно твой запрос превышает 255 символов.А эти поля - N Порядковый номер и т.д. действительно так в базе и называются? Обычно для обзывания полей пользуются латиницей. Ответить

Страница: 1 |