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