как сохранить изменения в базе?

[mse]

Помоги, как сохранить изменения в базе? Вроде правильно а не работает(

Код: Выделить всё

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

        Me.URLTableTableAdapter.Fill(Me.PasswordsDataBaseDataSet.URLTable)


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Data As DataRow = PasswordsDataBaseDataSet.URLTable.NewURLTableRow

        Data("login") = "test"
        Data("password") = "test"
        Data("url") = "www.microsft.com"

        PasswordsDataBaseDataSet.Tables("URLTable").Rows.Add(Data)


        Me.URLTableBindingSource.EndEdit()
        Me.URLTableTableAdapter.Update(PasswordsDataBaseDataSet.URLTable)

    End Sub

[Sebas]

почитай про CommandBuilder

[mse]

Всеровно не получается...!!!

[temur]

Код: Выделить всё

IF PasswordsDataBaseDataSet.HasChanged Then
Me.URLTableTableAdapter.Update(PasswordsDataBaseDataSet.URLTable.GetChanges)
End if

[mse]

Вот млин. Все ровно не получается.
Можёт проблема в том, как я добавляю элементы?! Если не сложно ты выложите тестовый какой-то проект.

[temur]

Попробуй так.

Код: Выделить всё

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.URLTableTableAdapter.Fill(Me.PasswordsDataBaseDataSet.URLTable)
End Sub

   
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'добавление нового РОВ.       
Me.PasswordsDataBaseDataSet.URLTable.Rows.Add(New Object()  { "test" , "test"  , "www.microsft.com"  })

        PasswordsDataBaseDataSet.Tables("URLTable").Rows.Add(Data)

        Me.URLTableBindingSource.EndEdit()
       IF PasswordsDataBaseDataSet.HasChanged Then
Me.URLTableTableAdapter.Update(PasswordsDataBaseDataSet.URLTable.GetChanges)
End if
End Sub

[mse]

А ты про сам попробуй это откомп...

[temur]

Извини немного перепутал...

Код: Выделить всё

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.URLTableTableAdapter.Fill(Me.PasswordsDataBaseDataSet.URLTable)
End Sub

   
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'добавление нового РОВ.       
Me.PasswordsDataBaseDataSet.URLTable.Rows.Add(New Object()  { "test" , "test"  , "www.microsft.com"  })

       Me.URLTableBindingSource.EndEdit()
       IF PasswordsDataBaseDataSet.HasChanged Then
           Me.URLTableTableAdapter.Update(PasswordsDataBaseDataSet.URLTable.GetChanges)
       End if
End Sub

или

Код: Выделить всё

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'добавление нового РОВ.   как и было у тебя
   Dim Data As DataRow = PasswordsDataBaseDataSet.URLTable.NewURLTableRow

        Data("login") = "test"
        Data("password") = "test"
        Data("url") = "www.microsft.com"

        Me.PasswordsDataBaseDataSet.URLTable.Rows.Add(Data)

       Me.URLTableBindingSource.EndEdit()
       IF PasswordsDataBaseDataSet.HasChanged Then
           Me.URLTableTableAdapter.Update(PasswordsDataBaseDataSet.URLTable.GetChanges)
       End if
End Sub

И еще длина масива Object должна совпадать с количеством столбцов в ДатаСете
Если не поможет попробуй Функцию обновления так

Код: Выделить всё

Me.URLTableTableAdapter.Update(PasswordsDataBaseDataSet.URLTable.GetChanges(DataRowState.Added))

[mse]

Да чёто вообше не фига не получается

[temur]

Вот пример попробуй.

[FAER]

Мне кажется, это можно организовать несколько проще, чем в выложенной выше проге.

[temur]

Да знаю (О биндингах мне известно, если ты об этом). Но задача тут в том, чтобы проилюстрировать работоспособность вышеуказанного Кода.

[FAER]

Иллюстрация весьма наглядная)

[mse]

Ну, если можно то давайте проще. Мне это как раз.

[temur]

Так у тбя заработало или нет?

[mse]

Ну твой семпел да. А моё нет не могу понять в чём тарбл... Может из за адаптера?( Что то не так прицепил... Я же типа в ручную цеплял базу а не через код.

[temur]

Вышли свой сампл разберемся.

[temur]

Какую ошибку пишет?

[mse]

Да прикол в том что оно вообще нечего не сохраняет + вылетает когда ещё ров с теме же данными.

[temur]

Закинь базу в SQL и после

Код: Выделить всё

If Me.PasswordsDataBaseDataSet.HasChanges Then
            Me.URLTableTableAdapter.Update(PasswordsDataBaseDataSet.URLTable.GetChanges)
End If

добавь

Код: Выделить всё

PasswordsDataBaseDataSet.AcceptChanges()

или зделай через Access

[mse]

Всмысле ? "Закинь базу в SQL и после "

[temur]

В Смысле у тебя файл базы SQL (*.mdf). и ты подключаешся с помошью Microsoft SQL SERVER DataBase File. Вставь эти файлы в SQL (Databases All Tasks-> Atach database) и подключись с помошью драйвера Microsoft SQL SERVER или переделай базу на Access (*.mdb). У меня тоже не работает через Microsoft SQL SERVER DataBase File.

[mse]

Через Microsoft SQL Server (SqlClient) не хочет работать и вообше получатся не атачится.

А с Microsoft SQL Server Database File (SqlClient) тоже получается тарабл как был изначально...

[temur]

Создай в SQL новую базу и создай в ней новую подобную таблицу.

[mse]

Ну получается делаю я новую базу в Microsoft SQL Server Database File и нех…. Не работает(
А в Microsoft SQL Server (SqlClient) не могу сделать так как не догоняю как там ёё сделать…

Давай в icq расскажешь.
Короче или я тормоз или я не знаю.

[temur]

ICQ: 266277249
Skype: temur_b