vb配合access编程教程,vb加access

大家好，今天小编关注到一个比较有意思的话题，就是关于vb配合access编程教程的问题，于是小编就整理了4个相关介绍vb配合access编程教程的解答，让我们一起看看吧。

1. VB如何将Excel中的数据批量导入到Access中？
2. vb中如何把access数据库的内容赋值给二维数组？
3. 怎样利用VB将EXCEL中的数据导入ACCESS？
4. VB中如何把access中的俩个字段的值进行相加。急急急？

VB将中的数据批量导入到Access中？

Option ExplicitDim data As New ADODB.ConnectionDim db As New ADODB.RecordsetDim xlsapp As Excel.ApplicationDim xlsBook As Excel.WorkbookDim xlsSheet As Excel.WorksheetPrivate Sub Command1_Click()On Error GoTo ErrHandlerCommonDialog1.DialogTitle = "Open files"CommonDialog1.Filter = "mdb files(*.mdb)|*.mdb"CommonDialog1.Flags = 4 '取消 “以只读方式打开” 复选框CommonDialog1.ShowOpenCommonDialog1.CancelError = TrueIf Len(CommonDialog1.FileName)

vb中如何把access数据库的内容赋值给二维数组？

说说思路：

这个显然要用ADO

1、连接数据库，得到连接对象conn

2、用下面的select语句打开表，将数据读入RecordSet

set rs=conn.execute("select * from 表名")

3、用循环将数据读入二维数组arr

row=0

while not

rs.eof

arr[row,0]=rs["id"]

arr[row,1]=rs["year"]

怎样利用VB将EXCEL中的数据导入ACCESS？

Option ExplicitDim data As New ADODB.ConnectionDim db As New ADODB.RecordsetDim xlsApp As Excel.ApplicationDim xlsBook As Excel.WorkbookDim xlsSheet As Excel.WorksheetPrivate Sub Command1_Click()On Error GoTo ErrHandlerCommonDialog1.DialogTitle = "Open files"CommonDialog1.Filter = "mdb files(*.mdb)|*.mdb"CommonDialog1.Flags = 4 '取消 “以只读方式打开” 复选框CommonDialog1.ShowOpenCommonDialog1.CancelError = TrueIf Len(CommonDialog1.FileName)

VB中如何把access中的俩个字段的值进行相加。急急急？

‘先在工程引用'MircosoftActiveXDataObjects

’然后写代码（前提是已经装好access）

DimrstempAsADODB.Recordset

DimstrCNNAsString,strSQLasString

Dimrecord1,record2

Setrstemp=NewADODB.Recordset

strCNN="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\kkk.mdb";PersistSecurityInfo=True;"

strSQL="select*frommyTable"'查询位于d:\kkk.mdb的access中的myTable表的所有记录

rstemp.OpenstrSQL,strCNN

'----------------------------------

到此，以上就是小编对于vb配合access编程教程的问题就介绍到这了，希望介绍关于vb配合access编程教程的4点解答对大家有用。

标签： access CommonDialog Excel