importing a delimmited file into sql

pinkpanther27

Member
Joined
Jun 7, 2004
Messages
11
Programming Experience
1-3
This is new to me, How do I import a comma delimmited file into sql server.

If you have any code snippets or site recommendatins they would be greatly appreciated :)

Thank you very much

Pink
 

Aholics.com

Active member
Joined
Jun 15, 2004
Messages
27
Location
San Diego
Programming Experience
10+
I have to ask...is it possible for you to use a DTS job to handle this? If it's a recurring task, it's much simpler to use DTS.
 

pinkpanther27

Member
Joined
Jun 7, 2004
Messages
11
Programming Experience
1-3
I would like to do it programmatically so that I can create a web presence, and this could be done from an employees home.

So I was hoping to get code on the topic or a good reference.

Thanks for your recommendation though

Thanks

Pink
 

Mykre

Active member
Joined
Jun 14, 2004
Messages
28
Location
Australia
Programming Experience
3-5
Try This Importing CSV into a Data Table.

CSV2DataTable - Importing the data contained in a CSV file into a new DataTable
' Import the data contained in a CSV file into a new DataTable. By default the
' values are Tab delimited, but you can use the second overload version to use
' any other string you want.
'
' Example:
' Dim table As DataTable = CSV2DataTable("D:\Users.txt")
' DataGrid1.DataSource = table
Function CSV2DataTable(ByVal filename As String) As DataTable
Return CSV2DataTable(filename, vbTab)
End Function
Function CSV2DataTable(ByVal filename As String, ByVal sepChar As String) As _
DataTable
Dim reader As System.IO.StreamReader
Dim table As New DataTable
Dim colAdded As Boolean = False
Try
' open a reader for the input file, and read line by line
reader = New System.IO.StreamReader(filename)
Do While reader.Peek() >= 0
' read a line and split it into tokens, divided by the specified
' separators
Dim tokens As String() = System.Text.RegularExpressions.Regex.Split _
(reader.ReadLine(), sepChar)
' add the columns if this is the first line
If Not colAdded Then
For Each token As String In tokens
table.Columns.Add(token)
Next
colAdded = True
Else
' create a new empty row
Dim row As DataRow = table.NewRow()
' fill the new row with the token extracted from the current
' line
For i As Integer = 0 To table.Columns.Count - 1
row(i) = tokens(i)
Next
' add the row to the DataTable
table.Rows.Add(row)
End If
Loop
Return table
Finally
If Not reader Is Nothing Then reader.Close()
End Try
End Function

Mykre
 
Top Bottom