SQLBulkCopy ile identity kolonu olan bir tabloya veri aktarma

SQLBulkCopy ile identity kolonu olan bir tabloya veri aktarmak için aktarılacak datatable'da identity kolonunun da tanımlı olması ve veritabanı tablosuyla datatable'ın birebir aynı kolon isimlerine sahip olması gerekiyor.

SQLBulkCopy ile aktarmadan önce datatable'daki identity kolonunun satır içerikleri DBNull.Value olarak set edilmelidir.


Örnek:

dsID değerinin veritabanı tarafında identity olarak tanımlı olduğunu varsayalım.

Dim dtVender As New DataTable()

dtVender.Columns.Add(New DataColumn())
dtVender.Columns.Add(New DataColumn())
dtVender.Columns.Add(New DataColumn())
                            

Dim vRow As DataRow = dtVender.NewRow()
vRow.Item(0) = DBNull.Value
vRow.Item(1) = vender_no
vRow.Item(2) = sku_id

dtVender.Rows.Add(vRow)

"Microsoft Excel cannot access the file" hatası

Microsoft Excel cannot access the file 'FilePath'. There are several possible reasons:

• The file name or path does not exist.
• The file is being used by another program.
• The workbook you are trying to save has the same name as a currently open workbook.

Bu hatanın çözümünün hata açıklamasıyla hiçbir alakası yok. Aşağıdaki klasörler oluşturulduğunda sorun çözülüyor. Genellikle 64bit sistemlerde, 32 bit uyumlu Excel Interop kullanılıyorsa bu sorunla karşılaşılıyor.

x64: Aşağıda belirtilen klasör yolunu oluşturun.
C:\Windows\SysWOW64\config\systemprofile\Desktop

x86: Aşağıda belirtilen klasör yolunu oluşturun.
C:\Windows\System32\config\systemprofile\Desktop

"There is already an open DataReader associated with this Command which must be closed first." hatası

Bu hatanın bir diğer çözümü:

Connection string değerine MultipleActiveResultSets=true; ibaresini eklemek.

Örnek:

Data Source=SUNUCU;Initial Catalog=MyDB;User ID=KULLANICIADI;Password=SIFRE;Connection Timeout=10;MultipleActiveResultSets=true;

Datatable üzerinde sayfalama işlemi

'Sayfada görüntülenecek kayıt sayısı
Dim pageSize As Integer = 1000

Dim skipNumber As Integer = 0

If pageNo < 1 Then
        skipNumber = 0
Else
        skipNumber = (pageNo - 1) * PageSize
End If

MyDatatable'ın dolu olduğunu düşünürsek ekran üzerinden aktarılacak pageNo üzerinden pageSize adet kadar kaydın DataGridView kontrolü üzerinde görüntülenmesi sağlanır.

Dim pageDT as Datatable=Nothing

Try
      If MyDatatable.Rows.Count > 0 Then
           pageDT = QueryDatatable.AsEnumerable().Skip(skipNumber).Take(PageSize).CopyToDataTable()
      Else
           pageDT = New DataTable
      End If
Catch ex As Exception
      pageDT = New DataTable

End Try

DataGridView.DataSource=pageDT



'How to paging datatable

SQL Bulk Copy ile datatable daki veriyi veritabanındaki bir tabloya aktarma

Dim dtVender As New DataTable()

dtVender.Columns.Add(New DataColumn())
dtVender.Columns.Add(New DataColumn())
dtVender.Columns.Add(New DataColumn())
                            

Dim vRow As DataRow = dtVender.NewRow()
vRow.Item(0) = dsID
vRow.Item(1) = vender_no
vRow.Item(2) = sku_id

dtVender.Rows.Add(vRow)

Datatable'ı doldurduktan sonra aşağıdaki metodu kullanarak datatable içerisindeki verileri "tbl_Vender" tablosuna aktarabilirsiniz.

SQLBulkCopyToTable(dtVender, "tbl_Vender")


Private Sub SQLBulkCopyToTable(ByRef sourceDT As DataTable, destinationTableName As String)
        Try
            Using cn As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString").ToString())
                cn.Open()
                If sourceDT.Rows.Count > 0 Then
                    Using copy As New SqlBulkCopy(cn)
                        copy.DestinationTableName = destinationTableName
                        copy.BulkCopyTimeout = 5000
                        copy.BatchSize = 5000
                        copy.WriteToServer(sourceDT)
                    End Using
                End If
            End Using
        Catch ex As Exception

        End Try
End Sub

Şifre değerini SecureString'e Dönüştürme

Şifre değerini SecureString'e Dönüştürme

    Public Shared Function ConvertToSecureString(strPassword As String) As SecureString
        Dim secureStr = New SecureString()
        If strPassword.Length > 0 Then
            For Each c In strPassword.ToCharArray()
                secureStr.AppendChar(c)
            Next
        End If
        Return secureStr
    End Function