Visual Basic

Private Sub Command1_Click()
    
    Dim NomeDaCercare As String
    NomeDaCercare = InputBox$("Enter the name to search:", "Ricerca clienti")
    If NomeDaCercare <> "" Then
        Data1.Recordset.Index = "Nome"
        Data1.Recordset.Seek "=", NomeDaCercare
        If Data1.Recordset.NoMatch Then
            Data1.Recordset.MoveFirst
            Data1.Refresh
            MsgBox "Name not found", vbInformation, Me.Caption
            Text1.Enabled = False
        Text2.Enabled = False
        Text3.Enabled = False
        Text4.Enabled = False
        Text5.Enabled = False
        Text6.Enabled = False
        End If
    End If
End Sub

Private Sub Props()

        Dim sSql As String = "SELECT * from MyTable"

        Dim da As New SqlClient.SqlDataAdapter(sSql, conSQL)

        conSQL.Open()

        Dim ds As New DataSet
        da.Fill(ds)

        Dim sb As New StringBuilder
        Dim tbl As DataTable = ds.Tables(0)

        For Each col As DataColumn In tbl.Columns

            myProperties(0) = col.DataType.ToString()'I get correct values here
            myProperties(1) = col.MaxLength.ToString()' this return -1 for chars and varchars

        Next

End Sub

Private Sub GetPKFK(ByVal myTable as DataTable)

'code here to tell me the PK field and all FK fields in it
'would be great if I also get the names of tables the table/FK's relate to

End Sub

Private Sub GetPKFK(ByVal myTable as DataTable)
        Dim myRelation As DataRelation
        Dim arrRows() As DataRow
        Dim myRow As DataRow
        Dim i As Integer
        Dim myColumn As DataColumn

        For Each myRelation In myTable.ChildRelations
            For Each myRow In myTable.Rows
                arrRows = myRow.GetChildRows(myRelation, DataRowVersion.Proposed)
                ' Print values of rows.
                For i = 0 To arrRows.GetUpperBound(0)
                    For Each myColumn In myTable.Columns
                        Console.WriteLine(arrRows(i)(myColumn))
                    Next myColumn
                Next i
            Next myRow
        Next myRelation
End Sub

For Each Item As ListViewItem In ListView1.Items
    If Item.Selected Then
        MessageBox.Show(Item.Text & "|" & True & vbCrLf)
    Else
        MessageBox.Show(Item.Text & "|" & False & vbCrLf)
    End If
Next

For Each Item As Object In ListBox1.Items
    If Item.Selected Then
        MessageBox.Show(Item.Text & "|" & True & vbCrLf)
    Else
        MessageBox.Show(Item.Text & "|" & False & vbCrLf)
    End If
Next