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