Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Truyền giá trị trừ textbox của form vào câu lệnh SQL
#1
Question 
Xin chào các bạn!
Mình có đoạn code sau mà không biết sai ở chỗ nào các bạn giúp với mình với
Mã PHP:
Private Sub cmdAddNewUnit_Click()
Dim rs As DAO.Recordset
Dim db 
As Database
Dim strSQL 
As String
Dim UnitSymbols 
As String
UnitSymbols 
txtUnitSymbols
strSQL 
"SELECT UnitSymbols FROM tbl_Unit WHERE UnitSymbols = '& UnitSymBols &'"
Set db CurrentDb
Set rs 
db.OpenRecordset(strSQL)
Dim Dem As Integer
Dem 
0
If rs.RecordCount <> 0 Then
    rs
.MoveFirst
        
While Not rs.EOF
            Dem 
Dem 1
        rs
.MoveNext
        Wend
    MsgBox 
"So Rcs: " Dem
ElseIf rs.RecordCount 0 Then
    MsgBox 
"Loi roi"
End If 
[/quote]
Mục đích của mình là truyền giá trị UnitSymBols vào Câu lệnh SQL.
Làm như trên được không?
Cảm ơn nhiều!
Chữ ký của mrmintoa Xin chào, mình là mrmintoa, Tham gia http://thuthuataccess.com/forum từ ngày 16-01 -13.
Reply
Những người đã cảm ơn
#2
Mình bó tay thật rồi. Cao nhân nào vào giúp với
Fix lại như thế lày rồi mà nó vẫn lỗi. Kỳ lạ ở chỗ là nếu thay Biến UnitSymbols bằng 1 giá trị cụ thể như : a, b, c gì đấy thì lại nhận được kết quả như mong muốn mới đểu.
Help me, please!
Mã PHP:
Private Sub cmdAddNewUnit_Click()
Dim rs As DAO.Recordset
Dim db 
As Database
Dim strSQL 
As String

Dim dem 
As Integer
dem 
0
UnitSymbols 
Me.txtUnitSymbols.Value
Set db 
CurrentDb
strSQL 
"SELECT * FROM tbl_Unit"
Set rs db.OpenRecordset(strSQL)
rs.FindFirst ("UnitSymbols = '&UnitSymbols&'")
If 
Not rs.NoMatch Then
    MsgBox 
"Da tim thay"
ElseIf rs.NoMatch Then
    MsgBox 
"Bo tay roi"
End If
rs.Close
Set rs 
Nothing
Set db 
Nothing
End Sub 
Chữ ký của mrmintoa Xin chào, mình là mrmintoa, Tham gia http://thuthuataccess.com/forum từ ngày 16-01 -13.
Reply
Những người đã cảm ơn
#3
Đã fix xong
Chữ ký của mrmintoa Xin chào, mình là mrmintoa, Tham gia http://thuthuataccess.com/forum từ ngày 16-01 -13.
Reply
Những người đã cảm ơn
#4
Tự xử lun hả ^^!
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
(17-01-13, 01:46 AM)mrmintoa Đã viết: Đã fix xong

mrmintoa ơi, mình cũng bị lỗi tương tự như bạn nhưng chưa fix được. bạn chỉ mình fix lỗi này với.
Chữ ký của boy333 Xin chào, mình là boy333, Tham gia http://thuthuataccess.com/forum từ ngày 22-04 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Tạo thanh tiến trình trên Form (Progress bar) khi xử lý dữ liệu ongke0711 18 1,503 21-10-16, 10:17 PM
Bài mới nhất: ongke0711
  [Hỏi] Viết code có điều kiện " lệnh Chạy tiếp khi đóng tbl cho sẵn" Trần Linh 3 140 21-10-16, 11:11 AM
Bài mới nhất: Minh Tiên
  Tạo Form đăng ký tài khoản phuc_thanhtien 15 1,019 27-09-16, 12:19 AM
Bài mới nhất: maidinhdan
  [Hỏi] Quá trình thực hiện một lệnh với CSDL dinh_trong_hoa 1 176 02-08-16, 04:06 PM
Bài mới nhất: ongke0711
  [Help] lệnh tìm kiếm và hiển thị kết quả tìm kiếm trên form tvn_hut 12 1,014 25-06-16, 12:22 AM
Bài mới nhất: zinzin8x

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ