• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

[Hỏi] Cách xác định primekey ?

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Hỏi] Cách xác định primekey ?
• [Hỏi] Cách xác định primekey ?

• [Hỏi] Cách xác định primekey ?

  suzuki_130 > 23-04-12, 11:32 AM

  Thông thường thì primekey nó nằm dòng đầu tiên trong thiết kế table , nhưng đôi khi nó lại ko phải nằm đầu tiên . Em xin hỏi các nhận biết chính xác nhất để xác định primekey là cách nào vậy ạ .

• RE: [Hỏi] Cách xác định primekey ?

  Noname > 23-04-12, 11:39 AM

  primekey hay khóa chính được thiết lập do người tạo ra. các field là khóa chính có biểu tượng cái chìa khóa (xem hình).
  
  
  Và đã gọi là khóa thì nhất thiết nó phải đạt hai điều kiện sau:
  - Not Null
  - Không bị "đụng hàng" với bất cứ record nào khác. Tức là nó là duy nhất.

• RE: [Hỏi] Cách xác định primekey ?

  suzuki_130 > 23-04-12, 11:44 AM

  Em khó hình dung ra quá Noname ơi .

• RE: [Hỏi] Cách xác định primekey ?

  Noname > 23-04-12, 11:50 AM

  Xem hình mà còn bảo khó hình dung thì chỉ có cách bạn tạo 1 file Access, tự tạo khóa cho mình. Nhập liệu thử....may ra hình dung được!
  Chúc thành công

• RE: [Hỏi] Cách xác định primekey ?

  domfootwear > 23-04-12, 11:57 AM

  (23-04-12, 11:32 AM)suzuki_130 Đã viết: Thông thường thì primekey nó nằm dòng đầu tiên trong thiết kế table , nhưng đôi khi nó lại ko phải nằm đầu tiên . Em xin hỏi các nhận biết chính xác nhất để xác định primekey là cách nào vậy ạ .

  
  Hàm xác định Primary key của 1 bảng bất kỳ như sau:
  
  

  Mã PHP:

  Function return_primary_keys(ByVal lsTableName As String) As String
Dim ldbCurrent As Database
Dim ltTable As TableDef
Dim lsFieldNames As String
Dim i, j As Integer
Const lsSeperator = ", "

Set ldbCurrent = CurrentDb()
Set ltTable = ldbCurrent.TableDefs(lsTableName)
lsFieldNames = ""
For i = 0 To ltTable.Indexes.Count - 1
If ltTable.Indexes(i).Primary = True Then
For j = 0 To ltTable.Indexes(i).Fields.Count - 1
If lsFieldNames & "" <> "" Then
lsFieldNames = lsFieldNames & lsSeperator & ltTable.Indexes(i).Fields(j).Name
Else
lsFieldNames = lsFieldNames & ltTable.Indexes(i).Fields(j).Name
End If
Next j
return_primary_keys = Trim(lsFieldNames)
MsgBox return_primary_keys
Exit For
End If
Next i

ldbCurrent.Close

End Function 


  Cú Pháp:return_primary_keys(TenBang)
  Ví dụ: return_primary_keys("Table1")
• Bài trước Bài tiếp