>>>> Public Sub testConnections2() >>>> Dim cmd As New OleDbCommand >>>> Dim da As New OleDbDataAdapter(cmd) >>>> Dim conn As New OleDbConnection >>>> Dim dt As New DataTable >>>> conn.ConnectionString = My.Settings.b040_beConnectionString >>>> conn.Open() >>>> cmd.Connection = conn >>>> Dim n As Long >>>> Dim t As Date = Now >>>> For i As Integer = 1 To 100 >>>> cmd.CommandText = "select Art_id from Artikel where Art_nr = ' 125'" >>>> n = cmd.ExecuteScalar() >>>> cmd.CommandText = "select * from artikel where Art_Nr = ' 125'" >>>> da.Fill(dt) >>>> Next >>>> Debug.Print((Now() - t).ToString) >>>> End Sub >>>> Public Sub testConnections3() >>>> Dim cmd As New OleDbCommand >>>> Dim da As New OleDbDataAdapter(cmd) >>>> Dim conn As New OleDbConnection >>>> Dim dt As New DataTable >>>> conn.ConnectionString = My.Settings.b040_beConnectionString >>>> cmd.Connection = conn >>>> Dim n As Long >>>> Dim t As Date = Now >>>> For i As Integer = 1 To 100 >>>> conn.Open() >>>> cmd.CommandText = "select Art_id from Artikel where Art_nr = ' 125'" >>>> n = cmd.ExecuteScalar() >>>> cmd.CommandText = "select * from artikel where Art_Nr = ' 125'" >>>> da.Fill(dt) >>>> conn.Close() >>>> Next >>>> Debug.Print((Now() - t).ToString) >>>> End Sub >>>>>>>
>>> cmd.CommandText = "select Art_id from Artikel where Art_nr = ' 125'" >>> n = cmd.ExecuteScalar() >>> cmd.CommandText = "select * from artikel where Art_Nr = ' 125'" >>> da.Fill(dt) >>>
System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection(connectionString); > > System.Diagnostics.Stopwatch sw = new System.Diagnostics.Stopwatch(); > sw.Start(); > conn.Open(); > conn.Close(); > Console.WriteLine(sw.ElapsedTicks); > for (int x = 0 ; x <1000; x++) > { > conn.Open(); > conn.Close(); > } > Console.WriteLine(sw.ElapsedTicks);>1756136