• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Từ điển có CSDL là access

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

Từ điển có CSDL là access

Gửi bàigửi bởi truongphu » T.Tư 21/04/2010 9:22 pm

Thủ thuật: Từ điển có CSDL là access
Tác giả: truongphu
Mô tả: Từ điển có CSDL là access



Nhận thấy có nhiều câu thắc mắc về cách làm từ điển
Tôi gởi bài nầy chỉ có tính cách minh họa

Các bạn có thể bổ sung

  1. Dim conn As New Connection
  2. Dim Rec As New Recordset
  3.  
  4. Private Sub Command1_Click()
  5.     If Rec.State = 1 Then Rec.Close
  6.     Rec.Open "SELECT * FROM Table1 WHERE Tu = '" & Text1 & "'", conn, 3, 3
  7.     If Rec.RecordCount = 1 Then
  8.         Text2 = Rec!Nghia
  9.     Else
  10.         Text2 = "Tu' Ðiên không có"
  11.     End If
  12. End Sub
  13.  
  14. Private Sub Form_Load()
  15.     conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\db1.mdb"
  16.     Set Text2.DataSource = Rec
  17. End Sub
  18.  
  19. Private Sub List1_Click()
  20.     Text1 = List1.Text
  21.     List1.Visible = False
  22.     Command1_Click
  23. End Sub
  24.  
  25. Private Sub Text1_Change()
  26. If Text1 = "" Then
  27.     List1.Visible = False
  28.     Exit Sub
  29. Else
  30.     List1.Clear
  31.     If Rec.State = 1 Then Rec.Close
  32.     Rec.Open "SELECT Tu FROM Table1 WHERE Tu LIKE '" & Text1 & "%'", conn, 3, 3
  33.     If Rec.RecordCount = 0 Then
  34.         List1.Visible = False
  35.         Exit Sub
  36.     ElseIf (Rec.RecordCount = 1) And (UCase(Rec!Tu) = UCase(Text1)) Then
  37.         List1.Visible = False
  38.         Exit Sub
  39.     Else
  40.         Do While Not Rec.EOF
  41.             List1.AddItem Rec!Tu
  42.             Rec.MoveNext
  43.         Loop
  44.         List1.Height = List1.ListCount * 250
  45.         List1.Visible = True
  46.     End If
  47. End If
  48. End Sub
  49.  
  50. Private Sub Text1_KeyPress(KeyAscii As Integer)
  51. If KeyAscii = 13 Then
  52.     List1.Visible = False
  53.     Command1_Click
  54. End If
  55. End Sub
  56.  
Tập tin đính kèm
Tu Ðiên.rar
(8.57 KiB) Đã tải 967 lần


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Koha JeseMen
Thành viên chính thức
Thành viên chính thức
Bài viết: 24
Ngày tham gia: T.Ba 27/07/2010 9:00 pm
Has thanked: 5 time

Re: Từ điển có CSDL là access

Gửi bàigửi bởi Koha JeseMen » CN 17/04/2011 2:51 pm

Hướng dẫn em cách khắc phục lỗi sau:
Class not registered.
Looking for object with:
CLSID:{59245250-7A2F-11D0-9482-00A0C91110ED}

Tại dòng: Set Text2.DataSource = Rec

botre137
Thành viên chính thức
Thành viên chính thức
Bài viết: 15
Ngày tham gia: T.Sáu 04/03/2011 10:19 pm
Đến từ: thanh hoa
Has thanked: 2 time
Been thanked: 5 time

Re: Từ điển có CSDL là access

Gửi bàigửi bởi botre137 » T.Ba 10/05/2011 12:09 am

chau cam on chu nhieu......

Hình đại diện của người dùng
deptraithongminh
Thành viên tích cực
Thành viên tích cực
Bài viết: 143
Ngày tham gia: T.Ba 02/07/2013 4:58 pm
Đến từ: TPHCM
Has thanked: 17 time
Been thanked: 1 time

Re: Từ điển có CSDL là access

Gửi bàigửi bởi deptraithongminh » T.Năm 15/05/2014 4:30 pm

mình làm 1 project mới dựa trên cái này sao nó báo :
"the connection cannot be úe to perform this operation. it is either close or invalid in this context"
lỗi 3709


Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.3 khách