VerySource

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 1512|回复: 4

在vb中如何给access表增加数据

[复制链接]

2

主题

4

帖子

4.00

积分

新手上路

Rank: 1

积分
4.00
发表于 2020-9-28 21:00:02 | 显示全部楼层 |阅读模式
最近写一段程序,老是写不出,请教高手.我想把一个数组xm( 1 to 9 )中的值插入dyin.mdb中表dykz中的字段"项目名称",还有其他字段,代码如下:
dim i as integer
   i=1
  for  i= 1 to 9
     insert into dykz("项目名称") valuse (xm(i))
   next i
出现"dykz没有语句结束"错误
是否还要连接数据库??请高手给全面一点详细一点的代码,最好有注释,我是新手,爱学习,请给我一点鼓励!
回复

使用道具 举报

0

主题

21

帖子

16.00

积分

新手上路

Rank: 1

积分
16.00
发表于 2020-9-29 14:15:01 | 显示全部楼层
conn.execute("insert into dykz (项目名称) valuse ('" & xm(i) & "')"
回复

使用道具 举报

2

主题

4

帖子

4.00

积分

新手上路

Rank: 1

积分
4.00
 楼主| 发表于 2020-9-30 08:15:01 | 显示全部楼层

前面要不要加一点连接数据库的语句?只有这一条语句就行了吗
回复

使用道具 举报

0

主题

21

帖子

16.00

积分

新手上路

Rank: 1

积分
16.00
发表于 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
回复

使用道具 举报

2

主题

4

帖子

4.00

积分

新手上路

Rank: 1

积分
4.00
 楼主| 发表于 2020-9-30 13:00:01 | 显示全部楼层
谢谢pronice,但是
conn.execute("insert into dykz (项目名称) valuse ('" & xm(i) & "')")
这一句有语法错误,请帮我看看
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|CopyRight © 2008-2023|verysource.com ( 京ICP备17048824号-1 )

快速回复 返回顶部 返回列表