sqlconn = conxn() Dim dset As New DataSet("client") Dim dadpt As New SqlDataAdapter("select * From client", sqlconn) dadpt.Fill(dset, "client") Dim dsADRS As New DataSet("adrs") Dim daADRS As New SqlDataAdapter("SELECT MAX(addID) FROM addres ", sqlconn) daADRS.Fill(dsADRS, "adrs") sen = sqlconn.Close() Dim cmdBuilder As SqlCommandBuilder = New SqlCommandBuilder(dadpt) Dim dr As DataRow dr = dset.Tables("client").NewRow() dr("name") = name dr("fname") = fname dr("addID") = Convert.ToDecimal(sqls) dset.Tables("lawyer").Rows.Add(dr) dadpt.Update(dset, "lawyer")
SELECT @newAddID = SCOPE_IDENTITY() -- this gets the most recently inserted Identity number ... INSERT INTO client (field1, ship_to_add_id, ...) VALUES (@field1, @newAddID...)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)