MinhnHang > 29-11-16, 10:18 AM
lehongduc > 29-11-16, 10:56 AM
MinhnHang > 29-11-16, 11:13 AM
maidinhdan > 29-11-16, 11:54 AM
(29-11-16, 11:13 AM)MinhnHang Đã viết: Cảm ơn anh lehongduc rất nhiều ạ.
Em đã google nhiều câu từ rồi nhưng chưa tìm ra kết quả, giờ em học thêm câu từ nữa từ gợi ý của anh.
Em cũng đã từng viếng thăm đường link giống như anh gửi nhưng em chưa hiểu hết ạ.
Em nghiên cứu thêm, không hiểu thì em hỏi tiếp nhé.
Dim Ws As DAO.Workspaces
Dim db As DAO.Database
Set Ws = DBEngine.Workspaces(0)
'Mo ket noi Data co Pass
Set db = Ws.OpenDatabase("Duongdandenfilecuaban", False, False, "Pass data neu co")
Public Function LKTenBang() As String
Dim DB As DAO.Database, i As Integer
Set DB = CurrentDb
Dim s As String
For i = 0 To DB.TableDefs.Count - 1
If Left(DB.TableDefs(i).Name, 4) <> "MSys" Then
Debug.Print DB.TableDefs(i).Name
End If
Next i
End Function
MinhnHang > 29-11-16, 01:49 PM
MinhnHang > 29-11-16, 04:11 PM
MinhnHang > 29-11-16, 05:18 PM
maidinhdan > 08-12-16, 11:59 AM
(29-11-16, 05:18 PM)MinhnHang Đã viết: Đoạn trên đúng với database không có password. Nhưng khi em đặt password cho table.accdb là 123 thì nó báo lỗi ở dòng
Set dbs = OpenDatabase(MyPath & "table.accdb", False, False, "MS Access;PWD=" & MyPass)
(Dĩ nhiên là em đã cho MyPass = "123")
Em xin sự trợ giúp vấn đề này ạ.
Thanks All!
Set DB = Ws.OpenDatabase(PathData, False, False, PassData)
MinhnHang > 09-12-16, 09:38 AM
maidinhdan > 09-12-16, 06:11 PM
(09-12-16, 09:38 AM)MinhnHang Đã viết: Đây là đoạn code em đang dùng.......................................
1. Và em chưa thể link khi đặt password.
2. Đoạn code trên chỉ link được tất cả các table trong 1 file Database, nhưng khi em thử thêm 1 file database khác (2 file database độc lập nhau và ở trong cùng 1 thư mục) thì khi em gọi cái nào trước thì nó chỉ chạy cái đó, còn cái thư hai ko chạy.
Em xin sự trợ giúp từ các anh ạ.
Public Const PassData As String = "123"
Public Function LayData(ChonData As Byte) As String
Dim s As String
Select Case ChonData
Case 1
s = CurrentProject.path & "\DataHethong\Data1.mdb"
Case 2
s = CurrentProject.path & "\DataHethong\Data2.mdb"
Case 3
s = CurrentProject.path & "\DataHethong\Data3.mdb"
End Select
LayData = s
End Function
'---------------------------------------------------------------------------------------
' Procedure/ Ten thu tuc : LinkTablecoPass
' Author/ Nguoi khoi tao : maidinhdan@gmail.com
' Tao tren may tinh User : DANAspireV5
' Date/ Ngay tao : 10/14/2016
' Purpose/Mo ta : Link table co mat khau
'---------------------------------------------------------------------------------------
Public Function LinkTablecoPass(TenTablecanLink As String, DataCanLay as String)
On Error GoTo Loiketnoi
Dim tdf As TableDef
Dim DB As Database
Set DB = CurrentDb
' Tao Link Table
Set tdf = DB.CreateTableDef(TenTablecanLink)
With tdf
.Connect = "Ms Access;UID=Admin;PWD=" & PassData & ";DATABASE=" & DataCanLay
.SourceTableName = TenTablecanLink
End With
DB.TableDefs.Append tdf
Ketthuc:
Exit Function
Loiketnoi:
If Err = 3110 Then
Resume Ketthuc
Else
If Err = 3011 Then
Resume Next
End If
End If
End Function