Browse a file and then upload it to mysql

[vanita01]

Hi

Can anyone please help me. I am trying to browse for a file. I would like the file path name to be shown on a text box. Using the upload button I would then like to save the file on mysql. is is the code I have don so far.

Private Function LoadFile(sFile As String) As Boolean
    Dim filenum
 
    Text2.Tag = sFile
 
    ' Make sure a file is specified.
    If sFile = "" Then
        LoadFile = False
        Exit Function
    End If
 
    ' Make sure the file exists before trying to open it.
    If Dir(sFile) = "" Then
        LoadFile = False
        Exit Function
    End If
 
    ' Read the collection from a text file.
    ' Get a free file number
    filenum = FreeFile
 
    ' Open sfile for input
    Open sFile For Input As filenum
    On Error Resume Next
    ' Read the contents of the file into TextBox1
    Text2.Text = Input(LOF(filenum), filenum)
    If Err Then
        Text2.Text = "Error Loading File. Invalid Format"
        Close filenum
        LoadFile = False
    End If
    ' Close the file
    Close filenum
 
    LoadFile = True
End Function
 
 
      Private Sub Command10_Click()
      'Opens a Treeview control that displays the directories in a computer
        Command1.Visible = True
 
         Dim lpIDList As Long
         Dim sBuffer As String
         Dim szTitle As String
         Dim tBrowseInfo As BrowseInfo
 
         szTitle = "File to Upload:"
        With tBrowseInfo
            .hWndOwner = Me.hwnd
            .lpszTitle = lstrcat(szTitle, "")
            .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
         End With
 
         lpIDList = SHBrowseForFolder(tBrowseInfo)
 
         If (lpIDList) Then
            sBuffer = Space(MAX_PATH)
            SHGetPathFromIDList lpIDList, sBuffer
            sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
 
          'Text1.Text = sBuffer
          txtFields(14).Text = sBuffer
            MsgBox sBuffer
         End If
 
 
End Sub

[debasisdas]

What is the problem with the code ?

Why are you reading the contest of the file ?