db1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & appPath & "\資料輸入genie.xls;Extended Properties=Excel 8.0;"
rs.Open "select * from [data$]", db1, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
------------------------------------------------------
datagrid 一片空白
不知道是哪裡弄錯
rs.Open "select * from [data$]", db1, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
------------------------------------------------------
datagrid 一片空白
不知道是哪裡弄錯
全站熱搜
留言列表