Visual Basic

When the propety "connected" (Boolean type) is nothing...

Private Function IsNull(ByRef obj As Object, ByVal prop As String) As Boolean
    Dim memberInfos() As MemberInfo = obj.GetType().GetMember(prop, BindingFlags.Instance Or BindingFlags.Public)
    If memberInfos.Length > 0 Then
        For Each mi As MemberInfo In memberInfos
            Debug.WriteLine(String.Format("Object Declaring Type: {0}", mi.DeclaringType.ToString()))
            Debug.WriteLine(String.Format("Object Reflected Type: {0}", mi.ReflectedType.ToString()))
            Debug.WriteLine(String.Format("    {0} is a {1}", mi.Name, mi.MemberType.ToString()))
            Select Case mi.MemberType
                Case MemberTypes.Property
                    Dim pi As PropertyInfo = obj.GetType().GetProperty(prop)
                    Dim v As Object = Nothing
                    v = pi.GetValue(obj, Nothing)
                    Debug.WriteLine(String.Format("    Value: {0} ({1})", v, pi.PropertyType().ToString()))
                    If v Is Nothing Then
                        Return True
                    Else
                        Return False
                    End If
            End Select
        Next
    Else
        Throw New InvalidArgumentException("Property name not found!")
    End If
End Function

PictureBox1.Image.Save(filepath)

Dim conn As New SqlConnection(connectionString)
Dim da As New SqlDataAdapter("SELECT RecId, Name, Address FROM Customers", conn)
Dim cb As New SqlCommandBuilder(da)
da.InsertCommand = cb.GetInsertCommand()

Zaegra wrote:

this forum isn't meant for such stupid answers

b3t1m0s wrote:

I am ask xperts not