อยากได้ตัวอย่างโค้ด import file csv เข้า database ครับ (ms sql)

tosunday

อยากได้ตัวอย่างโค้ด import file csv เข้า database ครับ (ms sql) พอจะมีตัวอย่างมั้ยครับ ผมหาใน google ของต่างประเทศก็มีแบบสั้นๆ อ่านค่าเฉยๆ อยากศึกษาแบบ อ่านค่าแล้ว  insert ลงฐานข้อมูลด้วยครับ ขอบคุณครับ

tosunday

ตัวอย่างๆค้าบบบ ท่านผู้มีอุปการะคุณ

nana07

ลองดูครับ
VB.NET_ReadFileCSV.rar (66.93 KB, ดาวน์โหลดแล้ว: 7803)

2019-5-17 11:10 อัปโหลด

คลิกชื่อไฟล์เพื่อดาวน์โหลด

1. Imports System.Data
   
2. Imports System.IO
   
3. Public Class frmMain
   
4.     Private Sub btnBrowse_Click(sender As Object, e As EventArgs) Handles btnBrowse.Click
   
5.         Dim dlg As OpenFileDialog = New OpenFileDialog()
   
6.         If dlg.ShowDialog() = DialogResult.OK Then
   
7.             txtFilePath.Text = dlg.FileName
   
8.             Call OnReadFileCSV()
   
9.         End If
   
10.     End Sub
    
11.     Private Sub OnReadFileCSV()
    
12.         Try
    
13.             Dim rd As New StreamReader(txtFilePath.Text)
    
14.             Dim sTexts() As String
    
15. 
    
16.             While Not rd.EndOfStream
    
17.                 sTexts = rd.ReadLine().Split(","c)
    
18.                 Dim sUserCode As String = sTexts(0).Trim()
    
19.                 Dim sUserName As String = sTexts(1).Trim()
    
20.                 Dim sLastName As String = sTexts(2).Trim
    
21.                 '------------ บันทึกข้อมูลตรงนี้ ---------------
    
22. 
    
23.                 ' insert into table_name(UserCode,UserName,LastName) Value (sUserCode, sUserName, sLastName)
    
24. 
    
25.                 '-----------------------------------------
    
26.             End While
    
27.         Catch ex As Exception
    
28.             MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
29.         End Try
    
30.     End Sub
    
31. 
    
32. End Class

คัดลอกไปที่คลิปบอร์ด

tosunday

ใช้กับ VB6 ได้ป่ะครับท่าน คล้ายๆกันเนอะ

tosunday

ขอบคุณครับ