Visual Basic

Public Function Add_Ne(ExecQ As String, paramxx As String, TextN As String) As Boolean

     Try
         con.Open()

         With cmd
             .CommandType = CommandType.StoredProcedure
             .CommandText = ExecQ
             .Connection = con
             .Parameters.AddWithValue(paramxx, TextN)
             .ExecuteNonQuery()
         End With

         If con.State = ConnectionState.Open Then
             con.Close()
         End If
         Return True
     Catch ex As Exception
         MessageBox.Show(ex.Message)
         Return False
     End Try

 End Function

xo.Add_Ne("INSERT_ACCOUNT", "@AccountID", TXTAccNumber.Text)

Mohamed Hamdy wrote:

If I have 15 params Is it true to put 15 params and 15 textbox as string in main
of function

Mohamed Hamdy wrote:

or there are easier ways?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Mohamed Hamdy wrote:

What I mean If I have 15 params Is it true to put 15 params and 15 textbox as string in main of function or there are easier ways?

1. Change the commandtype to CommandType.StoredProcedure.
   
2. Change "ExecQ" to "ProcedureName". Assign that to .CommandText.
   
3. Add a Parameter.WithValue for all 15 parameters. (Yes, 15 lines of code).
   

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Public Shared Function GetAllMovies() As IEnumerable(Of MovieItem)
    Using context As New MovieContext()
        Dim results = From item In context.Movies
                      Where item.flv = 1
                      Order By item.MovieName
                      Select New MovieItem With 
                      {
                          .MovieId = item.MovieId,
                          .MovieName = item.MovieName,
                          ...
                      }

        Return results.AsEnumerable()
    End Using
End Function

Imports System.Data.Entity
Imports System.Data.Entity.ModelConfiguration.Conventions
Imports dataAccessLayer.Models

Namespace DAL

    Public Class MovieContext
        Inherits DbContext

        Public Sub New()
            MyBase.New("MovieContext")

            Database.SetInitializer(New CreateDatabaseIfNotExists(Of MovieContext))
            Entity.Database.SetInitializer(Of MovieContext)(Nothing)

        End Sub

        Public Property Movies As DbSet(Of Movies)
        Public Property Movies_flv As DbSet(Of Movies_flv)
        Public Property Movies_h264 As DbSet(Of Movies_h264)

        Protected Overrides Sub OnModelCreating( _
            ByVal modelBuilder As DbModelBuilder)

            modelBuilder.Conventions.Remove(Of PluralizingTableNameConvention)()

        End Sub

    End Class

End Namespace

Public Shared Function load_movie_array( _
        ByVal pSortOrder As SortOrder,
        ByVal pType As MovieType) As IEnumerable(Of MovieItem)

        Using context As New MovieContext()
            Dim results =
                From item In context.Movies
                Where item.flv = 1
                Order By item.MovieName
                Select New MovieItem With
                {
                    .MovieID = item.MovieID,
                    .MovieName = item.MovieName,
                    .MovieType = item.MovieType,
                    .MovieDeliveryType = item.MovieDeliveryType,
                    .MoviePath = item.MoviePath,
                    .MovieURL = item.MovieURL,
                    .MoviePostage = item.MoviePostage,
                    .MovieThumbnail = item.MovieThumbnail,
                    .MovieLarge = item.MovieLarge,
                    .MoviePlaceHolder = item.MoviePlaceHolder,
                    .MovieBitRate = item.MovieBitRate,
                    .MovieTime = item.MovieTime,
                    .MovieSize = item.MovieSize,
                    .MovieDescription = item.MovieDescription,
                    .MovieCount = item.MovieCount,
                    .MovieContributor = item.MovieContributor,
                    .MoviePostDate = item.MoviePostDate,
                    .MovieIcon = item.MovieIcon,
                    .movie_Parameters = item.movie_Parameters
            }

            Return results.AsEnumerable()

        End Using

    End Function