Kết nối database bị lỗi (7 người xem)

[phuoclocvl]

Chào các anh chị,

em có cái module lấy dữ liệu từ file access đã cài pass. nhưng nó cứ báo lỗi , các anh chị kiểm tra sửa lại giúp em với. cảm ơn anh chị nhiều,

Sub Conn_Db()
    Dim cnBD As New ADODB.Connection
    Dim rcs As New ADODB.Recordset
    Dim txt As String, MacAdd As String, m_k As String
    m_k = "Matkhaunam@2020"
    MacAdd = GetMACAddress
    cnBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    ";Data Source=D:\dbUser.accdb;" & _
    ";Password=" & m_k
    txt = "SELECT * from S_Information " & _
    "Where MAC_Add='" & MacAdd & "' "
    rcs.Open txt, cnBD
End Sub

 

[ongke0711]

Xem lại chuỗi kết nối nhé.

Access connection strings - ConnectionStrings.com

Connection strings for Access. Connect using Microsoft.ACE.OLEDB.12.0, Microsoft.Jet.OLEDB.4.0, OleDbConnection, Microsoft Access accdb ODBC Driver.

www.connectionstrings.com

 

[thuyyeu99]

Chào các anh chị,

em có cái module lấy dữ liệu từ file access đã cài pass. nhưng nó cứ báo lỗi , các anh chị kiểm tra sửa lại giúp em với. cảm ơn anh chị nhiều,

Sub Conn_Db()
    Dim cnBD As New ADODB.Connection
    Dim rcs As New ADODB.Recordset
    Dim txt As String, MacAdd As String, m_k As String
    m_k = "Matkhaunam@2020"
    MacAdd = GetMACAddress
    cnBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    ";Data Source=D:\dbUser.accdb;" & _
    ";Password=" & m_k
    txt = "SELECT * from S_Information " & _
    "Where MAC_Add='" & MacAdd & "' "
    rcs.Open txt, cnBD
End Sub

Hình như thiếu dấu &" ; "sao pass

 

[phuoclocvl]

Hình như thiếu dấu &" ; "sao pass

Chào bác, đã sửa nhưng không được.

 

[ongke0711]

...

";Data Source=D:\dbUser.accdb;" & _
"Jet OLEDB:Database Password=" & m_k

Xem lại có dư mấy dấu ";"

 

[phuoclocvl]

...

";Data Source=D:\dbUser.accdb;" & _
"Jet OLEDB:Database Password=" & m_k

Xem lại có dư mấy dấu ";"

Dạ cảm ơn Anh. nhưng nó lại báo mật khẩu không đúng. rõ ràng là mật khẩu là: nam2020. mà nó cứ báo lỗi. anh xem giúp em có bị sai chổ nào nữa hôn

 

[thuyyeu99]

Dạ cảm ơn Anh. nhưng nó lại báo mật khẩu không đúng. rõ ràng là mật khẩu là: nam2020. mà nó cứ báo lỗi. anh xem giúp em có bị sai chổ nào nữa hôn

View attachment 243889

cnBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
";Data Source=D:\dbUser.accdb;" & _
"Jet OLEDBatabase Password=""" & m_k & """;"

 

[phuoclocvl]

cnBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
";Data Source=D:\dbUser.accdb;" & _
"Jet OLEDBatabase Password=""" & m_k & """;"

Vẫn bị bạn ơi. trời ơi tức quá. sai chổ nào

Bài đã được tự động gộp: 24/8/20

Sub Conne_Db()
    Dim cnBD As New ADODB.Connection
    Dim rcs As New ADODB.Recordset
    Dim txt As String, MacAdd As String, m_k As String
    m_k = "nam2020"
    'MacAdd = GetMACAddress
    cnBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Persist Security Info=False;" & _
    "Data Source=D:\dbUser.accdb;Jet OLEDB:Database Password=""" & m_k & """;"
    txt = "SELECT * from Users " & _
    "Where MAC_Add='" & MacAdd & "' "
    rcs.Open txt, cnBD
End Sub

 

[thuyyeu99]

bạn dua cai file Access len đây thử

 

[ongke0711]

Vẫn bị bạn ơi. trời ơi tức quá. sai chổ nào
View attachment 243892

Bạn thêm dòng "Persist..." làm gì.

 

[phuoclocvl]

....

đã làm như bạn rồi đó, nhưng vẫn bị báo lỗi.

Bài đã được tự động gộp: 24/8/20

Bạn thêm dòng "Persist..." làm gì.

Dạ, để em bỏ ra coi. em thấy trên mạng ghi vậy , em hốt zô

 

[ongke0711]

Dạ cảm ơn Anh. nhưng nó lại báo mật khẩu không đúng. rõ ràng là mật khẩu là: nam2020. mà nó cứ báo lỗi. anh xem giúp em có bị sai chổ nào nữa hôn

View attachment 243889

code như vậy, bỏ dòng "Persist...". Nó dùng cho kết nối database không có password.

 

[phuoclocvl]

code như vậy, bỏ dòng "Persist...". Nó dùng cho kết nối database không có password.

em đã bỏ ra rồi nè anh. nó cũng dính chưởng. ko hiểu là vì sao

Sub Conn_Db()
    Dim cnBD As New ADODB.Connection
    Dim rcs As New ADODB.Recordset
    Dim txt As String, MacAdd As String, m_k As String
    m_k = "nam2020"
    'MacAdd = GetMACAddress
    cnBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=D:\dbUser.accdb;Jet OLEDB:Database Password=""" & m_k & """;"
    txt = "SELECT * from Users " & _
    "Where MAC_Add='" & MacAdd & "' "
    rcs.Open txt, cnBD
    '    "Persist Security Info=False;" & _

End Sub

 

[thuyyeu99]

em đã bỏ ra rồi nè anh. nó cũng dính chưởng. ko hiểu là vì sao

Sub Conn_Db()
    Dim cnBD As New ADODB.Connection
    Dim rcs As New ADODB.Recordset
    Dim txt As String, MacAdd As String, m_k As String
    m_k = "nam2020"
    'MacAdd = GetMACAddress
    cnBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=D:\dbUser.accdb;Jet OLEDB:Database Password=""" & m_k & """;"
    txt = "SELECT * from Users " & _
    "Where MAC_Add='" & MacAdd & "' "
    rcs.Open txt, cnBD
    '    "Persist Security Info=False;" & _

End Sub

View attachment 243893

Gởi File lên, cái này nhìn hình ma làm được chết liền

 

[ongke0711]

Không cần bao mật khẩu bằng dấu nháy kép đâu em.

 

[phuoclocvl]

em đã bỏ ra rồi nè anh. nó cũng dính chưởng. ko hiểu là vì sao

Sub Conn_Db()
    Dim cnBD As New ADODB.Connection
    Dim rcs As New ADODB.Recordset
    Dim txt As String, MacAdd As String, m_k As String
    m_k = "nam2020"
    'MacAdd = GetMACAddress
    cnBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=D:\dbUser.accdb;Jet OLEDB:Database Password=""" & m_k & """;"
    txt = "SELECT * from Users " & _
    "Where MAC_Add='" & MacAdd & "' "
    rcs.Open txt, cnBD
    '    "Persist Security Info=False;" & _

End Sub

View attachment 243893

nó đây nè, các anh chị xử tử nó giùm em với

 

[thuyyeu99]

nó đây nè, các anh chị xử tử nó giùm em với

Sub Conn_Db()
    Dim cnBD As New ADODB.Connection
    Dim rcs As New ADODB.Recordset
    Dim txt As String, MacAdd As String, m_k As String
    cnBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=C:\Users\Admin\Downloads\Giaiphap\New folder\New folder\dbUser.accdb;Jet OLEDB:Database Password=nam2020 "
    txt = "SELECT * from Users " & _
    "Where MAC_Add='" & MacAdd & "' "
    rcs.Open txt, cnBD
End Sub

 

[phuoclocvl]

Sub Conn_Db()
    Dim cnBD As New ADODB.Connection
    Dim rcs As New ADODB.Recordset
    Dim txt As String, MacAdd As String, m_k As String
    cnBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=C:\Users\Admin\Downloads\Giaiphap\New folder\New folder\dbUser.accdb;Jet OLEDB:Database Password=nam2020 "
    txt = "SELECT * from Users " & _
    "Where MAC_Add='" & MacAdd & "' "
    rcs.Open txt, cnBD
End Sub

Chắc máy tính em có vấn đề, em copy nguyên code bỏ vào vẫn bị.

 

[thuyyeu99]

Chắc máy tính em có vấn đề, em copy nguyên code bỏ vào vẫn bị.

bạn phải thay cái đường dẫn của bạn lại chứ
"C:\Users\Admin\Downloads\Giaiphap\New folder\New folder\dbUser.accdb" cái này nó nằm trên máy mình mà

 

[phuoclocvl]

Chắc máy tính em có vấn đề, em copy nguyên code bỏ vào vẫn bị.

vẫn vậy, chắc máy tinh rồi