注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

幽狼De博客

记录成长中的点点滴滴

 
 
 

日志

 
 

[学习]利用SqlDataAdapter Insertcommand 获取刚新增的自动编号ID值   

2010-03-01 13:55:06|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

[学习]利用SqlDataAdapter Insertcommand 获取刚新增的自动编号ID值


这句很重要 要用INSERTCOMMAND 必须要先有SELCOMMAND这个
 Dim myAda As SqlDataAdapter = New SqlDataAdapter("Select * From [UserInfo] Where [U_ID] Is Null", conn)

接下来就是INSERT了,注意 有二个SQL语句 ";" Select  SCOPE_IDENTITY() As U_ID  (U_ID为自动ID)

                sql 
= "INSERT INTO [UserInfo] ("
                sql 
+= "  [U_Name]"
                sql 
+= " ,[U_Password]"
                sql 
+= "  ,[U_EMail]"
                sql 
+= " ,[U_Face]"
                sql 
+= " ,[U_UserTruename]"
                sql 
+= " ,[U_Sex]"
                sql 
+= " ,[U_Age]"
                sql 
+= " ,[U_Identity]"
                sql 
+= " ,[U_Tel]"
                sql 
+= " ,[U_Cellphone]"
                sql 
+= " ,[U_Address]"
                sql 
+= " ,[U_Zipcode]"
                sql 
+= ",[U_MsnQQ]"
                sql 
+= ",[U_About]"
                sql 
+= ",[M_MaCode]"
                sql 
+= ",[U_Score]"


                sql 
+= " ) Values ("
                sql 
+= "  @U_Name"
                sql 
+= " ,@U_Password"
                sql 
+= " , @U_EMail"
                sql 
+= " ,@U_Face"
                sql 
+= " ,@U_UserTruename"
                sql 
+= " ,@U_Sex"
                sql 
+= " ,@U_Age"
                sql 
+= " ,@U_Identity"
                sql 
+= " ,@U_Tel"
                sql 
+= " ,@U_Cellphone"
                sql 
+= " ,@U_Address"
                sql 
+= " ,@U_Zipcode"
                sql 
+= ",@U_MsnQQ"
                sql 
+= ",@U_About"
                sql 
+= ",@M_MaCode"
                sql 
+= ",@U_Score"
                sql 
+= ");Select  SCOPE_IDENTITY() As U_ID"

myAda.InsertCommand = New SqlCommand(sql, conn) 
                
With myAda.InsertCommand 

                    .Parameters.Add(
New SqlParameter("@U_Name", SqlDbType.NVarChar, 40"U_Name"))
                    .Parameters.Add(
New SqlParameter("@U_Password", SqlDbType.NVarChar, 200"U_Password"))
                    .Parameters.Add(
New SqlParameter("@U_Email", SqlDbType.NVarChar, 300"U_Email"))
                    .Parameters.Add(
New SqlParameter("@U_Face", SqlDbType.Int, 4"U_Face"))
                    .Parameters.Add(
New SqlParameter("@U_UserTruename", SqlDbType.NVarChar, 100"U_UserTruename"))
                    .Parameters.Add(
New SqlParameter("@U_Sex", SqlDbType.Bit, 1"U_Sex"))
                    .Parameters.Add(
New SqlParameter("@U_Age", SqlDbType.NVarChar, 100"U_Age"))
                    .Parameters.Add(
New SqlParameter("@U_Identity", SqlDbType.NVarChar, 100"U_Identity"))
                    .Parameters.Add(
New SqlParameter("@U_Tel", SqlDbType.NVarChar, 100"U_Tel"))
                    .Parameters.Add(
New SqlParameter("@U_Cellphone", SqlDbType.NVarChar, 100"U_Cellphone"))
                    .Parameters.Add(
New SqlParameter("@U_Address", SqlDbType.NVarChar, 300"U_Address"))
                    .Parameters.Add(
New SqlParameter("@U_Zipcode", SqlDbType.NVarChar, 100"U_Zipcode"))
                    .Parameters.Add(
New SqlParameter("@U_MsnQQ", SqlDbType.NVarChar, 100"U_MsnQQ"))
                    .Parameters.Add(
New SqlParameter("@U_About", SqlDbType.NVarChar, -1"U_About"))
                    .Parameters.Add(
New SqlParameter("@M_MaCode", SqlDbType.NVarChar, 100"M_MaCode"))
                    .Parameters.Add(
New SqlParameter("@U_Score", SqlDbType.Int, 4"U_Score"))

                
End With

建立DS 并获取 ID

Dim ds As New DataSet
                myAda.Fill(ds)

                
Dim myDataRow As DataRow = ds.Tables(0).NewRow()

                myDataRow(
"U_Name"= Me.U_Name.Text.Trim
                myDataRow(
"U_Password"= myappClass.EncryptPassword(Me.U_PasswordReg1.Text.Trim, "MD5")
                myDataRow(
"U_Email"= Me.U_Email.Text.Trim
                myDataRow(
"U_Face"= Me.myhead.Value.Trim.Trim
                myDataRow(
"U_UserTruename"= Me.U_UserTruename.Text.Trim
                
If Me.U_Sex.SelectedValue = 1 Then
                    myDataRow(
"U_Sex"= True
                
Else
                    myDataRow(
"U_Sex"= False
                
End If

                myDataRow(
"U_Age"= Me.U_Age.Text.Trim
                myDataRow(
"U_Identity"= Me.U_Identity.Text.Trim
                myDataRow(
"U_Tel"= Me.U_Tel.Text.Trim
                myDataRow(
"U_Cellphone"= Me.U_Cellphone.Text.Trim
                myDataRow(
"U_Address"= Me.U_Address.Text.Trim
                myDataRow(
"U_Zipcode"= Me.U_Zipcode.Text.Trim
                myDataRow(
"U_MsnQQ"= Me.U_MsnQQ.Text.Trim

                
If Me.U_About.Text.Trim <> "" Then
                    myDataRow(
"U_About"= myappClass.rpl(Me.U_About.Text.Trim)
                
Else
                    myDataRow(
"U_About"= Me.U_About.Text.Trim

                
End If

                myDataRow(
"M_MaCode"= myappClass.getMacAdd().ToString
                myDataRow(
"U_Score"= 1000  ''注册赠送游戏喜金 2008-05-07

                ds.Tables(
0).Rows.Add(myDataRow)
                myAda.Update(ds)

                
Dim myUID As String = ds.Tables(0).Rows(0)("U_ID").ToString
                ds.Dispose()

注意 ds.Tables(0).Rows(0)("U_ID").ToString
  评论这张
 
阅读(447)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017