关于listview与数据库的问题,请大家帮我看看程序出错在哪?谢谢!!

huishe 2003-01-02 04:42:29


For i = 1 To lvr71_1.ListItems.Count
If lvr71_1.ListItems(i).Checked Then
aa = lvr71_1.ListItems(i).ListSubItems(2).Text
g_strSQL = "insert r71(


r71_001,r71_002,r71_003,r71_004,r71_005,r71_006,r71_007, r71_008,r71_009,r71_010,r71_011,r71_012,
r71_013,r71_014,r71_015 )" _
& "values( select r71_001,r71_002,r71_003,r71_004,r71_005,r71_006,r71_007,r71_008,0,r71_010,r71_011,'2','" _
& txtto(1).Text & "'," _
& "r71_014,0 " _
& " where r71_001 = '" & txtto(7).Text & "'" _
& "and r71_002 = '" & txtto(8).Text & "'" _
& "and r71_003 = '" & aa & "'" _
& "and r71_012 ='1')"
Debug.Print g_strSQL
g_Cnn.Execute (g_strSQL)

End If

Next



r71表包含着入库单,和出库单,运行时,它显示insert 语句出错,
不好意思,代码没有对齐,看得比较吃力
...全文
1 点赞 收藏 9
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
liutl1 2003-01-13
sql语句错了
回复
lxcc 2003-01-13
抱歉
你的 sql 中 select 是怎么回事?
回复
lxcc 2003-01-13
For i = 1 To lvr71_1.ListItems.Count
If lvr71_1.ListItems(i).Checked = True Then
aa = lvr71_1.ListItems(i).ListSubItems(2).Text
g_strSQL = "insert into r71 (r71_001,r71_002,r71_003,r71_004,r71_005,r71_006,r71_007,r71_008,r71_009,r71_010,r71_011,r71_012,r71_013,r71_014,r71_015 ) "
g_strSQL = g_strSQL & "values( select r71_001,r71_002,r71_003,r71_004,r71_005,r71_006,r71_007,r71_008,0,r71_010,r71_011,'2',"
g_strSQL = g_strSQL & "'" & txtto(1).Text & " ',"
g_strSQL = g_strSQL & "r71_014,0 "
g_strSQL = g_strSQL & "where r71_001 = '" & txtto(7).Text & "' "
g_strSQL = g_strSQL & "and r71_002 = '" & txtto(8).Text & "' "
g_strSQL = g_strSQL & "and r71_003 = '" & aa & "' "
g_strSQL = g_strSQL & "and r71_012 ='1')"
Debug.Print g_strSQL
g_Cnn.Execute (g_strSQL)

End If

Next
回复
linfuyong 2003-01-13
语法错误INSERT INTO
不知道字段是否有数字的,有的话插入值不用加引号
回复
kmcyz 2003-01-13
INSERT少了INTO
SELECT少了FROM
回复
Jugular_Phoenix 2003-01-13
SQL 语句错误:
Insert into 表名(字段名) values(对应字段的值)
或者
Insert into 表名(字段名)select 字段 From 表名
Where 条件
回复
programart_life 2003-01-12
少了一个Into
应该是Insert Into 表名(字段名,字段名,.............) values (数据,数据..................)
回复
fling_boy 2003-01-12
设置断点,运行到这里单步测试。
把g_strSQL的内容打印在立即窗口。
再把结果在查询分析器一类的工具中找出sql 语句的错误再说。

g_Cnn.Execute (g_strSQL) 这以前的语句应该没错吧,只是生成的sql 出错了.

回复
毛仁胜 2003-01-12
InSert标准语法:
Insert Into <TableName> [(col1,col2,......)] [Values (var1,var2,......)]
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告