次のコードを使用して、データベース列のリストを反復処理しています。
adapter = New SqlDataAdapter("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = '" & i & "'", connection)
Dim ds_cols As New DataSet
adapter.Fill(ds_cols)
For Each c As DataRow In ds_cols.Tables(0).Rows
'doing lots of things in here
Next
ここで、分析している現在の列がID列であるかどうかを知るために、データベースにクエリを実行する(または既存のデータベースを編集する)必要があります。
ありがとうございました