home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD48464162000.psc / FrmImport.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-04-16  |  3.5 KB  |  109 lines
  1. VERSION 5.00
  2. Begin VB.Form FrmImport 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Import Ascii File"
  5.    ClientHeight    =   1530
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3690
  9.    Icon            =   "FrmImport.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1530
  14.    ScaleWidth      =   3690
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.Data Data1 
  17.       Caption         =   "Data1"
  18.       Connect         =   "Access"
  19.       DatabaseName    =   ""
  20.       DefaultCursorType=   0  'DefaultCursor
  21.       DefaultType     =   2  'UseODBC
  22.       Exclusive       =   0   'False
  23.       Height          =   345
  24.       Left            =   0
  25.       Options         =   0
  26.       ReadOnly        =   0   'False
  27.       RecordsetType   =   1  'Dynaset
  28.       RecordSource    =   ""
  29.       Top             =   2040
  30.       Visible         =   0   'False
  31.       Width           =   2895
  32.    End
  33.    Begin VB.Frame Frame1 
  34.       Height          =   1455
  35.       Left            =   120
  36.       TabIndex        =   0
  37.       Top             =   0
  38.       Width           =   3495
  39.       Begin VB.CommandButton Command2 
  40.          Caption         =   "Open DataBase"
  41.          Height          =   495
  42.          Left            =   2160
  43.          TabIndex        =   3
  44.          Top             =   840
  45.          Width           =   975
  46.       End
  47.       Begin VB.CommandButton Command1 
  48.          Caption         =   "Start Import"
  49.          Height          =   495
  50.          Left            =   2160
  51.          TabIndex        =   2
  52.          Top             =   240
  53.          Width           =   975
  54.       End
  55.       Begin VB.ListBox List1 
  56.          Height          =   1035
  57.          Left            =   240
  58.          TabIndex        =   1
  59.          Top             =   240
  60.          Width           =   1575
  61.       End
  62.    End
  63. Attribute VB_Name = "FrmImport"
  64. Attribute VB_GlobalNameSpace = False
  65. Attribute VB_Creatable = False
  66. Attribute VB_PredeclaredId = True
  67. Attribute VB_Exposed = False
  68. Private Sub Command1_Click()
  69. Dim myfile As String
  70. Dim spart As String
  71. Dim sdesc As String
  72. Dim sssnr As String
  73. Dim srec As String
  74. Dim sslist As String
  75. Dim ssretail As String
  76. Set HDesk = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\MyDataBase.MDB", False, False)
  77. Data1.DatabaseName = App.Path & "\MyDataBase.mdb"
  78. Set Data1.Recordset = HDesk.OpenRecordset("MyTable", dbOpenDynaset)
  79.      
  80. 'Open the ASCII file and sort it's data
  81. If Right(App.Path, 1) <> "\" Then: myfile = App.Path + "\Prices.dat": Else: myfile = App.Path + "Prices.dat"
  82. Open myfile For Input As #1 Len = 64
  83. Do While Not EOF(1)
  84. 'Start the Input of files
  85. Input #1, srec
  86. '_________________________________________________________
  87. '   ****Change this area if price file structure changes
  88. '________________________________________________________
  89. spart = Mid$(srec, 1, 14)
  90. sdesc = Mid$(srec, 15, 17)
  91. sssnr = Mid$(srec, 32, 14)
  92. sslist = Mid$(srec, 46, 8)
  93. ssretail = Mid$(srec, 54, 8)
  94. '________________________________________________________
  95. Data1.Recordset.AddNew
  96. Data1.Recordset!part = spart
  97. Data1.Recordset!Desc = sdesc
  98. Data1.Recordset!ss = sssnr
  99. Data1.Recordset!List = sslist
  100. Data1.Recordset!Rec = ssretail
  101. Data1.Recordset.Update
  102. List1.AddItem spart
  103. Close #1
  104. MsgBox List1.ListCount & " files Imported Successfully"
  105. End Sub
  106. Private Sub Command2_Click()
  107. FrmMain.Show
  108. End Sub
  109.