|
|
|
Mở CSDL
Access có mật khẩu từ VB6 |
|
Đó hỏi:
Trong Access, tôi có đặt mật khẩu cho tập tin MDB.
Xin hướng dẫn đoạn mã trong VB6 để thực hiện kết nối
MDB từ VB. |
|
<kurtkhoa267@> |
|
Đây trả lời:
Trong VB6, để mở một database Access được bảo vệ
bằng mật khẩu, bạn dùng hành vi OpenDatabase với
tham số Connect chứa mật khẩu. Cú pháp hành vi
OpenDatabase như sau:
Set db = ws.OpenDatabase(dbname, options, read-only,
connect)
Trong đó: db là đối tượng database, ws là đối tượng
workspace. Mặc dù hai tham số options và read-only
là tùy ý, nhưng khi dùng tham số Connect (ngay cả
với mật khẩu đúng) thì bạn bắt buộc phải dùng kèm
hai tham số này, nếu không, bạn sẽ luôn nhận được
thông báo lỗi: run-time error 3031: Not a valid
password.
Tham số Connect phải theo cú pháp sau:
MS Access;pwd=password
Trong đó password là mật khẩu dùng để mở database.
Để thử nghiệm, bạn chỉ cần làm thử ví dụ sau. Trong
Access tạo một database có tên DB1.MDB, tạo một
table có tên Table1 với hai field MaSo và Ten (nhập
vào một vài mẩu tin). Trên trình đơn Tools, chọn mục
Security > Set Database Password, gõ mật khẩu abc
vào mục Password và Verify, bấm OK để hoàn tất việc
đặt mật khẩu cho database.
Trong VB6, tạo một project mới có kiểu Standard EXE,
chọn mục References trên trình đơn Project. Trong
hộp thoại References, chọn mục Microsoft DAO 3.6
Object Library (hoặc phiên bản mới nhất).
Trên form Form1 mặc định, bạn gõ đoạn mã 1 vào thủ
tục xử lý tình huống Load để thử mở database
DB1.MDB. Bạn chú ý: DB1.MDB phải được ghi trong cùng
thư mục với project. |
|
Đoạn mã 1 |
|
Private Sub
Form_Load()
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase (App.Path & "\DB1.mdb",
False, False, _
"MS Access;PWD=abc") ‘ Nhớ lưu project
trước khi chạy
Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
If rs.RecordCount > 0 Then
rs.MoveFirst
MsgBox "Ma so: " & rs!MaSo & " - Ten: " & rs!Ten
End If
rs.Close
db.Close
End Sub |
|
CHƯƠNG CAN CHÍP |
|
Cập nhật FireLion FastHelper |
|
Đó hỏi:
Tôi đã tải về và sử
dụng chương trình FastHelper theo địa chỉ đã đăng
trên e-CHÍP số 97, tôi thấy chương trình này diệt
rất tốt các loại virus lây qua USB, tuy nhiên do nhà
tôi chưa có Internet nên việc cập nhật các phiên bản
mới hơn của trình duyệt này rất khó khăn. Xin e-CHÍP
hướng dẫn tôi tải bản cập nhật cho chương trình này. |
|
<phuongvuong282@> |
|
 |
Chương trình FireLion
FastHelper hiện đang được tác giả hoàn thiện và cập
nhật khá thường xuyên, hiện có 2 dạng cập nhật là
cập nhật chương trình (kernel) và cập nhật danh sách
virus (database).
- Về cập nhật kernel, tác giả khuyên nên cài đặt sau
khi đã gỡ bỏ phiên bản cũ trên máy, bạn có thể tải
trực tiếp từ địa chỉ
http://fasthelper.fire-lion.com/
- Về cập nhật database, bạn có thể download tập tin
data.bat từ địa chỉ
http://fasthelper.fire-lion.com/download/Data.dat,
chép đè tập tin này vào tập tin data.bat tại đường
dẫn X:\Program Files\FireLion
Softwares\FastHelper\DBs (trong đó X là ký tự ổ
đĩa). |
|
TTL |
|
Desktop bị Refresh liên tục |
Đó hỏi:
Tôi là một chủ tiệm
dịch vụ Internet. Gần đây có một máy trong tiệm có
biểu hiện màn hình desktop hiện lên lại mất đi liên
tục nhiều lần. Qua tìm hiểu, tôi mới biết là có
người ác ý nào đó đã vào Notepad đánh đoạn mã sau:
[InternetShortcut]. url=file:file:file:... Và lưu
lại với đuôi .url vào Desktop. Mong quý báo giúp tôi
khắc phục hậu quả này. |
|
<vnn.dtn@> |
|
Đây chính là một lỗi
bảo mật của Windows và tùy theo phiên bản cập nhật
mà bạn sẽ gặp các tình trạng lỗi khác nhau. Điển
hình trong trường hợp của bạn là màn hình desktop bị
refresh liên tục và trường hợp khác là không thể mở
được chương trình hay cửa sổ có chứa tập tin này.
Hiện tại thì các chương trình quét virus đã xem đây
là virus và đều quét được hết, tuy nhiên bạn có thể
xử lý vấn đề này bằng tay một cách khá đơn giản.
Trước tiên, bạn vào Safe Mode, vào menu Start, chọn
Run, gõ vào lệnh cmd rồi Enter để mở ra cửa sổ
Command Prompt, dùng lệnh CD để chuyển đến thư mục
Desktop của tài khoản người dùng có chứa tập tin
.url, dùng lệnh DEL để xóa tập tin này đi là xong. |
|
TRẦN
ANH VŨ |
|
[Đầu trang]
|
|
|
|