• 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

Các thắc mắc thường gặp VB6 và VBS

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Điều hành viên: tungblt

dungcld75
Bài viết: 7
Ngày tham gia: CN 29/06/2008 12:24 pm
Has thanked: 2 time

Re: Các thắc mắc thường gặp VB6 và VBS

Gửi bàigửi bởi dungcld75 » T.Tư 01/08/2012 10:49 am

Gửi bác TruongPhu hướng dẫn giúp về truy vấn trong Vb6 như sau:
Table: DanhSach
Liệt kê 5 nguoi co luong cao nhất
Select Top 5 From DanhSach
báo lỗi thay Top 5 bằng * thi được



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

Re: Các thắc mắc thường gặp VB6 và VBS

Gửi bàigửi bởi truongphu » T.Năm 02/08/2012 8:00 am

dungcld75 đã viết:Select Top 5 From DanhSach


Mã: Chọn hết

Select Top 5 * From DanhSach
o0o--truongphu--o0o

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

dungcld75
Bài viết: 7
Ngày tham gia: CN 29/06/2008 12:24 pm
Has thanked: 2 time

Re: Các thắc mắc thường gặp VB6 và VBS

Gửi bàigửi bởi dungcld75 » T.Năm 02/08/2012 9:06 am

Cám ơn Bác TruongPhu
nếu ta gán biến temp="Top 5"
câu lệnh truy vấn
Select temp * From DanhSach
báo lỗi làm cách nào đưa biến temp vào câu truy vấn cho linh động

Hình đại diện của người dùng
xuanha
Guru
Guru
Bài viết: 1222
Ngày tham gia: T.Năm 19/08/2010 4:25 pm
Đến từ: Ban Tổ chức Thành uỷ Hưng Yên, tỉnh Hưng Yên
Has thanked: 13 time
Been thanked: 380 time
Liên hệ:

Re: Các thắc mắc thường gặp VB6 và VBS

Gửi bàigửi bởi xuanha » T.Năm 02/08/2012 9:47 am

Temp của bạn là một biến nên khi bạn thực hiện Select temp * From DanhSach nó sẽ báo lỗi là không có temp.
Bạn hãy sửa lại như sau: "Select " & temp & "* From DanhSach"
Kiểm phiếu Đại hội Đoàn, Đại hội Đảng
http://caulacbovb.com/forum/viewtopic.php?t=23599

lekimhoihthl
Bài viết: 1
Ngày tham gia: T.Năm 17/01/2013 10:39 am

Re: Các thắc mắc thường gặp VB6 và VBS

Gửi bàigửi bởi lekimhoihthl » T.Bảy 09/02/2013 3:12 pm

Bác Truongphu ơi, cho cháu hỏi với:
Cháu có dòng code sau:
Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)

If ((x >= 20) And (x <= 250)) And ((y >= 20) And (y <= 160)) Then
AdoKetNoi.RecordSource = "select * from tblGiaitri where stt = index"
cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\phanmem\dulieu\db1.mdb"
Me.AdoKetNoi.ConnectionString = cmd
With frmhienthi
.Pic1.Picture = LoadPicture(Me.AdoKetNoi.Recordset.Fields("Picflag").Value)
.txtGhiChu.Text = Me.AdoKetNoi.Recordset.Fields("Memo").Value
End With
frmhienthi.Show
Else
frmhienthi.Hide
End If
End Sub
Khi chạy Chương trình, em rê chuột đến ảnh thì xuất hiện lỗi Object variable or With block variable not set. Nhờ bác sửa lại giùm em với. Em cần gấp

quoctien.tedi
Thành viên chính thức
Thành viên chính thức
Bài viết: 11
Ngày tham gia: T.Sáu 22/03/2013 11:28 pm

Re: Các thắc mắc thường gặp VB6 và VBS

Gửi bàigửi bởi quoctien.tedi » T.Ba 21/05/2013 8:54 am

Chào anh Trường Phú và. cả. nhà
Hình như bài viết " Lỗi tìm cực trị hàm số" không ai làm dược thì phải. thật dáng tiếc

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

Re: Các thắc mắc thường gặp VB6 và VBS

Gửi bàigửi bởi truongphu » T.Bảy 04/02/2017 7:21 pm

Luu Thu Lien đã viết:gửi bởi Luu Thu Lien » T.Hai 09/01/2017 8:46 pm
https://www.youtube.com/watch?v=4ovM-A9MjDA


Chào bạn Luu Thu Lien
Rất vui vì bạn đã bỏ chút thời gian để góp ý, chia sẻ kiến thức về VB.

Đầu xuân, Chúc bạn LTLien và các bạn khác trong CLBVB năm mới vui vẻ, khỏe.
Mong bạn LTLien tiếp tục tham gia CLBVB để chia sẻ tất cả những gì mình biết đến mọi người _ như bao người khác đã từng.
Tôi cảm ơn bạn LTLien
o0o--truongphu--o0o

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


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đ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.5 khách