Здравствуйте, Арташес, Вы писали:

А>Здравствуйте, gaidar, Вы писали:

G>>Приведите код.

G>>

---

данное сообщение получено с www.gotdotnet.ru
G>>ссылка на оригинальное сообщение

Dim tran as OleDbTransaction
tran = Conn.BeginTransaction()
А>For Each dr As DataRow In dbTable.Rows              
А>      strInsert = "INSERT INTO procedures ...... " 'естественно это не полная строка
А>      Dim AdapMain As New OleDbDataAdapter(strInsert, Conn)
        AdapMain.SelectCommand.Transaction = tranА>      AdapMain.SelectCommand.ExecuteNonQuery()
А>Next
' Анализируем были ли ошибки и 
tran.Commit() ' ошибок не было
tran.Rollback() 'Ошибки случились
А>System.Threading.Thread.Sleep(3000) 'wait 3 seconds

А>Dim sDetail As New sessionDetail(sessionID) ' sessionDetail это форма которая отоброжает эти самые записи
А>sDetail.Show()

skip

Смотрим на выделенное