关于VB6.0对access97的简单编程问题

最简单的最实用的方法：

在VB中引用EXCEL和ACCESS，然后定义

Dim ACCEapp As AccessApplication

Dim EXCEapp As ExcelApplication

Set ACCEapp = New AccessApplication 'or set ACCEapp = getobject(,"AccessApplication")

Set EXCEapp = New ExcelApplication 'or set ACCEapp = getobject(,"ExcelApplication")

EXCEappVisible = True

ACCEappVisible = True

……

将……改为你想要的代码即可。

如果这也不会，那你就分别在excel和access中将你的 *** 作录制为宏，将宏粘贴到……处，并在每句前冠以“exceapp”或“acceapp”即可。

此法超便捷。

计算机名或者IP地址。

cnnOpen "Provider=SQLOLEDB1;Persist Security Info=False;User ID=sa;Password=fanny;Initial Catalog=data2;Data Source=计算机名"

cnnOpen "Provider=SQLOLEDB1;Persist Security Info=False;User ID=sa;Password=fanny;Initial Catalog=data2;Data Source=192168115"

你可以查一下，该计算机的名或者具体IP地址。

VB本身提自动化功能可以读写EXCEL表，其方法如下：

1、在工程中引用Microsoft Excel类型库：

从"工程"菜单中选择"引用"栏；选择Microsoft Excel 90 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象：

Dim xlApp As ExcelApplication

Dim xlBook As ExcelWorkBook

Dim xlSheet As ExcelWorksheet

3、在程序中 *** 作EXCEL表常用命令：

Set xlApp = CreateObject("ExcelApplication") '创建EXCEL对象

Set xlBook = xlAppWorkbooksOpen("文件名") '打开已经存在的EXCEL工件簿文件

xlAppVisible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBookWorksheets("表名") '设置活动工作表

xlSheetCells(row, col) =值 '给单元格（row,col）赋值

xlSheetPrintOut '打印工作表

xlBookClose (True) '关闭工作簿

xlAppQuit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

xlBookRunAutoMacros (xlAutoOpen) '运行EXCEL启动宏

xlBookRunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

4、在运用以上VB命令 *** 作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它 *** 作，也能够关闭EXCEL，同时也可对EXCEL进行 *** 作。但在EXCEL *** 作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。

以上就是关于关于VB6.0对access97的简单编程问题全部的内容，包括:关于VB6.0对access97的简单编程问题、vb6 连接局域网sql数据库的语句怎么写、VB6.0像连接数据库一样连接EXCEL的语句等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！