>>>>>> 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