SQL> desc school_details
SCHOOL_CODE NUMBER
SCHOOL_NAME VARCHAR2(500)
ADDRESS_LINE1 VARCHAR2(20)
ADDRESS_LINE2 VARCHAR2(20)
CITY VARCHAR2(20)
DISTRICT VARCHAR2(20)
STATE VARCHAR2(20)
COUNTRY VARCHAR2(20)
ZIP NUMBER(6)
SCHOOL_ESTABLISH_DT DATE
PHONE NUMBER
E_MAIL VARCHAR2(30)
URL VARCHAR2(30)
FIN_YR NUMBER
create or replace procedure insert_school_details ( in_sc_code number, in_sch_nm varchar2, in_addr1 varchar2, in_addr2 varchar2, in_city varchar2, in_dist varchar2, in_state varchar2, in_country varchar2, in_zip number, in_sch_est_dt date, in_phn number,in_email varchar2, in_url varchar2, in_fin_yr number) is
begin
insert into school_details values(in_sc_code, in_sch_nm, in_addr1, in_addr2, in_city, in_dist, in_state, in_country, in_zip, in_sch_est_dt, in_phn,in_email, in_url, in_fin_yr);
end;
VB.NET Code under button_click
cmd.CommandType = CommandType.StoredProcedure
'cmd.CommandText = "insert into student_details (register_no, F_NAME,M_NAme,L_Name) values ('" & str1 & "' ,'" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & " ',' " & Me.TextBox3.Text & "')"
cmd.Connection = con
cmd.CommandText = "insert_school_details "
'spcmd.Parameters.Add("empid", OracleType.Number, 5).Value = txtEmpid.Text;
'spcmd.Parameters.Add("sal", OracleType.Number, 5).Value = txtSal.Text;
'spcmd.ExecuteNonQuery();
Dim in_sc_code, in_sch_nm, IN_ADDR1, IN_ADDR2, IN_CITY, IN_DIST, IN_STATE, IN_COUNTRY, IN_ZIP, IN_SCH_EST_DT, IN_PHN, IN_EMAIL, IN_URL, IN_FIN_YR As New OleDb.OleDbParameter
in_sc_code.Direction = ParameterDirection.Input
in_sch_nm.Direction = ParameterDirection.Input
IN_ADDR1.Direction = ParameterDirection.Input
IN_ADDR2.Direction = ParameterDirection.Input
IN_CITY.Direction = ParameterDirection.Input
IN_DIST.Direction = ParameterDirection.Input
IN_STATE.Direction = ParameterDirection.Input
IN_COUNTRY.Direction = ParameterDirection.Input
IN_ZIP.Direction = ParameterDirection.Input
IN_SCH_EST_DT.Direction = ParameterDirection.Input
IN_PHN.Direction = ParameterDirection.Input
IN_EMAIL.Direction = ParameterDirection.Input
IN_URL.Direction = ParameterDirection.Input
IN_FIN_YR.Direction = ParameterDirection.Input
cmd.Parameters.Add("in_sc_code", OleDb.OleDbType.Integer).Value = Convert.ToInt32(txtSchCode.Text)
cmd.Parameters.Add("IN_SCH_NM", OleDb.OleDbType.LongVarChar).Value = txtSchName.Text
cmd.Parameters.Add("IN_ADDR1", OleDb.OleDbType.LongVarChar).Value = txtAddr1.Text()
cmd.Parameters.Add("IN_ADDR2", OleDb.OleDbType.LongVarChar).Value = txtAddr2.Text
cmd.Parameters.Add("IN_CITY", OleDb.OleDbType.LongVarChar).Value = txtCity.Text()
cmd.Parameters.Add("IN_DIST", OleDb.OleDbType.LongVarChar).Value = txtDist.Text
cmd.Parameters.Add("IN_STATE", OleDb.OleDbType.LongVarChar).Value = txtState.Text
cmd.Parameters.Add("IN_COUNTRY", OleDb.OleDbType.LongVarChar).Value = txtCntry.Text
'
cmd.Parameters.Add("IN_ZIP", OleDb.OleDbType.Integer).Value = Convert.ToInt32(txtZip.Text)
MsgBox(Convert.ToDateTime(dt_tm_Schestdt.Text))
cmd.Parameters.Add("IN_SCH_EST_DT", OleDb.OleDbType.DBDate).Value = Convert.ToDateTime(dt_tm_Schestdt.Text)
cmd.Parameters.Add("IN_PHN", OleDb.OleDbType.Integer).Value = Convert.ToInt32(txtPhn.Text)
cmd.Parameters.Add("IN_EMAIL", OleDb.OleDbType.LongVarChar).Value = txtEmail.Text
cmd.Parameters.Add("IN_URL", OleDb.OleDbType.LongVarChar).Value = txtURL.Text
cmd.Parameters.Add("IN_FIN_YR", OleDb.OleDbType.Integer).Value = Convert.ToInt32(txtFinYr.Text)
'cmd.Parameters.AddWithValue("in_sc_code", txtSchCode)
'cmd.Parameters.AddWithValue("IN_SCH_NM", txtSchCode)
'cmd.Parameters.AddWithValue("IN_ADDR1", txtAddr1)
'cmd.Parameters.AddWithValue("IN_ADDR2", txtAddr2)
MsgBox(cmd.CommandText)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MsgBox("one record added successfully", MsgBoxStyle.Information, "Student Details")
