Truy van dữ liệu từ excel lấy về datagrid VB6

[maytinhvp01]

Mình muốn dùng kết nối ADO và truy vấn SQL để lọc dữ liệu từ excel và hiển thị trên datagrid của VB6 với dòng code

Dim cn As Object  Dim rs As Object
  Set cn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.Recordset")
  cn.Provider = "Microsoft.ACE.OLEDB.12.0"
  cn.ConnectionString = "Data Source= " & App.Path & "/book1.xls; Extended Properties=""Excel 12.0;HDR =No;"";"
  cn.CursorLocation = 3
  cn.Open
[COLOR=#ff0000]  rs.Open "SELECT * FROM [sheet1$] F2 like 'L%'", cn, 3, 3[/COLOR]
  Set DataGrid1.DataSource = rs
End Sub

Cột F2 ( Hay chính là cột B) chứa dữ liệu "tên" và mình muốn truy vấn dữ liệu lấy ra những dữ liệu có tên ở cột B bắt đầu băng L ( ví dụ: LÊ TRUNG....., LÊ NGOC....)
Mình tìm hướng dẫn nhưng vẫn chưa viết được. Báo lỗi dòng code bôi đỏ.
Anh em trên diễn đàn chỉ giúp cho mình với??

 

[siwtom]

Mình muốn dùng kết nối ADO và truy vấn SQL để lọc dữ liệu từ excel và hiển thị trên datagrid của VB6 với dòng code

Dim cn As Object  Dim rs As Object
  Set cn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.Recordset")
  cn.Provider = "Microsoft.ACE.OLEDB.12.0"
  cn.ConnectionString = "Data Source= " & App.Path & "/book1.xls; Extended Properties=""Excel 12.0;HDR =No;"";"
  cn.CursorLocation = 3
  cn.Open
[COLOR=#ff0000]  rs.Open "SELECT * FROM [sheet1$] F2 like 'L%'", cn, 3, 3[/COLOR]
  Set DataGrid1.DataSource = rs
End Sub

Cột F2 ( Hay chính là cột B) chứa dữ liệu "tên" và mình muốn truy vấn dữ liệu lấy ra những dữ liệu có tên ở cột B bắt đầu băng L ( ví dụ: LÊ TRUNG....., LÊ NGOC....)
Mình tìm hướng dẫn nhưng vẫn chưa viết được. Báo lỗi dòng code bôi đỏ.
Anh em trên diễn đàn chỉ giúp cho mình với??

Hiện có

HDR[B][COLOR=#ff0000]dấu cách[/COLOR][/B]=No[B][COLOR=#ff0000];[/COLOR][/B]""  
rs.Open "SELECT * FROM [sheet1$] F2 like 'L%'", cn, 3, 3

phải là

HDR=No""
rs.Open "SELECT * FROM [sheet1$] [B][COLOR=#ff0000]WHERE[/COLOR][/B] F2 like 'L%'", cn, 3, 3

 

[maytinhvp01]

Hiện có

HDR[B][COLOR=#ff0000]dấu cách[/COLOR][/B]=No[B][COLOR=#ff0000];[/COLOR][/B]""  
rs.Open "SELECT * FROM [sheet1$] F2 like 'L%'", cn, 3, 3

phải là

HDR=No""
rs.Open "SELECT * FROM [sheet1$] [B][COLOR=#ff0000]WHERE[/COLOR][/B] F2 like 'L%'", cn, 3, 3

Cảm ơn bạn nhé!ADO và SQL thật là thú vị!