|
dobrý den, vím že to tu už bylo. Právě proto mám takový dotaz. použil jsem kód
Imports System.Data.OleDb
Public Class Form1
Private da As OleDbDataAdapter
Private dt As DataTable = New DataTable 'tabulka s daty v paměti
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
'nastavit připojení k databázi a SQL příkaz
Dim strConn As String = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Nwind.mdb;"
Dim strQuery As String = "Select * from Products"
Dim conn As OleDbConnection = New OleDbConnection(strConn)
'pomocí DataAdapteru nahrát data do DataTable
da = New OleDbDataAdapter(strQuery, conn)
da.Fill(dt)
'nastavit DataTable jako zdroj dat
DataGridView1.DataSource = dt
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
'uložit změny do databáze (musí se vytvořit SQL příkazy)
Dim cmd As OleDbCommandBuilder = New OleDbCommandBuilder(da)
da.Update(dt)
dt.AcceptChanges()
End Sub
End Class
který byl uderejnen v listopadu na techto stránkách, ale bohužel nevím čím to je se mi při spuštění ukazuje error u příkazu "da.Update(dt)" vyhodí hlášku "Dynamic SQL generation for the UpdateCommand is not supported against a SelectCommand that does not return any key column information" , uz nad tím bádám týden a netuším čím to může být.... prosím pomozte nekdo, mam .net VB 2005 , nemůže to být jen nejakým nastavením?
|