Visual Basic

AnthonyDailyMail wrote:

The data in the grid control is populated from a text file I import and want to save to the table. Below is the code I'm using. Any thoughts?

Bastard Programmer from Hell

• The SqlCommand, as linked above,
  
• A SqlConnection[^], with a ConnectionString[^] on which you execute the command
  
• The INSERT[^]-command in TSQL syntax
  

Bastard Programmer from Hell

If IsDBNull(Me.FileData.Text) Or Len(Me.FileData.Text) < 1 Then
            MsgBox("You must select the reformatter flate file", MsgBoxStyle.Information)
            Exit Sub
        Else
            Using MyReader As New  _
              Microsoft.VisualBasic.FileIO.TextFieldParser(Me.FileData.Text)
                MyReader.TextFieldType = FileIO.FieldType.Delimited
                MyReader.SetDelimiters(",")
                Dim currentRow As String()
                While Not MyReader.EndOfData
                    Try
                        currentRow = MyReader.ReadFields()
                        DataGridView1.Rows.Add(currentRow)
                    Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                        MsgBox("Line " & ex.Message & _
                        "is not valid and will be skipped.")
                    End Try
                End While
            End Using
            'FlatFileImportDataGridView.DataSource = FlatFileImportBindingSource
            Dim dr As New System.Windows.Forms.DataGridViewRow
            'For Each dr In Me.FlatFileImportDataGridView.SelectedRows
            'Me.DataGridView2.Rows.Add(dr.Cells(0).Value, dr.Cells(1).Value, dr.Cells(2).Value, dr.Cells(3).Value, dr.Cells(4).Value, dr.Cells(5).Value, dr.Cells(6).Value, dr.Cells(7).Value)
            'Next
            Dim workrow As DataRow
            Dim i As Integer
            For i = 0 To DataGridView1.Rows.Count - 2
                workrow = Database1DataSet.Tables("MyImporter").NewRow()
                workrow(0) = DataGridView1.Rows(i).Cells(0).Value 'if the table field is a string
                workrow(1) = Val(DataGridView1.Rows(i).Cells(1).Value) 'if the table field is a number
                'workrow(2) = Val(DataGridView1.Rows(i).Cells(2).Value) 'if the table field is a number
                'workrow(3) = Val(DataGridView1.Rows(i).Cells(3).Value) 'if the table field is a number
                'workrow(4) = Val(DataGridView1.Rows(i).Cells(4).Value) 'if the table field is a number
                Database1DataSet.Tables("MyImporter").Rows.Add(workrow)
            Next

            TableAdapterManager.UpdateAll(Database1DataSet)
            
        End If

Member 8855904 wrote:

My problem's, without a server, a client need more than 2 port's to connect to for ex. 10 computers (outher clients) or need 20 port's

2 ports to comunicate with any computer?

Bastard Programmer from Hell

Brad Fackrell wrote:

How do I remove the quotes?

Bastard Programmer from Hell

Eddy Vluggen wrote:

Why not capture the characters between the quotes?

<script type="text/vbscript">
    strUnits = "point_units=""meters"">"
    strUnits = Replace(strUnits, "point_units=""","")
    strUnits = Replace(strUnits, """>", "")
    document.write(strUnits)
</script>

VJ Reddy wrote:

"point_units=""","")

Dim strUnitsResolved As String = String.Empty
       Dim strUnits As String = "point_units=""'meters'"">"""
       strUnits = Replace(strUnits, "point_units=""'", "")

       strUnitsResolved = Replace(strUnits, "'"">""", String.Empty)
       MsgBox(strUnitsResolved)

Public Sub mdlShow(accesstype As String,cmd As String)
 return=checking()
 if return<>0 then 
   Dim frm As New FormMain
   frm.Show vbModal
 end if
 End Sub
 in form

Bastard Programmer from Hell