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