Tùy chọn
Tìm field là autonumber bằng ADO
- Tìm field là autonumber bằng ADO
-
Tìm field là autonumber bằng ADO
thucgia > 30-10-15, 01:19 PM
Có bạn nào biết giúp mình cái này với :
- Sau khi link table từ file mdb vào access, để tìm field có thuộc tính autonumber mình làm như sau
Mã:Function get_field_Auto(tbl As String) As String
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim kq As String
kq = ""
Set db = CurrentDb()
Set tdf = db.TableDefs(tbl)
For Each fld In tdf.Fields
If fld.Attributes And dbAutoIncrField Then
kq = fld.Name
End If
Next
get_field_Auto = kq
End Function
nói chung là oK. tuy nhiên mình có một rắc rối như sau :
Khi link mdb với nguồn dữ liệu mysql qua ODBC mình phát hiện một điều là các table từ mysql có field thuộc tính autonumber sau khi link vào mdb đều bị mất chỉ còn là number - integer , thuộc tính index : yes no dulicate. Vì vậy đoạn code trên không xác định được field autonumber nữa. Có bạn nào có các xử lý giúp với.
- code đang làm nhưng chưa có kết qủa
Mã:Sub find_auto(tbl As String)
Dim rs As ADODB.Recordset
Dim f As ADODB.Field
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open "select * from " & tbl
For Each f In rs.Fields
Debug.Print f.Name & " : " & _
" type : " & f.Type & _
" attr : " & CBool(f.Attributes And DB_AUTOINCRFIELD) & _
""
Next f
Set rs = Nothing
End Sub
'find_auto("phieu")
'id : type : 3 attr : True
'ma_phieu : type : 202 attr : False
'ngay : type : 7 attr : True
'to_chuc_id : type : 202 attr : False
'tien : type : 5 attr : True
'loai : type : 202 attr : False -
RE: Tìm field là autonumber bằng ADO
Minh Tiên > 31-10-15, 01:27 PM
Bạn thử tham khảo 2 link này !
https://msdn.microsoft.com/en-us/library...s.85).aspx
https://support.microsoft.com/en-us/kb/193947
Mong giúp được bạn.
Thân./. -
RE: Tìm field là autonumber bằng ADO
thucgia > 01-11-15, 03:37 AM
(31-10-15, 01:27 PM)Minh Tiên Đã viết: Bạn thử tham khảo 2 link này !
https://msdn.microsoft.com/en-us/library...s.85).aspx
https://support.microsoft.com/en-us/kb/193947
Mong giúp được bạn.
Thân./.
Làm ra rùi nè gửi các bạn tham khảo, vậy là xác định được field auto của một table từ mysql
Mã:Function getAuto(tbl As String) As String
'neu co "ten" else ""
On Error GoTo ErrHandler
Dim rs As ADODB.Recordset
Dim f As ADODB.Field
Dim kq As String
kq = ""
Set rs = New ADODB.Recordset
OpenMyConnect
rs.ActiveConnection = cnn 'CurrentProject.Connection
rs.CursorLocation = adUseServer
rs.CursorType = adOpenForwardOnly
rs.Open "Select * from " & tbl
For Each f In rs.Fields
If f.Properties("ISAUTOINCREMENT") = True Then
kq = f.Name
End If
Next f
getAuto = kq
ExitSub:
Set rs = Nothing
CloseMyConnect
Exit Function
ErrHandler:
MsgBox Err.Number & " -getAuto()- " & Err.Description
Resume ExitSub
End Function
Còn cái này để làm gì thì tùy