vb读取excel数据去掉空行

[lanlanxiezhqhd]

各位大哥大姐们，我遇到一个小麻烦，在网上找了很久也没有个确切的答案，就想问问大家，我用adodb链接excel，读取出excel的数据放在dataset里，把dataset的值直接绑定到窗体上的dataGrid了，但是execel上面有数据，下面有很多空的行，一起读到了dataGrid上了，我想问，怎么把这些空行在程序里去掉？

[chinaboyzyq]

select * from [sheet1$] where 第一个字段不<>""

[luofenghen]

很多空行是不是你敲过回车的?

[chinaboyzyq]

excel中无标题列（即全部为数据时）如下，如有标题列，标题列名称<>NULL
dataset应该是vb.net的东西，不过出库方法是一样的。

Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1\123.xls;Extended Properties='Excel 8.0;HDR=no;IMEX=1'"
    Set rs = cn.Execute("Select * From [Sheet1$] where f1<>NULL")
    Set DataGrid1.DataSource = rs
  
End Sub

[lanlanxiezhqhd]

excel第一列是可以为空的，应该判断第四列D不为空，第四列是不允许为空的，否则就是整个行都是空的，第四列怎么表示？我对vb了解太少，希望指点指点迷津啊！

[tubo_true]

得到rs后，遍历轻空空格，再附给datagrid

[lanlanxiezhqhd]

我觉得是可以在导入的时候写sql语句，根据where条件后面的筛选的，第四行要怎样代替？像：
Select * From [Sheet1$] where f1<>NULL
如果是判断第四行是否为空怎么写where后面的

[东方之珠]

用这个 xlExcel.ActiveSheet.UsedRange.Rows.Count 确定EXCEL表格中数据的行数。

[chinaboyzyq]

[Quote=引用 6 楼 lanlanxiezhqhd 的回复:]

我觉得是可以在导入的时候写sql语句，根据where条件后面的筛选的，第四行要怎样代替？像：
Select * From [Sheet1$] where f1<>NULL
如果是判断第四行是否为空怎么写where后面的
[/Quote]

f4<>NULL

f1 f2 f3 ...fN你有多少列N

[zhaoleinefu]

帮忙顶一下喽

[lanlanxiezhqhd]

这样写会有错误的：SELECT * FROM [Sheet1$] where f4<>NULL 错误：数据导入失败，至少有一个参数没有被指定值。怎么回事？

[lanlanxiezhqhd]

解决了，呵呵，谢谢大家！每个人都分点分吧！