Visual Basic

Member 10970081 wrote:

how to filter

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

Member 10728667 wrote:

sideLength = Convert.ToDouble(length)

Dim prompt, sideLength As String
Dim area, length As Double

prompt = InputBox("Enter sides of the square.")
' On return from this method, "prompt" will contain the value typed by the user
' so that is the string that needs to be converted to a number.

sideLength = Convert.ToDouble(length)
' You are trying to convert the variable "length" to a number,
' but you have not done anything to get a value into it.
' You have also declared "sideLength" as a string, but now
' you are trying to store a Double value into it.

area = length * length
Me.lblOutput.Text = "Square of side length " & length & ": " & area

con = New SqlConnection("server=(local);database=pers;Trusted_Connection=True;")
           con.Open()

           datd = New SqlDataAdapter("select * from perInfo ", con)
           datd.Fill(ds, "perInfo")
           DataGridView1.DataSource = ds.Tables("perInfo")

con = New SqlConnection("server=(local);database=pers;Trusted_Connection=True;")
            con.Open()
            Me.datd = New SqlDataAdapter("select * from perInfo", con)

            Dim commandBuilder As New SqlCommandBuilder(Me.datd)

            Dim table As New DataTable()
            table.Locale = System.Globalization.CultureInfo.InvariantCulture
            Me.datd.Fill(table)
            Me.bindingsource1.DataSource = table
            Me.DataGridView1.DataSource = Me.bindingsource1

Dim defCult As CultureInfo = CultureInfo.CreateSpecificCulture("fa-IR")
       defCult.DateTimeFormat.Calendar = New PersianCalendar
       Thread.CurrentThread.CurrentCulture = defCult
       Thread.CurrentThread.CurrentUICulture = defCult
       Try
           con = New SqlConnection("server=(local);database=pers;Trusted_Connection=True;")
           con.Open()
           Me.datd = New SqlDataAdapter("select * from perInfo", con)

           Dim commandBuilder As New SqlCommandBuilder(Me.datd)
           Dim table As New DataTable()
           table.Locale = System.Globalization.CultureInfo.InvariantCulture
           Me.datd.Fill(table)
           Me.bindingsource1.DataSource = table
           Me.DataGridView1.DataSource = Me.bindingsource1