Hallo Forum,was mache ich falsch in der Funktion?Obwohl kommt keine Fehlermeldung und die DataTable ist nicht leer, bleibt Datenbank aber leer... Public Function setAllDataFromDataTable( _ ByVal tabelle As DataTable, _ ByVal tab_name As String) As Boolean Dim bReturn As Boolean = False Dim DT As DataTable = Nothing Dim abfrage As String Dim DA As OleDbDataAdapter Dim CMD As OleDb.OleDbCommandBuilder Try abfrage = "SELECT * FROM " & tab_name DA = New OleDbDataAdapter(abfrage, myConnection) CMD = New OleDb.OleDbCommandBuilder(DA) DA.InsertCommand = CMD.GetInsertCommand DA.MissingSchemaAction = MissingSchemaAction.AddWithKey DA.AcceptChangesDuringUpdate = True DA.Update(tabelle) bReturn = True Catch ex As Exception bReturn = False End Try Return bReturn End Function



geschrieben von rostov , 16.02.2008, 15:58 Uhr , 75 mal gelesen