Lọc dữ liệu trên datagrid VB6

[tuyenco1011]

Mình có một datagrid, một text1 và một command
khi load form thì datagrid đã nhận dữ liệu >>>COI NHƯ ĐÃ LÀM
giờ mình muốn nhập vào text1 và click command để lấy lại dữ liệu theo điều kiện ( Có thể nói là muốn lọc dữ liệu hiển thị trên datagrid)

Private Sub Text1_Click()
  Dim cn As Object
  Dim rs As Object
  Dim sstr As String
  sstr = Text1
  Set cn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.Recordset")
  cn.Provider = "Microsoft.ACE.OLEDB.12.0"
  cn.ConnectionString = "Data Source= " & App.Path & "/KH.xlsm; Extended Properties=""Excel 12.0;HDR=Yes;"";"
  cn.CursorLocation = 3
  cn.Open
  rs.Open "SELECT * FROM [DM$] WHERE Casx like 'A%'", cn, 3, 1   'chay OK
  'rs.Open "SELECT * FROM [DM$] WHERE Casx like" & sstr & "%", cn, 3, 1   "Muon tuy bien theo bien sstr nhung khong chay"
  Set DataGrid1.DataSource = rs
End Sub

Vậy anh em nào biết chỉ giúp???

View more random threads:

• in trong vba excel và word
• /(/hững ghi chép về phương thức SpecialCells
• Cell tự động đổi màu nền khi có dữ liệu!!!
• Một số Macro thông thường
• Đọc file xls bang VB.
• Xin code định dạng Cell bằng VBA
• Set macro security ở chế độ low tự động khi chạy excel
• File Excel báo lỗi công thức sau khi mở Excel 2010
• Xin đoạn code của pascal về chương trinh quan lý kho
• Gặp lỗi FOXPRO

[nguyenquy@aye.vn]

Mình có một datagrid, một text1 và một command
khi load form thì datagrid đã nhận dữ liệu >>>COI NHƯ ĐÃ LÀM
giờ mình muốn nhập vào text1 và click command để lấy lại dữ liệu theo điều kiện ( Có thể nói là muốn lọc dữ liệu hiển thị trên datagrid)
<div class="bbcode_container">
<div class="bbcode_description">Code:

</div>
</div>
Thường mấy bài dạng nói dễ không dễ, nói khó cũng không khó... Chỉ khó khi không có file đính kèm, mất công mường tượng rồi phải giả lập file để test thôi

[abc.xyz]

[QUOTE="maytinhvp01"]Mình có một datagrid, một text1 và một command
khi load form thì datagrid đã nhận dữ liệu >>>COI NHƯ ĐÃ LÀM
giờ mình muốn nhập vào text1 và click command để lấy lại dữ liệu theo điều kiện ( Có thể nói là muốn lọc dữ liệu hiển thị trên datagrid)

rs.Open "SELECT * FROM [DM$] WHERE Casx like '" & sstr & "%'", cn, 3, 1

Tôi chỉ xét về câu lệnh còn về bạn bỏ vào sự kiện Text1_Click mà text1 là điều kiện thì không hợp lý.

[sarahbig]

Do điều kiện lọc là chuổi, mà điều kiện chuổi thì phải có dấu nháy đơn bao quanh điều kiện, bạn thử chỉnh lại như sau:


<div class="bbcode_container">
<div class="bbcode_description">Code:

</div>
</div>
Chuẩn rùi đấy anh ah!Em cam ơn nhé

[thuyduong]

Thường mấy bài dạng nói dễ không dễ, nói khó cũng không khó... Chỉ khó khi không có file đính kèm, mất công mường tượng rồi phải giả lập file để test thôi

Vâng lần sau em rút kinh nghiệm ạ!