Kết nối database bị lỗi

Liên hệ QC
P

phuoclocvl

Thành viên thường trực
Tham gia
28/3/12
Bài viết
220
Được thích
32
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,
PHP: 
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
 

File đính kèm

  • err.JPG
    err.JPG
    57.5 KB · Đọc: 9
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
 
phuoclocvl đã viết:
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,
PHP: 
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
Nhấp chuột vào đây để mở rộng...
Hình như thiếu dấu &" ; "sao pass
 
...
Mã: 
";Data Source=D:\dbUser.accdb;" & _
"Jet OLEDB:Database Password=" & m_k

Xem lại có dư mấy dấu ";"
 
ongke0711 đã viết:
...
Mã: 
";Data Source=D:\dbUser.accdb;" & _
"Jet OLEDB:Database Password=" & m_k

Xem lại có dư mấy dấu ";"
Nhấp chuột vào đây để mở rộng...
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

1598247367045.png
 
thuyyeu99 đã viết:
cnBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
";Data Source=D:\dbUser.accdb;" & _
"Jet OLEDB:Database Password=""" & m_k & """;"
Nhấp chuột vào đây để mở rộng...
Vẫn bị bạn ơi. trời ơi tức quá. sai chổ nào
1598247897734.png
Bài đã được tự động gộp:

PHP: 
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
 
bạn dua cai file Access len đây thử
 
ongke0711 đã viết:
code như vậy, bỏ dòng "Persist...". Nó dùng cho kết nối database không có password.
Nhấp chuột vào đây để mở rộng...
em đã bỏ ra rồi nè anh. nó cũng dính chưởng. ko hiểu là vì sao

PHP: 
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
1598248275151.png
 
phuoclocvl đã viết:
em đã bỏ ra rồi nè anh. nó cũng dính chưởng. ko hiểu là vì sao

PHP: 
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
Nhấp chuột vào đây để mở rộng...
Gởi File lên, cái này nhìn hình ma làm được chết liềnkkk.jpg
 
Không cần bao mật khẩu bằng dấu nháy kép đâu em.
 
phuoclocvl đã viết:
em đã bỏ ra rồi nè anh. nó cũng dính chưởng. ko hiểu là vì sao

PHP: 
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
Nhấp chuột vào đây để mở rộng...
nó đây nè, các anh chị xử tử nó giùm em với
 

File đính kèm

  • New folder.zip
    386.4 KB · Đọc: 4
phuoclocvl đã viết:
nó đây nè, các anh chị xử tử nó giùm em với
Nhấp chuột vào đây để mở rộng...
Mã: 
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
 
thuyyeu99 đã viết:
Mã: 
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
Nhấp chuột vào đây để mở rộng...
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 đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

S
  • Question
Không lấy đủ dữ liệu bằng kết nối ADO
2
Trả lời
20
Đọc
329
shnhatha221108
S
S
Slicer không chuyển qua trạng thái mờ.
Trả lời
1
Đọc
30
ptm0412
ptm0412
K
Vẽ biểu đồ ứng suất bản thân và ứng suất gây lún = Excel
    • Thích
Trả lời
5
Đọc
13K
ptm0412
ptm0412
M
Bảng Pivot ko tự update theo dữ liệu và còn cộng thiếu số liệu.
Trả lời
6
Đọc
60
ptm0412
ptm0412
LuuAnh980
  • Question
Code lấy dữ liệu từ 3 file con.
2
Trả lời
36
Đọc
472
hoangtran1176
hoangtran1176
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom