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 一片空白
不知道是哪裡弄錯
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()