vb如何合并两个一维数组

合并数组没有简单办法，只能一维一维的取出来，放到一新数组中。新数组维数是原两数组维数相加。

比如两个数组 A ,B

dim newAr() '如果两个数组类型相同话 ，可以定义类型。

redim newAr(ubound(A)-lbound(A)+1+ubound(B)-lbound(B)+1-1) ‘由于数组定义只能用常数表达式定义维数，所以用动态数组。

把两数组项目添加到newAr 中

dim Index as integer

dim i as integer

for i=LBound(A) to UBound(A)

newAr(Index)=A(i)

Index=Index+1

next

for i=LBound(B) to UBound(B)

newAr(Index)=B(i)

Index=Index+1

next

用VB创建一个读取数据 *** 作，然后SQL语句采用下面的，执行SQL语句得到新的表table3

create table table3

as

select table1姓名，table2成绩1，table2成绩2，table2成绩3

from table1,table2

wherer table1学号==table2学号

这个涉及到数据库，不知道你了解多少？从头讲起会比较多，这里只贴部分代码

引用ADO，然后用记录集对象来保存数据，这种方法比较灵活，代码比较直观。

dim pCnn As New ADODBConnection

Dim rs As New ADODBRecordset

pCnnOpen "PROVIDER=MicrosoftJetOLEDB40;Data Source=xxxmdb;" '默认ACCESS数据库

rsOpen "Select from 数据表 where 1=2", pCnn, adOpenStatic, adLockOptimistic, adCmdText

rsAddNew

'假设字段id是自增字段，这里不需要赋值

rs("学号")=

rs("姓名")=

rs("体育类")=combo1text 'text 是当前显示的内容

rs("人文科学类")=combo2text

rsupdate '保存到数据库

以上就是关于vb如何合并两个一维数组全部的内容，包括:vb如何合并两个一维数组、VB连接SQL，将2个基础表合并成一个表，该怎么做、vb中怎么把combon选项内容输入数据库中等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！