Visual Basic

xbiplav wrote:

What i want to do is programatically create tables that satisfies the above relationship.How can i do this?

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click<br />
        Dim SQLHelper As New SQL<br />
        Dim tmpAFOS As String<br />
        tmpAFOS = cboAFOS.SelectedText<br />
        Select Case tmpBOS<br />
            Case rrdoAF.Text : tmpRank = cboPAF.Text<br />
            Case rrdoNA.Text<br />
                tmpRank = "N/A"<br />
                tmpAFOS = "N/A"<br />
            Case rrdoNP.Text : tmpRank = cboPNP.Text<br />
            Case rrdoPM.Text : tmpRank = cboPM.Text<br />
            Case rdoPA.Text : tmpRank = cboPA.Text<br />
            Case rdoPN.Text : tmpRank = cboPN.Text<br />
        End Select<br />
      <br />
        Dim USERParameters(16) As SqlClient.SqlParameter<br />
        USERParameters(0) = New SqlClient.SqlParameter("@last_name", txtLastName.Text)<br />
        USERParameters(1) = New SqlClient.SqlParameter("@first_name", txtFirstName.Text)<br />
        USERParameters(2) = New SqlClient.SqlParameter("@middle_name", txtMiddleName.Text)<br />
        USERParameters(3) = New SqlClient.SqlParameter("@rank", tmpRank)<br />
        USERParameters(4) = New SqlClient.SqlParameter("@serial_number", txtSerial.Text)<br />
        USERParameters(5) = New SqlClient.SqlParameter("@afos", tmpAFOS)<br />
        USERParameters(6) = New SqlClient.SqlParameter("@branch_of_service", tmpBOS)<br />
        USERParameters(7) = New SqlClient.SqlParameter("@group_id", 1)<br />
        USERParameters(8) = New SqlClient.SqlParameter("@status", "For Approval")<br />
        USERParameters(9) = New SqlClient.SqlParameter("@birth_date", dtpBirthDate.Value)<br />
        USERParameters(10) = New SqlClient.SqlParameter("@phone", txtPhone.Text)<br />
        USERParameters(11) = New SqlClient.SqlParameter("@address", txtAddress.Text)<br />
        USERParameters(12) = New SqlClient.SqlParameter("@email", txtEmail.Text)<br />
        USERParameters(13) = New SqlClient.SqlParameter("@maxallowed", 1)<br />
        USERParameters(14) = New SqlClient.SqlParameter("@registered_by", "")<br />
        USERParameters(15) = New SqlClient.SqlParameter("@password", txtPassword.Text)<br />
        Dim nStr As String = Me.Label23.Text.Substring(Me.Label23.Text.LastIndexOf("\") + 1)<br />
        USERParameters(16) = New SqlClient.SqlParameter("@fname", sqldbtype.nvarchar).value=nstr<br />
        <br />
        Dim ms As New MemoryStream<br />
        Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)<br />
        Dim arrayImage() As Byte = ms.GetBuffer<br />
        ms.Close() ' Closes the Memory Stream<br />
<br />
        USERParameters(17) = New SqlClient.SqlParameter("@pic", SqlDbType.Image).Value = arrayImage<br />
        Dim result = SQLHelper.ExecuteQueryString("usp_users_insert", USERParameters)<br />
<br />
        If result <> "" Then<br />
            'MessageBox.Show("Image Saved Into the DataBase")<br />
            MessageBox.Show("TRANSACTION COMPLETED:" + vbCrLf + "You have successfully submitted your registration details." + vbCrLf + "Your user id is : " + Integer.Parse(result).ToString("0000"), "Transaction Error", MessageBoxButtons.OK, MessageBoxIcon.Information)<br />
        Else<br />
            MessageBox.Show("TRANSACTION ERROR:" + vbCrLf + "The system is unable to process your request. Please try again later or contact the librarian.", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)<br />
        End If<br />
        If GlobalProgramLevel = "LIBRARIAN" Then<br />
            frmLibrarianModule.Show()<br />
        Else<br />
            frmUserLogInModule.Show()<br />
        End If<br />
        Me.Hide()<br />
    End Sub