[求助]ADO写入数据到ACCESS（圆满解决）-已添加VB版的Listview隔行显示不同颜色功能

fecmen · 发表于 2008-8-20 22:35

QUOTE:

以下是引用seme0556在2008-8-20 9:15:29的发言：

我刚试了下。把

rs.AddNew
For j = 1 To 16
rs.Fields(j - 1) = Sheet1.Cells(i + 1, j)
'rs.Update 把这个前面的逗号去了不就好了
Next j
Next i
rs.UpdateBatch

那和recordset的open方法有关。rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic

你可以把adLockOptimistic替换成adLockBatchOptimistic试试看。

LockTypeEnum

指定在编辑过程中记录上的锁定类型。

常量	值	说明
adLockBatchOptimistic	4	指示开放式批更新。需要批更新模式。
adLockOptimistic	3	指示逐个记录开放式锁定。提供者使用开放式锁定，仅在调用 Update 方法时锁定记录。
adLockPessimistic	2	指示逐个记录保守式锁定。提供者要确保记录编辑成功，通常在编辑之后立即在数据源锁定记录。
adLockReadOnly	1	指示只读记录。无法改变数据。
adLockUnspecified	-1	未指定锁定类型。创建副本时，副本与源对象使用相同的锁定类型。

fecmen · 发表于 2008-8-28 23:00

为何修改listview中的第三行数据就提示SQL语句出错呢？但是修改第一行或第二行数据却不出错！

SzGxqr7h.rar (35.58 KB, 下载次数: 195)

[此贴子已经被作者于2008-8-28 23:06:37编辑过]

fecmen · 发表于 2008-8-29 22:45

麻烦ADO方面高手指点！

office2008 · 发表于 2008-8-30 00:37

转换一下吧,这是你做的吗?挺漂亮的

SQL = SQL & " 期初金额=" & Val(TextBox7.Text) & ""

fecmen · 发表于 2008-8-30 09:40

o(∩_∩)o...

界面不是我做的，把别人的例子拿来练习ADO。本来想介绍出处但是没找到。

谢谢office2008啊！多次给予答疑解惑！！

[此贴子已经被作者于2008-8-30 9:41:24编辑过]

TeF · 发表于 2008-8-30 09:49

QUOTE:

调式的时候在本地窗口查看 SQL值，发现期初金额=88，888.00 貌似不是数字。改掉后就可以F8了

[此贴子已经被作者于2008-8-30 9:49:58编辑过]

fecmen · 发表于 2008-8-30 10:05

不知大家注意到没？还有个Bug！就是在更新Access数据库同时listview中的数据没更新，不知代码有何问题？如果在listview更新数据代码前

加入msgbox报告选定的行数，那么又能更新listview中的值，很奇怪呀！

office2008 · 发表于 2008-8-30 10:46

呵呵，这不是Bug

CNN.Execute SQL

　改成

CNN.Execute SQL, 1, 1　　　'立即更新

fecmen · 发表于 2008-8-30 11:04

office2008，你可能误会我的意思。

我说的是更新listview中的数据

listview列表中第三行的明细科目原先为“BBMM”修改为“BBMN”后不能更新

[此贴子已经被作者于2008-8-30 11:07:38编辑过]

lanyuu · 发表于 2008-8-30 11:05

应该是数字格式的问题，不能有分割符

		自动登录	找回密码
密码			免费注册