Visual Basic

Sub Main()
           Dim splash As New <<your-login-form-name>>
           splash.Show()


           Do Until isCompleted
               System.Windows.Forms.Application.DoEvents()
           Loop

           splash.Close()
           System.Windows.Forms.Application.DoEvents()
           System.Windows.Forms.Application.Run(New <<your-main-form-name>>)

       Catch ex As Exception
           MessageBox.Show(ex.Message, "Sub Main:" + ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Information)
       '' Do proper exception handling stuff here
       End Try
   End Sub

• numbers, what if decimal separator is comma (as it is for example in my case). When updating a column you would have for example UPDATE ... SET ColumnName = 49,6 ... This would lead to an error
• text, what if your text contains a quote, for example: UPDATE ... SET ColumnName = 'Guns 'n' Roses'. Error again
• dates, input date is in different format. For example I use 25.1.2009 (Finnish format) etc.

ivo75 wrote:

are you sure that work

...
strQuery = "insert into data_pr values(?)"
aCmd = New OleDbCommand(strQuery, aCon)
aCmd.Parameters.AddWithValue("ColumName", DateTimePicker1.Value)
aCmd.ExecuteNonQuery()
...

ivo75 wrote:

"Data type mismatch in criteria expression"

CONVERT(DATETIME, '" & Format(datetimepicker1.value, "MM/dd/yyyy") & " 00:00:00', 102)

Dim sReader As New IO.StreamReader("C:\\File.txt")<br />
        Dim CurrentLine As String = "TODAY 007"<br />
        Dim DataLines As New System.Collections.Specialized.StringCollection<br />
<br />
        Do While sReader.EndOfStream = False<br />
            CurrentLine = sReader.ReadLine<br />
            If CurrentLine.Contains("PRV*PE") = False Then<br />
                DataLines.Add(CurrentLine)<br />
            End If<br />
        Loop<br />
        sReader.Close()<br />
        sReader = Nothing<br />
<br />
        Dim sWriter As New IO.StreamWriter("C:\\File.txt")<br />
<br />
        For Each CurrentLine In DataLines<br />
            sWriter.WriteLine(CurrentLine)<br />
        Next<br />
        sWriter.Close()<br />
        sWriter = Nothing

IvanIT wrote:

If CurrentLine.Contains("PRV*PE") = False Then
DataLines.Add(CurrentLine)
End If

Do While Not sReader.EndOfStream
    DataLines.Add(CurrentLine)
    If CurrentLine.Contains("PRV*PE") Then
        DataLines.Add("TODAY 007")
    End If
Loop

Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click<br />
        MessageBox.Show("you are about to translate file")<br />
<br />
        'read the file to find data<br />
        Dim sReader As New IO.StreamReader("C:\moviez_21.txt")<br />
        Dim CurrentLine As String<br />
<br />
        Dim DataLines As New System.Collections.Specialized.StringCollection<br />
<br />
        CurrentLine = sReader.ReadLine<br />
        If CurrentLine.StartsWith("PRV*PE*ZZ*") = True Then<br />
            sReader.ReadToEnd()<br />
        End If<br />
        sReader.Close()<br />
<br />
        'modifying the  file<br />
        Dim oError As System.IO.StreamWriter<br />
        oError = New System.IO.StreamWriter("c:\moviez_21.txt", True)<br />
<br />
        'text to be inserted in after PRV*PE*ZZ*<br />
        oError.Write("REF*LU*") ' + file number<br />
        oError.Close()<br />
    End Sub