Code:
Dim i As Integer = 0
Dim cn, cne As System.Data.OleDb.OleDbConnection
Dim cmd, cmde As System.Data.OleDb.OleDbDataAdapter
cn = New System.Data.OleDb.OleDbConnection(konSQL)
cne = New System.Data.OleDb.OleDbConnection(konExcel)
cmd = New System.Data.OleDb.OleDbDataAdapter(upit1, cn)
cmde = New System.Data.OleDb.OleDbDataAdapter(upit, cne)
cn.Open()
cmd.Fill(ds1, "tblListing")
cne.Open()
cmde.Fill(ds)
Dim myRow As DataRow
myRow = ds.Tables(0).NewRow()
For Each myRow In ds.Tables(0).Rows
Dim row As DataRow
row = ds1.Tables("tblListing").NewRow()
row.Item(0) = i
row.Item(1) = myRow.Item(0)
row.Item(2) = myRow.Item(1)
row.Item(3) = myRow.Item(2)
row.Item(4) = myRow.Item(3)
row.Item(5) = myRow.Item(4)
row.Item(6) = myRow.Item(5)
row.Item(7) = myRow.Item(6)
ds1.Tables("tblListing").Rows.Add(row)
cmd.Update(ds1, "tblListing")
i = i + 1
Next
cn.Close()
cne.Close()
Dim i As Integer = 0
Dim cn, cne As System.Data.OleDb.OleDbConnection
Dim cmd, cmde As System.Data.OleDb.OleDbDataAdapter
cn = New System.Data.OleDb.OleDbConnection(konSQL)
cne = New System.Data.OleDb.OleDbConnection(konExcel)
cmd = New System.Data.OleDb.OleDbDataAdapter(upit1, cn)
cmde = New System.Data.OleDb.OleDbDataAdapter(upit, cne)
cn.Open()
cmd.Fill(ds1, "tblListing")
cne.Open()
cmde.Fill(ds)
Dim myRow As DataRow
myRow = ds.Tables(0).NewRow()
For Each myRow In ds.Tables(0).Rows
Dim row As DataRow
row = ds1.Tables("tblListing").NewRow()
row.Item(0) = i
row.Item(1) = myRow.Item(0)
row.Item(2) = myRow.Item(1)
row.Item(3) = myRow.Item(2)
row.Item(4) = myRow.Item(3)
row.Item(5) = myRow.Item(4)
row.Item(6) = myRow.Item(5)
row.Item(7) = myRow.Item(6)
ds1.Tables("tblListing").Rows.Add(row)
cmd.Update(ds1, "tblListing")
i = i + 1
Next
cn.Close()
cne.Close()