334 Chapter 7 • Introduction to ADO.NET: A Simple Address Book
Figure 7.19B VB.NET (vb\CDalAddress.vb)
Public Function Add(ByVal FName As String, _
ByVal LName As String, _
ByVal Phone As String, _
ByVal EMail As String, _
ByVal WebPage As String, _
ByVal Age As String, _
ByVal Comments As String) As Int32
Dim oCmd As SqlCommand
Dim oParam As SqlParameter
Dim strSQL As String
Dim AdrsID As Int32
strSQL = "usp_tblAddress_ins"
oCmd = New SqlCommand(strSQL, oConn)
oCmd.CommandType = CommandType.StoredProcedure
oParam = oCmd.Parameters.Add("@AdrsID", SqlDbType.Int, 4)
oParam.Direction = ParameterDirection.Output
oCmd.Parameters.Add("@FName", SqlDbType.VarChar, 50).Value = FName
oCmd.Parameters.Add("@LName", SqlDbType.VarChar, 50).Value = LName
oCmd.Parameters.Add("@Phone", SqlDbType.VarChar, 15).Value = Phone
oCmd.Parameters.Add("@EMail", SqlDbType.VarChar, 255).Value = EMail
oCmd.Parameters.Add("@WebPage", SqlDbType.VarChar, 255).Value =
WebPage
oCmd.Parameters.Add("@Age", SqlDbType.TinyInt, 2).Value = Age
oCmd.Parameters.Add("@Comments", SqlDbType.VarChar, 2000).Value =
Comments
Try
If oConn.State = ConnectionState.Closed Then
oConn.Open()
End If oCmd.ExecuteNonQuery()
AdrsID = oCmd.Parameters("@AdrsID").Value
Return AdrsID
Catch oErr As Exception
Continued