' Create a suitable DataAdapter object for a given connection object.' Example:' Dim da As DbDataAdapter = CreateDataAdapter(cn, "SELECT * FROM Titles")Function CreateDataAdapter(ByVal cn As IDbConnection, _ ByVal sql As String) As DbDataAdapter ' We must box CN to invoke the GetType method. Dim cnType As Type = CObj(cn).GetType() ' The complete name of the assembly where the connection is defined. Dim asmName As String = CObj(cn).GetType().Assembly.FullName ' The complete names of the DataAdapter and CommandBuilder objects Dim daTypeName As String = cnType.FullName.Replace("Connection", _ "DataAdapter") ' Create the DataAdapter via Reflection. Dim daType As Type = Type.GetType(daTypeName & "," & asmName) Dim args() As Object = {sql, cn} Dim da As DbDataAdapter = DirectCast(Activator.CreateInstance(daType, args), _ DbDataAdapter) ' Create the CommandBuilder via reflection. Dim cbTypeName As String = cnType.FullName.Replace("Connection", _ "CommandBuilder") Dim cbType As Type = Type.GetType(cbTypeName & "," & asmName) Dim args2() As Object = {da} Dim cb As Object = Activator.CreateInstance(cbType, args2) Return daEnd Function
Top Careers at Microsoft
February 3, 2023
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job
