Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strConn As String Dim objConn As OleDbConnection Dim objAdp As OleDbDataAdapter Dim objTbl As New DataTable Dim strSql As String Dim objRow As DataRow
主キーの情報をデータベースから取得してみて下さい。 [VB.NET] objAdp.MissingSchemaAction = MissingSchemaAction.AddWithKey objAdp.Fill(objTbl) If objTbl.PrimaryKey.Length = 0 Then MessageBox.Show("主キーの情報を取得できませんでした。", "データベース検索", MessageBoxButtons.OK, MessageBoxIcon.Error) End If