Visual Basic

Mr Oizo wrote:

but I seem to get data cncurrency errors in my code when I save the same values twice.

modbdaSongNewest2.ClearBeforeFill = True<br />
        modbdaSongNewest2.Fill(DsLibraryNewest2.Song)<br />
<br />
' bindingSong is a bindingsource object<br />
<br />
  bindingSong.DataSource = DsLibraryNewest2<br />
        bindingSong.DataMember = "Song"<br />
       <br />
      <br />
        dgSongProperties.DataSource = bindingSong

txtArtist.DataBindings.Add("Text",bindingSong, "Artist",_<br />
       True, DataSourceUpdateMode.OnPropertyChanged)

 Dim FileInfo As System.IO.FileInfo ' This variable will hold the selected file info<br />
        Dim drCurrentSong As dsLibraryNewest2.SongRow<br />
<br />
        If Not (dlgOpenFile Is Nothing) Then<br />
<br />
<br />
            For i = 0 To dlgOpenFile.FileNames.GetUpperBound(0)<br />
                FileInfo = My.Computer.FileSystem.GetFileInfo(dlgOpenFile.FileNames(i))<br />
                ' This will retrieve the foldername for the file<br />
                Dim folderPath As String =  FileInfo.DirectoryName<br />
                ' MsgBox(folderPath)<br />
                ' This will retrieve  file name for the file<br />
                Dim fileName As String = FileInfo.Name<br />
                'MsgBox(fileName)<br />
<br />
                '  This will retrieve the full path of the file <br />
                Dim absolutePath As String = FileInfo.FullName<br />
                ' MsgBox(absolutePath)<br />
<br />
                Try<br />
                    drCurrentSong = DsLibraryNewest2.Song.NewSongRow<br />
<br />
                    With drCurrentSong<br />
<br />
                        .FileName = fileName<br />
                        .FolderPath = folderPath<br />
                        .AbsolutePath = absolutePath<br />
<br />
                    End With<br />
                    DsLibraryNewest2.Song.AddSongRow(drCurrentSong)<br />
                    '   Call SaveChanges()<br />
<br />
                Catch ex As System.ArgumentException<br />
                    DsLibraryNewest2.Song(mintCurrent).CancelEdit()<br />
<br />
                Catch ex As System.Data.ConstraintException<br />
                    MessageBox.Show( _<br />
                   ex.Message, _<br />
                    "Error", MessageBoxButtons.OK)<br />
                    DsLibraryNewest2.Song(mintCurrent).CancelEdit()<br />
<br />
                End Try<br />
                mintCurrent += 1<br />
            Next<br />
<br />
        End If<br />
<br />
<br />
    End Sub

Private Sub dgSongProperties_RowLeave(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgSongProperties.RowLeave<br />
<br />
' this line below doesn't really do anything <br />
<br />
        dgSongProperties.Update()<br />
<br />
    End Sub<br />
<br />
<br />
<br />
<br />
<br />
<br />
    Private Sub BindingSource1_BindingComplete(ByVal sender As Object, ByVal e As System.Windows.Forms.BindingCompleteEventArgs) Handles bindingSong.BindingComplete<br />
<br />
        'the following code Checks if the data source has been updated, and that no error has occured.<br />
        If e.BindingCompleteContext = BindingCompleteContext.DataSourceUpdate _<br />
            AndAlso e.Exception Is Nothing Then<br />
<br />
            ' If not, end the current edit.<br />
            e.Binding.BindingManagerBase.EndCurrentEdit()<br />
<br />
        End If<br />
<br />
<br />
    End Sub

Dave Kreskowiak wrote:

Come on, think!!

Gagan Deep Garg wrote:

How read a txt file in visual basic & convert a Ms-Access.

Gagan Deep Garg wrote:

Any body help me urgent

Dave Kreskowiak wrote:

support for it is waning fast

mr_lasseter wrote:

My company is still using it to create projects...

Sarfaraj Ahmed wrote:

Question1: At that moment if I click btnAddNewBook then a Message will be come like msgbox("Please Close Existing Form before you want to open another window") not the frmMainPage.

Sarfaraj Ahmed wrote:

Question2: on frmMember i have a btnShowDetails when I will click this button then frmMemberDetails will load on frmMainPage on Panel2