title image


Smiley Re: VB 2005: Datensatz in ADO.net hinzufügen
Hi,

ich habe nun Daten hinzugefügt, aber festgestellt, daß der FILL-Befehl teilweise so 60-120 Sekunden braucht, bis der weitergeht. Wie kann ich das verbessern ?

Ich füge erstmal einen Datensatz der DB zu, später soll es ein Rutsch für Tausende werden. Hier mal mein Code:



'Hinzufügen zu Kurse

Dim LStr_SQL_Text As String, LStr_DatenbankName As String

AktienKurse_uebernehmen(True)

'SQL-Anweisung festlegen

LStr_SQL_Text = "Select * from AKTIENKURSE where NR=" & Str$(Daten.NR)

'Connection erstellen

Dim ConnString As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=" + LStr_DatenbankName

Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)

'DataSet erzeugen

Dim objDataSet As New DataSet

Dim objDataAdapter As System.Data.OleDb.OleDbDataAdapter

objDataSet = New DataSet

'Adapter definieren

objDataAdapter = New OleDb.OleDbDataAdapter(LStr_SQL_Text, OleDbConn)

Debug.Print("add vorher:" + Format$(Now, "hh:mm:ss"))

objDataAdapter.Fill(objDataSet, "AKTIENKURSE") <----------- dauert !!!!!

Debug.Print("add nachher:" + Format$(Now, "hh:mm:ss"))

'Füllen der Zeile

Dim Row As DataRow = objDataSet.Tables("AKTIENKURSE").NewRow()

With Row

.Item("NR") = GT_AktienKurs_Daten.NR ' Long

.Item("AKTIENFIRMA") = GT_AktienKurs_Daten.AKTIENFIRMA

(hier ca. 20 Datenfelder)

End With

Dim cb As New OleDb.OleDbCommandBuilder(objDataAdapter)

BindingContext(objDataSet).EndCurrentEdit()

objDataSet.Tables("AKTIENKURSE").Rows.Add(Row)

objDataAdapter.Update(objDataSet, "AKTIENKURSE")


Mit freundlichen Grüßen Martin

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: