|
|
Visual Basic .NETSORGENTI - DATABASE - CERCA LA CHIAVE PRIMARIA DI UNA TABELLA Private Function FindPrimaryKey(tbl As ADOX.Table) As Variant Dim idx As ADOX.Index For Each idx In tbl.Indexes If idx.PrimaryKey Then FindPrimaryKey = idx.Name Exit Function End If Next idx FindPrimaryKey = Null End Function |