如何传递一个表到sql数据库的储存过程中? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何传递一个表到sql数据库的储存过程中?

共有2994人关注过本帖树形打印复制链接主题：如何传递一个表到sql数据库的储存过程中?

HappyFt

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1934 积分：17661 威望：0 精华：0 注册：2014/7/29 19:09:00

如何传递一个表到sql数据库的储存过程中? 发帖心情

Post By：2017/4/1 11:01:00 [显示全部帖子]

在前台程序中用动态sql语句拼成语句向表中插入一些行如:

"inert into 表名(字段1,字段2.....)

se lcet (值1,值2.......) union all

se lcet (值1,值2.......) "

想将这些新增的数据行做为一个表传到储存过程中再和其他后台表关联更新数据,因为不同表的字段数量不一致所以不能用固定字段的表面量,

代码要怎么写?

还是说只能传入这个拼成的sql语句进到储存过程中生成一个临时表来用?

谢谢!

HappyFt

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1934 积分：17661 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2017/4/10 10:35:00 [显示全部帖子]

如果我用了这样的函数来执行事务:如下

Dim SqlList As List(of String) = Args(0)

Try

Connections(Mydata).BeginTransaction() '开始事务

Dim cmd As new SQLCommand

cmd.ConnectionName = Mydata

For Each sql As String In SqlList

cmd.CommandText = sql

cmd.ExecuteNonQuery()

If vars("允许保存") = "NG" Then '如果执行中出错ft语法错误则回滚

Connections(Mydata).Rollback() '回滚事务

Else

Connections(Mydata).Commit() '提交事务

sqlList.Clear() '清空集合

Return "OK"

End If

Catch ex As Exception

Connections(Mydata).Rollback() '回滚事务

msgbox(ex.tostring) '返回错误信息

sqlList.Clear() '清空集合

Return "NG"

End Try

我想问一下,如果其中的一个sql语句是调用sql数据库中的一个储存过程跨表更新其他表中的数据,那这个储存过程会一起加入到事务中来,同时提交或者回滚吗?

如果不能,中间执行出了错数据就不一致了.要怎么样才能让这个储存过程和上面这些sql集合中的每个sql语句一起执行或回滚叱?

HappyFt

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1934 积分：17661 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2017/4/10 11:25:00 [显示全部帖子]

看的似懂非懂,是否在执行那个储存过程后返回@@ERROR的值,如果不为0表示执行储存过程出错,事务函数就不提交即可,

是否可以这样理解?

HappyFt

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1934 积分：17661 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2017/4/10 11:44:00 [显示全部帖子]

那还有个问题,如果这个储存过程执行没问题返回0,可以继续执行其他事务,但如果其他事务出错了回滚,又要怎么回滚那个已经执行的储存过程呢?

HappyFt

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1934 积分：17661 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2017/4/10 12:31:00 [显示全部帖子]

储存过程里面没有事务,就类似这样:

CREATE PROCEDURE MyProcedure

BEGIN

SE T NOCOUNT ON;

DE LETE FROM rxqz WHERE qz = 'rx015 '; --删除数据

UPDATE sz SE T name = '李丽s' WHERE name = '李丽'; --修改数据

END;

事务函数中有这样一句调用了这个储存过程

Dim cmd As New SQLCommand

cmd.Connection Name = Mydata

cmd.CommandText = "Exec MyProcedure"

就想实现函数中的其他事务语句和上面调用的这个储存过程要么同时执行,要么同时回滚

HappyFt

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1934 积分：17661 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2017/4/10 15:34:00 [显示全部帖子]

原来的跨表更新的代码全部写在beofresavedatarow,那样不是效率很低吗?想改到储存过程中,又不知道怎么处理事务回滚的问题才有此问,觉得可行才行动啊

HappyFt

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1934 积分：17661 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2017/4/10 16:25:00 [显示全部帖子]

原来是用ft默认的方式保存,beforesavedatarow主要是方便用dr("列1")补捉到变化的数据然后添加到事务函数中遍历执行,

现在就是改用保存按钮直接通过sql函数一次性保存窗口表中所有的数据了,但就是每个窗口的表不同,跨表更新的数据不一样,如果用函数每个窗口的跨表更新都需要一个太多了,而且每次变动都要发布更新,所以想直接在sql数据库中写不同的储存过程来调用,如果想变动直接在sql数据库上修改存储过程就不用再发布新版本了.

所以才有了上面那些问题.