利用SqlDataAdapterInsertcommand获取刚新增的自动编号ID值

这句很重要 要用INSERTCOMMAND 必须要先有SELCOMMAND这个

1. 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)

1. sql = "INSERT INTO [UserInfo] (" 
2.                 sql += "  [U_Name]" 
3.                 sql += " ,[U_Password]" 
4.                 sql += "  ,[U_EMail]" 
5.                 sql += " ,[U_Face]" 
6.                 sql += " ,[U_UserTruename]" 
7.                 sql += " ,[U_Sex]" 
8.                 sql += " ,[U_Age]" 
9.                 sql += " ,[U_Identity]" 
10.                 sql += " ,[U_Tel]" 
11.                 sql += " ,[U_Cellphone]" 
12.                 sql += " ,[U_Address]" 
13.                 sql += " ,[U_Zipcode]" 
14.                 sql += ",[U_MsnQQ]" 
15.                 sql += ",[U_About]" 
16.                 sql += ",[M_MaCode]" 
17.                 sql += ",[U_Score]" 
18.  
19.  
20.                 sql += " ) Values (" 
21.                 sql += "  @U_Name" 
22.                 sql += " ,@U_Password" 
23.                 sql += " , @U_EMail" 
24.                 sql += " ,@U_Face" 
25.                 sql += " ,@U_UserTruename" 
26.                 sql += " ,@U_Sex" 
27.                 sql += " ,@U_Age" 
28.                 sql += " ,@U_Identity" 
29.                 sql += " ,@U_Tel" 
30.                 sql += " ,@U_Cellphone" 
31.                 sql += " ,@U_Address" 
32.                 sql += " ,@U_Zipcode" 
33.                 sql += ",@U_MsnQQ" 
34.                 sql += ",@U_About" 
35.                 sql += ",@M_MaCode" 
36.                 sql += ",@U_Score" 
37.                 sql += ");Select  SCOPE_IDENTITY() As U_ID" 

1. myAda.InsertCommand = New SqlCommand(sql, conn)  
2.                 With myAda.InsertCommand  
3.  
4.                     .Parameters.Add(New SqlParameter("@U_Name", SqlDbType.NVarChar, 40, "U_Name")) 
5.                     .Parameters.Add(New SqlParameter("@U_Password", SqlDbType.NVarChar, 200, "U_Password")) 
6.                     .Parameters.Add(New SqlParameter("@U_Email", SqlDbType.NVarChar, 300, "U_Email")) 
7.                     .Parameters.Add(New SqlParameter("@U_Face", SqlDbType.Int, 4, "U_Face")) 
8.                     .Parameters.Add(New SqlParameter("@U_UserTruename", SqlDbType.NVarChar, 100, "U_UserTruename")) 
9.                     .Parameters.Add(New SqlParameter("@U_Sex", SqlDbType.Bit, 1, "U_Sex")) 
10.                     .Parameters.Add(New SqlParameter("@U_Age", SqlDbType.NVarChar, 100, "U_Age")) 
11.                     .Parameters.Add(New SqlParameter("@U_Identity", SqlDbType.NVarChar, 100, "U_Identity")) 
12.                     .Parameters.Add(New SqlParameter("@U_Tel", SqlDbType.NVarChar, 100, "U_Tel")) 
13.                     .Parameters.Add(New SqlParameter("@U_Cellphone", SqlDbType.NVarChar, 100, "U_Cellphone")) 
14.                     .Parameters.Add(New SqlParameter("@U_Address", SqlDbType.NVarChar, 300, "U_Address")) 
15.                     .Parameters.Add(New SqlParameter("@U_Zipcode", SqlDbType.NVarChar, 100, "U_Zipcode")) 
16.                     .Parameters.Add(New SqlParameter("@U_MsnQQ", SqlDbType.NVarChar, 100, "U_MsnQQ")) 
17.                     .Parameters.Add(New SqlParameter("@U_About", SqlDbType.NVarChar, -1, "U_About")) 
18.                     .Parameters.Add(New SqlParameter("@M_MaCode", SqlDbType.NVarChar, 100, "M_MaCode")) 
19.                     .Parameters.Add(New SqlParameter("@U_Score", SqlDbType.Int, 4, "U_Score")) 
20.  
21.                 End With 

建立DS 并获取 ID

1. Dim ds As New DataSet 
2.                 myAda.Fill(ds) 
3.  
4.                 Dim myDataRow As DataRow = ds.Tables(0).NewRow() 
5.  
6.                 myDataRow("U_Name") = Me.U_Name.Text.Trim 
7.                 myDataRow("U_Password") = myappClass.EncryptPassword(Me.U_PasswordReg1.Text.Trim, "MD5") 
8.                 myDataRow("U_Email") = Me.U_Email.Text.Trim 
9.                 myDataRow("U_Face") = Me.myhead.Value.Trim.Trim 
10.                 myDataRow("U_UserTruename") = Me.U_UserTruename.Text.Trim 
11.                 If Me.U_Sex.SelectedValue = 1 Then 
12.                     myDataRow("U_Sex") = True 
13.                 Else 
14.                     myDataRow("U_Sex") = False 
15.                 End If 
16.  
17.                 myDataRow("U_Age") = Me.U_Age.Text.Trim 
18.                 myDataRow("U_Identity") = Me.U_Identity.Text.Trim 
19.                 myDataRow("U_Tel") = Me.U_Tel.Text.Trim 
20.                 myDataRow("U_Cellphone") = Me.U_Cellphone.Text.Trim 
21.                 myDataRow("U_Address") = Me.U_Address.Text.Trim 
22.                 myDataRow("U_Zipcode") = Me.U_Zipcode.Text.Trim 
23.                 myDataRow("U_MsnQQ") = Me.U_MsnQQ.Text.Trim 
24.  
25.                 If Me.U_About.Text.Trim <> "" Then 
26.                     myDataRow("U_About") = myappClass.rpl(Me.U_About.Text.Trim) 
27.                 Else 
28.                     myDataRow("U_About") = Me.U_About.Text.Trim 
29.  
30.                 End If 
31.  
32.                 myDataRow("M_MaCode") = myappClass.getMacAdd().ToString 
33.                 myDataRow("U_Score") = 1000  ''注册赠送游戏喜金 2008-05-07 
34.  
35.                 ds.Tables(0).Rows.Add(myDataRow) 
36.                 myAda.Update(ds) 
37.  
38.                 Dim myUID As String = ds.Tables(0).Rows(0)("U_ID").ToString 
39.                 ds.Dispose() 

注意 ds.Tables(0).Rows(0)("U_ID").ToString