7453
社区成员
- 主页
关于listview与数据库的问题，请大家帮我看看程序出错在哪？谢谢!!
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 语句出错，
不好意思，代码没有对齐，看得比较吃力
...全文
请发表友善的回复…
发表回复
liutl1 2003-01-13
sql语句错了
lxcc 2003-01-13
抱歉
你的 sql 中 select 是怎么回事？
你的 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
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
SELECT少了FROM
Jugular_Phoenix 2003-01-13
SQL 语句错误：
Insert into 表名(字段名) values(对应字段的值)
或者
Insert into 表名(字段名）select 字段 From 表名
Where 条件
Insert into 表名(字段名) values(对应字段的值)
或者
Insert into 表名(字段名）select 字段 From 表名
Where 条件
programart_life 2003-01-12
少了一个Into
应该是Insert Into 表名（字段名，字段名,.............) values (数据，数据..................)
应该是Insert Into 表名（字段名，字段名,.............) values (数据，数据..................)
fling_boy 2003-01-12
设置断点，运行到这里单步测试。
把g_strSQL的内容打印在立即窗口。
再把结果在查询分析器一类的工具中找出sql 语句的错误再说。
g_Cnn.Execute (g_strSQL) 这以前的语句应该没错吧，只是生成的sql 出错了.
把g_strSQL的内容打印在立即窗口。
再把结果在查询分析器一类的工具中找出sql 语句的错误再说。
g_Cnn.Execute (g_strSQL) 这以前的语句应该没错吧，只是生成的sql 出错了.
毛仁胜 2003-01-12
InSert标准语法：
Insert Into <TableName> [(col1,col2,......)] [Values (var1,var2,......)]
Insert Into <TableName> [(col1,col2,......)] [Values (var1,var2,......)]