пробовал с помощью конструктора, потом добавлял это для сохранения:
ULTableAdapter.Update(Me.BasaDataSet)
ULTableAdapter.Update(BasaDataSet)
ULTableAdapter.Update(DirectCast(DataGridView1.DataSource, basaDataSet))
эти три не работают.
эсть и такой варинат, тока как теперь данные из DataGridView1 опять в базу поместить и сохранить?
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Termofol\Заказ материала\basa.mdb")
conn.Open()
Dim cmd As New OleDbCommand("SELECT * FROM UL", conn)
Dim DR As OleDbDataReader = cmd.ExecuteReader()
DataGridView1.DataSource = cmd.ExecuteReader
Do While DR.Read()
If DataGridView1.Columns.Count <= 0 Then
'добавляем колонки
For i As Integer = 1 To DR.FieldCount
Dim c As New DataGridViewTextBoxColumn()
c.HeaderText = "Колонка " & i.ToString()
DataGridView1.Columns.Add(c)
Next
End If
Dim r As New DataGridViewRow()
For i As Integer = 0 To DR.FieldCount - 1
Dim cel As New DataGridViewTextBoxCell()
cel.Value = DR(i)
r.Cells.Add(cel)
Next
DataGridView1.Rows.Add(r)
Application.DoEvents() 'чтоб не зависнуть
Loop
End Using
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Termofol\Заказ материала\basa.mdb")
'Сохранить
Dim SelectText1
Dim adapter
SelectText1 = "SELECT * FROM UL"
adapter = New OleDbDataAdapter(SelectText1, conn)
Dim ds As New DataSet()
adapter.Fill(ds)
conn.Open()
adapter.Update(ds)
conn.Close()
End Using
Williams писал(а):Обычно это так:
DataAdapter.Update(DataSet)