随笔分类 - VB
摘要:采用 Microsoft.Jet.Oledb.4.0 连接 ACCESS 或 EXCEL 之类的时候, 提示 “该 JET 引擎未正确安装”、 “找不到提供者” 等错误的解决方法
阅读全文
摘要:Sub OutputFullNumber(ByVal UpperBound As Integer) Dim i, j, s As Integer For i = 1 To UpperBound s = 0 For j = 1 To i \ 2 If i Mod j = 0 Then s = s + j Next j If i = s Then Print i ...
阅读全文
摘要:ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;"; //不用说了ConnectionString += "Data Source=xxx.xls;"; //同上ConnectionString += "Extended Properties='Excel 8.01;HDR=Yes2;IMEX=13';"//注释:1: Excel 8.0...
阅读全文