SetAccessData

access vba 公司自己用的生产管理(access vba)

以G列分成多个工作表(以宏运行VBA) (Sub aa() Dim a As Integer, b As Integer, c As Integer, sh As Worksheet For a = 2 To [g65536].End(3).Row If Cells(a, 7) <> Cells(a- 1, 7) Then b = a End If c = Range("g:g").Find(Cells(a, 7), , , , , xlPrevious).Row Set sh = Sheets.Add(, Sheets(Sheets.Count)) sh.Name = Sheets("sheet1").Cells(a, 7).Value With Sheets("Sheet1") Sheets("Sheet1").Range(.Cells(b, 1), .Cells(c, 10)).Copy Destination:=sh.[a2] Sheets("Sheet1").Range("a1:j1").Copy Destination:=sh.[a1] a = c End With Sheets("Sheet1").Select Next End Sub )

说明：  网络测试系统,很实用的一个源码,很有参考价值,下载试试,多学习哦(Network test systems, it is a source of practical, useful reference, download a try, more to learn Oh)

数据库功能展示，vc连接access数据库，实现增删查找功能(Database function display, vc connection access database, add or delete search function to achieve)

利用MFC开发的数据库系统，用的是微软的Access，有详细的链接数据库的代码。(Use of MFC development of database systems, using Microsoft Access, there are more links to the database code.)

连接access数据库实例，简单的操作access数据库(Connecting access database instance)

说明：  VC操作ADO和datagrid控件的源码，是动态的的。不受目录改变的限制(ADO and VC operation datagrid source control is the dynamic. From the directory to change the restrictions)

此demo包含vc操作Access数据库的链接、以及增删改查的基本操作，均提供的有接口，方便用户操作，并且提供了一些模糊查询语句供用户参考~~(This demo contains the Access database, the link vc operations, as well as additions or deletions to change the basic operation of search are provided with interfaces, user-friendly operation, and provides a number of fuzzy query for the user' s reference ~ ~)

Sqlite3 的确很好用。小巧、速度快。但是因为非微软的产品，帮助文档总觉得不够。这 些天再次研究它，又有一些收获，这里把我对 sqlite3 的研究列出来，以备忘记。(Sqlite3 really good use. Small, fast. But for the Microsoft products, always feel that not enough to help document. This Some day to study it, and have some harvest, here I study on SQLite3 list, to forget.)

VisualBasic实现EXCEL数据的批量导入,(EXCEL data batch import to mdb based on VB)