asked on
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim cnn As New OleDbConnection("Provider=IBMDADB2.DB2COPY1;Data Source=TM_REPORTING_00004;Persist Security Info=True;Password=123456;User ID=rfuser")
Dim cmd As New OleDbCommand("FTC.LOOKUP_STATE_FOR_ZONE", cnn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("IN_ZIP", OleDbType.WChar)
With cmd.Parameters("IN_ZIP")
.Direction = ParameterDirection.Input
.Size = 10
.Value = TextBox1.Text
End With
cmd.Parameters.Add("OUT_STATE", OleDbType.WChar)
With cmd.Parameters("OUT_STATE")
.Direction = ParameterDirection.Output
.Size = 4
.Value = " "
End With
Try
cnn.Open()
cmd.ExecuteNonQuery()
Label1.Text = cmd.Parameters("OUT_STATE").Value
Catch ex As Exception '
Label1.Text = "There was an error. " & ex.Source & " " & ex.Message
Finally
cnn.Close()
cnn.Dispose()
End Try
End Sub
ASKER
The successor to Active Server Pages, ASP.NET websites utilize the .NET framework to produce dynamic, data and content-driven web applications and services. ASP.NET code can be written using any .NET supported language. As of 2009, ASP.NET can also apply the Model-View-Controller (MVC) pattern to web applications
TRUSTED BY
ASKER
Thanks,
Steve