Comments by Lix Felix (Top 16 by date)

Sub bandingkan_data_tblpibdtl()

WriteLog("Start tblpibdtl db1")

Try
Dim dt3 As New DataTable
dt3 = query.LoadAcces_tblpibdtl


Dim connPOSTGRES As New ConnNpsql

Const RowsPerBatch As Integer = 1000
Using conn As NpgsqlConnection = connPOSTGRES.OpenConnection()
For batchStart As Integer = 0 To dt3.Rows.Count - 1 Step RowsPerBatch
Using cmd As New NpgsqlCommand("", conn)
Dim sb As New StringBuilder("insert into tblpibdtl (CAR,serial,NoHs,SeriTrp,BrgUrai,Merk,Tipe,SpfLain,BrgAsal,DnilInv,DCif,KdSat,jmlSat,
kemasjn,kemasjm,SatBmJm,SatCukJm,NettoDtl,KdFasDtl,DtlOk,FlBarangBaru,FlLartas,KatLartas,SpekTarif,DnilCuk,jmPC,SaldoAwalPC,SaldoAkhirPC)
values ")
For i As Integer = 0 To Math.Min(dt3.Rows.Count - batchStart - 1, RowsPerBatch)



If i <> 0 Then sb.Append(",")
sb.AppendFormat("(@car{0},@serial{0},@noHs{0},@SeriTrp{0},@BrgUrai{0},@Merk{0},@Tipe{0},@SpfLain{0},@BrgAsal{0},
@DnilInv{0},
@DCif{0},
@KdSat{0},
@jmlSat{0},
@kemasjn{0},
@kemasjm{0},
@SatBmJm{0},
@SatCukJm{0},
@NettoDtl{0},
@KdFasDtl{0},
@DtlOk{0},
@FlBarangBaru{0},
@FlLartas{0},
@KatLartas{0},
@SpekTarif{0},
@DnilCuk{0},
@jmPC{0},
@SaldoAwalPC{0},
@SaldoAkhirPC{0})", i)

Dim row As DataRow = dt3.Rows(i)

Dim a As String
If row("dtlok") = -1 Then
a = False
Else
a = True
End If
cmd.Parameters.Add("@car" & i, NpgsqlTypes.NpgsqlDbType.Text).Value = row("car")
cmd.Parameters.Add("@serial" & i, NpgsqlTypes.NpgsqlDbType.Text).Value = row("serial")
cmd.Parameters.Add("@nohs" & i, NpgsqlTypes.NpgsqlDbType.Text).Value = row("nohs")
cmd.Parameters.Add("@seritrp" & i, NpgsqlTypes.NpgsqlDbType.Integer).Value = row("seritrp")
cmd.Parameters.Add("@brgurai" & i, NpgsqlTypes.NpgsqlDbType.Text).Value = row("brgurai")
cmd.Parameters.Add("@merk" & i, NpgsqlTypes.NpgsqlDbType.Text).Value = row("merk")
cmd.Parameters.Add("@tipe" & i, NpgsqlTypes.NpgsqlDbType.Text).Value = row("tipe")
cmd.Parameters.Add("@spflain" & i, NpgsqlTypes.NpgsqlDbType.Text).Value = row("spflain")
cmd.Parameters.Add("@brgasal" & i, NpgsqlTypes.NpgsqlDbType.Text).Value = row("brgasal")
cmd.Parameters.Add("@dnilinv" & i, NpgsqlTypes.NpgsqlDbType.Double).Value = row("dnilinv")
cmd.Parameters.Add("@dcif" & i, NpgsqlTypes.NpgsqlDbType.Double).Value = row("dcif")
cmd.Parameters.Add("@kdsat" & i, NpgsqlTypes.NpgsqlDbType.Text).Value = row("kdsat")
cmd.Parameters.Add("@jmlsat" & i, NpgsqlTypes.NpgsqlDbType.Double).Value = row("jmlsat")
cmd.Parameters.Add("@kemasjn" & i, NpgsqlTypes.NpgsqlDbType.Text).Value = row("kemasjn")
cmd.Parameters.Add("@kemasjm" & i, NpgsqlTypes.NpgsqlDbType.Double).Value = row("kemasjm")
cmd.Parameters.Add("@satbmjm" & i, NpgsqlTypes.NpgsqlDbType.Double).Value = row("satbmjm")
cmd.Parameters.Add("@satcukjm" & i, NpgsqlTypes.NpgsqlDbType.Double).Value = row("satcukjm")
cmd.Parameters.Add("@nettodtl" & i, NpgsqlTypes.NpgsqlDbType.Double).Value = row("nettodtl")
cmd.Parameters.Add("@kdfasdtl" & i, NpgsqlTypes.Npgsq

Hello sir, after I tried and check ur code the data inserted is not correct it's just looping the first 1000 data