以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]赋值主键给某一列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85204)

--  作者:新航程小何
--  发布时间:2016/5/20 10:04:00
--  [求助]赋值主键给某一列
各位老师,我想实现一个功能需要让主键UserId赋值给GroupId,我写如下代码功能实现了,但是执行了两次sql 语句,不知道有没有简单方法?
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText = "in sert into {F_Users} (UserName,sex,Mobile,ID,QQ,Email,WeiXin,Address,AddGroupId) values( \'" & tb1 & "\',\'" & cb1 & "\',\'" & tb2 & "\',\'" & tb3 & "\',\'" & tb4 & "\',\'" & tb5 & "\',\'" & tb6 & "\',\'" & addr &"\',\'" & _GroupID & "\')"
        cmd.ExecuteNonQuery()
          Dim Users As List(Of String)
         Users=DataTables("ObjectList_table1").sqlGetValues("UserId"," Mobile=\'" & tb2 & "\'")
        For Each user As String In Users
            cmd.CommandText = "UP DATE {F_Users} SET GroupId= \'"& User & "\' WHERE Mobile =\'" & tb2 & "\'"
        cmd.ExecuteNonQuery()    
        Next

--  作者:大红袍
--  发布时间:2016/5/20 10:11:00
--  

要执行两句代码的

 

http://blog.sina.com.cn/s/blog_610716d00100f73s.html

 


--  作者:新航程小何
--  发布时间:2016/5/20 10:24:00
--  
多谢老师