home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / vbimex.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  7.5 KB  |  227 lines
  1. VERSION 4.00
  2. Begin VB.Form frmImpExp 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "VisData Imp/Exp"
  5.    ClientHeight    =   4905
  6.    ClientLeft      =   2190
  7.    ClientTop       =   1410
  8.    ClientWidth     =   4725
  9.    Height          =   5310
  10.    HelpContextID   =   2016092
  11.    Icon            =   "VBIMEX.frx":0000
  12.    Left            =   2130
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4905
  18.    ScaleWidth      =   4725
  19.    Top             =   1065
  20.    Width           =   4845
  21.    Begin VB.CommandButton cmdClose 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "&Close"
  24.       Height          =   375
  25.       Left            =   2400
  26.       TabIndex        =   4
  27.       Top             =   120
  28.       Width           =   2055
  29.    End
  30.    Begin VB.CommandButton cmdExportSQL 
  31.       Caption         =   "Export &SQL Results"
  32.       Enabled         =   0   'False
  33.       Height          =   375
  34.       Left            =   2400
  35.       TabIndex        =   0
  36.       Top             =   600
  37.       Width           =   2055
  38.    End
  39.    Begin VB.CommandButton cmdImport 
  40.       Caption         =   "&Import"
  41.       Height          =   375
  42.       Left            =   240
  43.       TabIndex        =   1
  44.       Top             =   120
  45.       Width           =   2055
  46.    End
  47.    Begin VB.ListBox lstTables 
  48.       Height          =   3735
  49.       Left            =   120
  50.       MultiSelect     =   2  'Extended
  51.       TabIndex        =   3
  52.       Top             =   1080
  53.       Width           =   4470
  54.    End
  55.    Begin VB.CommandButton cmdExport 
  56.       Caption         =   "&Export Table(s)"
  57.       Enabled         =   0   'False
  58.       Height          =   375
  59.       Left            =   240
  60.       TabIndex        =   2
  61.       Top             =   600
  62.       Width           =   2055
  63.    End
  64. Attribute VB_Name = "frmImpExp"
  65. Attribute VB_Creatable = False
  66. Attribute VB_Exposed = False
  67. Option Explicit
  68. Private Sub cmdClose_Click()
  69.   Unload Me
  70. End Sub
  71. Private Sub cmdExport_Click()
  72.   On Error GoTo ExpErr
  73.   Dim i As Integer
  74.   For i = 0 To lstTables.ListCount - 1
  75.     If lstTables.Selected(i) Then
  76.       frmDataType.Caption = "Export '" & lstTables.List(i) & "'"
  77.       frmDataType.Show vbModal
  78.       lstTables.Selected(i) = False
  79.       If gnDataType <> gnDT_NONE Then
  80.         If gnDataType <> gnDT_SQLDB Then
  81.           SetCommDlg
  82.           If Not (gnDataType = gnDT_JETMDB Or gnDataType = gnDT_BTRIEVE) Then
  83.             frmMDI.dlgCMD1.Flags = FileOpenConstants.cdlOFNHideReadOnly
  84.           End If
  85.           frmMDI.dlgCMD1.ShowSave
  86.           If Len(frmMDI.dlgCMD1.FileName) > 0 Then
  87.             Export (lstTables.List(i)), (frmMDI.dlgCMD1.FileName)
  88.           End If
  89.         Else
  90.           Export (lstTables.List(i)), gsNULL_STR
  91.         End If
  92.       End If
  93.     End If
  94.   Next
  95.   cmdExport.Enabled = False
  96.   Exit Sub
  97. ExpErr:
  98.   If Err = 32755 Then Exit Sub
  99.   ShowError
  100.   Exit Sub
  101. End Sub
  102. Private Sub cmdExportSQL_Click()
  103.   On Error GoTo SQLExpErr
  104.   Dim i As Integer
  105.   frmDataType.Caption = "Export '" & lstTables.List(i) & "'"
  106.   frmDataType.Show vbModal
  107.   If gnDataType <> gnDT_NONE Then
  108.     If gnDataType <> gnDT_SQLDB Then
  109.       SetCommDlg
  110.       If Not (gnDataType = gnDT_JETMDB Or gnDataType = gnDT_BTRIEVE) Then
  111.         frmMDI.dlgCMD1.Flags = FileOpenConstants.cdlOFNHideReadOnly
  112.       End If
  113.       frmMDI.dlgCMD1.ShowSave
  114.       If Len(frmMDI.dlgCMD1.FileName) > 0 Then
  115.         Export gsNULL_STR, (frmMDI.dlgCMD1.FileName)
  116.       End If
  117.     Else
  118.       Export gsNULL_STR, gsNULL_STR
  119.     End If
  120.   End If
  121.   Exit Sub
  122. SQLExpErr:
  123.   If Err = 32755 Then Exit Sub
  124.   ShowError
  125.   Exit Sub
  126. End Sub
  127. Private Sub cmdImport_Click()
  128.   On Error GoTo ImpErr
  129.   frmDataType.Caption = "Import"
  130.   frmDataType.Show vbModal
  131.   If gnDataType = gnDT_NONE Then Exit Sub
  132.   If gnDataType <> gnDT_SQLDB Then
  133.     SetCommDlg
  134.     frmMDI.dlgCMD1.ShowOpen
  135.     If Len(frmMDI.dlgCMD1.FileName) > 0 Then
  136.       If gnDataType = gnDT_JETMDB Or gnDataType = gnDT_BTRIEVE Then
  137.         If gnDataType = gnDT_JETMDB Then
  138.           Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName)
  139.         ElseIf gnDataType = gnDT_EXCEL50 Or gnDataType = gnDT_EXCEL40 Or gnDataType = gnDT_EXCEL30 Then
  140.           'we can use Excel 5.0 for all Excel files because the
  141.           'ISAM will figure out the version from the file itself
  142.           'instead of relying on the connect string
  143.           Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName, 0, 0, gsEXCEL50)
  144.         Else
  145.           Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName, 0, 0, gsBTRIEVE)
  146.         End If
  147.         If gImpDB Is Nothing Then Exit Sub
  148.         frmImpTbls.Label1.Caption = frmImpTbls.Label1 & gImpDB.Name
  149.         frmImpTbls.Show vbModal
  150.       Else
  151.         Import (frmMDI.dlgCMD1.FileName)
  152.         While Len(frmMDI.dlgCMD1.FileName) > 0
  153.           frmMDI.dlgCMD1.FileName = gsNULL_STR
  154.           frmMDI.dlgCMD1.ShowOpen
  155.           Import (frmMDI.dlgCMD1.FileName)
  156.         Wend
  157.       End If
  158.     End If
  159.   Else
  160.     Set gImpDB = gwsMainWS.OpenDatabase(gsNULL_STR, 0, 0, "odbc;")
  161.     If gImpDB Is Nothing Then Exit Sub
  162.     frmImpTbls.Label1.Caption = frmImpTbls.Label1.Caption & gImpDB.Name
  163.     frmImpTbls.Show vbModal
  164.   End If
  165.   Screen.MousePointer = vbDefault
  166.   Exit Sub
  167. ImpErr:
  168.   If Err <> 32755 Then
  169.     ShowError
  170.   End If
  171.   Screen.MousePointer = vbDefault
  172.   Exit Sub
  173. End Sub
  174. Private Sub lstTables_Click()
  175.   cmdExport.Enabled = True
  176. End Sub
  177. Private Sub lstTables_DblClick()
  178.   Call cmdExport_Click
  179. End Sub
  180. Private Sub Form_Load()
  181.   CenterMe Me, gnMDIFORM
  182.   If UCase(Mid(frmSQL.txtSQLStatement, 1, 7)) = "SELECT " Then
  183.     cmdExportSQL.Enabled = True
  184.   End If
  185.   GetTableList frmImpExp.lstTables, False, False, True
  186.   MsgBar gsNULL_STR, False
  187. End Sub
  188. Private Sub Form_Resize()
  189.   If WindowState <> 2 Then
  190.     lstTables.Width = Width - 340
  191.     Refresh
  192.   End If
  193. End Sub
  194. Private Sub Form_Unload(Cancel As Integer)
  195.   Unload frmDataType
  196. End Sub
  197. Private Sub SetCommDlg()
  198.    With frmMDI.dlgCMD1
  199.      .DialogTitle = "Select File"
  200.      Select Case gnDataType
  201.        Case gnDT_JETMDB
  202.          .Filter = "Microsoft Access (*.mdb)|*.mdb|All Files (*.*)|*.*"
  203.          .DialogTitle = "Select Microsoft Access Database"
  204.          .Flags = FileOpenConstants.cdlOFNHideReadOnly
  205.        Case gnDT_PARADOX3X, gnDT_PARADOX4X
  206.          .Filter = "Paradox (*.db)|*.db"
  207.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  208.        Case gnDT_FOXPRO26, gnDT_FOXPRO25, gnDT_FOXPRO20, gnDT_DBASEIV, gnDT_DBASEIII
  209.          .Filter = "Xbase (*.dbf)|*.dbf"
  210.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  211.        Case gnDT_BTRIEVE
  212.          .Filter = "Btrieve (FILE.DDF)|FILE.DDF"
  213.          .Flags = FileOpenConstants.cdlOFNHideReadOnly
  214.        Case gnDT_EXCEL50, gnDT_EXCEL40, gnDT_EXCEL30
  215.          .Filter = "Excel (*.xls)|*.xls"
  216.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  217.        Case gnDT_TEXTFILE
  218.          .Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
  219.          .DialogTitle = "Select Text File"
  220.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  221.      End Select
  222.      .FilterIndex = 1
  223.      .FileName = gsNULL_STR
  224.      .CancelError = True
  225.   End With
  226. End Sub
  227.