Hi Avital,
DTS - at least in SQL Server - is available as one of the main options when
you open the local database node. Open it, and you select 'local packages'
right click and select 'new package' and follow the wizard along from there.
However, I would not approach it in that fashion. I usually take a .dat
file and open it with a streamreader, and then count characters and
distribute accordingly. Here's some choppy code that will give you the
basic idea:
Dim tstream As TextStream
tstream = fsys.OpenTextFile("h:\tavo\babetc\" & datsbox.Text,
IOMode.ForReading)
bufferbase = tstream.ReadLine ' get rid of first line
Dim endseeker As Integer = 30 ' ie, the last short line
Dim mstnum, msaledate_c, mfile_name_, mupc, mbipad, missuecode, mrawissue As
String
Dim mdatestring, mplusminus As String
Dim newdatevar, msaledate, priorthreshold As Date
Dim m_cprice As Decimal
Dim mqty, mmissuecode, mprefixnum As Integer
Dim mfailed, mprefix, tempgstransbipad, tissue_is, priorthresholdstring As
String
Dim earliestissue, currentissue As String
Dim ifind As Integer
Dim irow, irow2, prow, prow2 As DataRow
Dim irows, irows2, prows, prows2 As DataRow()
Dim mrow As DataRow
Dim vue_g As New DataView(dsgstrans.Tables(0))
Do While tstream.AtEndOfStream = False
bufferbase = tstream.ReadLine
If bufferbase.Length < endseeker Then
Exit Do
End If
buffer1 = Trim(Mid(bufferbase, 1, 4))
mstnum = "00" & buffer1
mdatestring = Mid(bufferbase, 11, 5)
msaledate_c = Mid(bufferbase, 11, 2) & "/" & Mid(bufferbase, 13, 2) & "/" &
"20" & Mid(bufferbase, 15, 2)
msaledate = CDate(msaledate_c)
mfile_name_ = datsbox.Text
mupc = Mid(bufferbase, 17, 13)
mbipad = Mid(bufferbase, 25, 5)
mqty = CInt(Mid(bufferbase, 65, 5))
mplusminus = Mid(bufferbase, 70, 1)
Try
da.Update(ds, "DS")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Loop
ds.AcceptChanges()
tstream.Close()
HTH,
Bernie Yaeger
