|
发表于 2020-9-30 10:00:01
|
显示全部楼层
点"工程"菜单,选择"引用"
在列表中选择"Microsoft ActiveX Data Objects 2.0 Libray"或以上版本
建立连接
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径"
dim xm(1)
xm(0)="123"
xm(1)="321"
for i= 0 to ubound(xm)
'添加至数据库
conn.execute("insert into dykz (项目名称) valuse ('" & xm(i) & "')"
next i |
|