Lọc dữ liệu trên datagrid VB6 (1 người xem)

[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)

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
 [COLOR=#006400] rs.Open "SELECT * FROM [DM$] WHERE Casx like 'A%'", cn, 3, 1[/COLOR]   '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???

 

[ndu96081631]

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
 [COLOR=#006400] rs.Open "SELECT * FROM [DM$] WHERE Casx like 'A%'", cn, 3, 1[/COLOR]   '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???

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

 

[Hai Lúa Miền Tây]

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
 [COLOR=#006400] rs.Open "SELECT * FROM [DM$] WHERE Casx like 'A%'", cn, 3, 1[/COLOR]   '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???

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:

rs.Open "SELECT * FROM [DM$] WHERE Casx like [B][COLOR=#ff0000]'[/COLOR][/B]" & sstr & "%[COLOR=#ff0000]'[/COLOR]", 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ý.

 

[maytinhvp01]

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:

rs.Open "SELECT * FROM [DM$] WHERE Casx like [B][COLOR=#ff0000]'[/COLOR][/B]" & sstr & "%[COLOR=#ff0000]'[/COLOR]", 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ý.

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

 

[maytinhvp01]

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 ạ!