home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / VISDATA / VBIMEX.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-26  |  8.0 KB  |  259 lines
  1. VERSION 5.00
  2. Begin VB.Form frmImpExp 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "VisData 
  5.    ClientHeight    =   4905
  6.    ClientLeft      =   2190
  7.    ClientTop       =   1410
  8.    ClientWidth     =   4725
  9.    HelpContextID   =   2016092
  10.    Icon            =   "VBIMEX.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4905
  16.    ScaleWidth      =   4725
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin VB.CommandButton cmdClose 
  20.       Cancel          =   -1  'True
  21.       Caption         =   "
  22. (&C)"
  23.       Height          =   375
  24.       Left            =   2400
  25.       MaskColor       =   &H00000000&
  26.       TabIndex        =   2
  27.       Top             =   120
  28.       Width           =   2055
  29.    End
  30.    Begin VB.CommandButton cmdExportSQL 
  31.       Caption         =   "
  32.  SQL 
  33.       Enabled         =   0   'False
  34.       Height          =   375
  35.       Left            =   2400
  36.       MaskColor       =   &H00000000&
  37.       TabIndex        =   4
  38.       Top             =   600
  39.       Width           =   2055
  40.    End
  41.    Begin VB.CommandButton cmdImport 
  42.       Caption         =   "
  43. (&I)"
  44.       Height          =   375
  45.       Left            =   240
  46.       MaskColor       =   &H00000000&
  47.       TabIndex        =   1
  48.       Top             =   120
  49.       Width           =   2055
  50.    End
  51.    Begin VB.ListBox lstTables 
  52.       Height          =   3660
  53.       Left            =   120
  54.       MultiSelect     =   2  'Extended
  55.       TabIndex        =   0
  56.       Top             =   1080
  57.       Width           =   4470
  58.    End
  59.    Begin VB.CommandButton cmdExport 
  60.       Caption         =   "
  61. (&E)"
  62.       Enabled         =   0   'False
  63.       Height          =   375
  64.       Left            =   240
  65.       MaskColor       =   &H00000000&
  66.       TabIndex        =   3
  67.       Top             =   600
  68.       Width           =   2055
  69.    End
  70. Attribute VB_Name = "frmImpExp"
  71. Attribute VB_GlobalNameSpace = False
  72. Attribute VB_Creatable = False
  73. Attribute VB_PredeclaredId = True
  74. Attribute VB_Exposed = False
  75. Option Explicit
  76. '>>>>>>>>>>>>>>>>>>>>>>>>
  77. Const FORMCAPTION = "
  78. Const BUTTON1 = "
  79. (&I)"
  80. Const BUTTON2 = "
  81. (&C)"
  82. Const BUTTON3 = "
  83. (&E)"
  84. Const BUTTON4 = "
  85.  SQL 
  86. Const MSG1 = "
  87. Const MSG2 = "
  88. Const MSG3 = "
  89.  SQL"
  90. Const MSG4 = "
  91. '>>>>>>>>>>>>>>>>>>>>>>>>
  92. Private Sub cmdClose_Click()
  93.   Unload Me
  94. End Sub
  95. Private Sub cmdExport_Click()
  96.   On Error GoTo ExpErr
  97.   Dim i As Integer
  98.   For i = 0 To lstTables.ListCount - 1
  99.     If lstTables.Selected(i) Then
  100.       frmDataType.Caption = MSG1 & " '" & lstTables.List(i) & "'"
  101.       frmDataType.Show vbModal
  102.       lstTables.Selected(i) = False
  103.       If gnDataType <> gnDT_NONE Then
  104.         If gnDataType <> gnDT_SQLDB Then
  105.           SetCommDlg
  106.           If Not (gnDataType = gnDT_MSACCESS Or gnDataType = gnDT_BTRIEVE) Then
  107.             frmMDI.dlgCMD1.Flags = FileOpenConstants.cdlOFNHideReadOnly
  108.           End If
  109.           frmMDI.dlgCMD1.ShowSave
  110.           If Len(frmMDI.dlgCMD1.FileName) > 0 Then
  111.             Export (lstTables.List(i)), (frmMDI.dlgCMD1.FileName)
  112.           End If
  113.         Else
  114.           Export (lstTables.List(i)), vbNullString
  115.         End If
  116.       End If
  117.     End If
  118.   Next
  119.   cmdExport.Enabled = False
  120.   Exit Sub
  121. ExpErr:
  122.   If Err = 32755 Then Exit Sub
  123.   ShowError
  124. End Sub
  125. Private Sub cmdExportSQL_Click()
  126.   On Error GoTo SQLExpErr
  127.   Dim i As Integer
  128.   frmDataType.Caption = MSG3
  129.   frmDataType.Show vbModal
  130.   If gnDataType <> gnDT_NONE Then
  131.     If gnDataType <> gnDT_SQLDB Then
  132.       SetCommDlg
  133.       If Not (gnDataType = gnDT_MSACCESS Or gnDataType = gnDT_BTRIEVE) Then
  134.         frmMDI.dlgCMD1.Flags = FileOpenConstants.cdlOFNHideReadOnly
  135.       End If
  136.       frmMDI.dlgCMD1.ShowSave
  137.       If Len(frmMDI.dlgCMD1.FileName) > 0 Then
  138.         Export vbNullString, (frmMDI.dlgCMD1.FileName)
  139.       End If
  140.     Else
  141.       Export vbNullString, vbNullString
  142.     End If
  143.   End If
  144.   Exit Sub
  145. SQLExpErr:
  146.   If Err = 32755 Then Exit Sub
  147.   ShowError
  148. End Sub
  149. Private Sub cmdImport_Click()
  150.   On Error GoTo ImpErr
  151.   frmDataType.Caption = MSG2
  152.   frmDataType.Show vbModal
  153.   If gnDataType = gnDT_NONE Then Exit Sub
  154.   If gnDataType <> gnDT_SQLDB Then
  155.     SetCommDlg
  156.     frmMDI.dlgCMD1.ShowOpen
  157.     If Len(frmMDI.dlgCMD1.FileName) > 0 Then
  158.       If gnDataType = gnDT_MSACCESS Or gnDataType = gnDT_BTRIEVE Then
  159.         If gnDataType = gnDT_MSACCESS Then
  160.           Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName)
  161.         ElseIf gnDataType = gnDT_EXCEL50 Or gnDataType = gnDT_EXCEL40 Or gnDataType = gnDT_EXCEL30 Then
  162.           '
  163.  Excel 
  164.  Excel 5.0
  165.           'ISAM 
  166.           '
  167.           Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName, 0, 0, gsEXCEL50)
  168.         Else
  169.           Set gImpDB = gwsMainWS.OpenDatabase(frmMDI.dlgCMD1.FileName, 0, 0, gsBTRIEVE)
  170.         End If
  171.         If gImpDB Is Nothing Then Exit Sub
  172.         frmImpTbls.lblLabel1.Caption = frmImpTbls.lblLabel1 & gImpDB.Name
  173.         frmImpTbls.Show vbModal
  174.       Else
  175.         Import (frmMDI.dlgCMD1.FileName)
  176.         While Len(frmMDI.dlgCMD1.FileName) > 0
  177.           frmMDI.dlgCMD1.FileName = vbNullString
  178.           frmMDI.dlgCMD1.ShowOpen
  179.           Import (frmMDI.dlgCMD1.FileName)
  180.         Wend
  181.       End If
  182.     End If
  183.   Else
  184.     Set gImpDB = gwsMainWS.OpenDatabase(vbNullString, 0, 0, "odbc;")
  185.     If gImpDB Is Nothing Then Exit Sub
  186.     frmImpTbls.lblLabel1.Caption = frmImpTbls.lblLabel1.Caption & gImpDB.Name
  187.     frmImpTbls.Show vbModal
  188.   End If
  189.   Screen.MousePointer = vbDefault
  190.   Exit Sub
  191. ImpErr:
  192.   If Err <> 32755 Then
  193.     ShowError
  194.   Else
  195.     Screen.MousePointer = vbDefault
  196.   End If
  197. End Sub
  198. Private Sub lstTables_Click()
  199.   cmdExport.Enabled = True
  200. End Sub
  201. Private Sub lstTables_DblClick()
  202.   Call cmdExport_Click
  203. End Sub
  204. Private Sub Form_Load()
  205.   Me.Caption = FORMCAPTION
  206.   cmdImport.Caption = BUTTON1
  207.   cmdClose.Caption = BUTTON2
  208.   cmdExport.Caption = BUTTON3
  209.   cmdExportSQL.Caption = BUTTON4
  210.   If UCase(Mid(frmSQL.txtSQLStatement, 1, 7)) = "SELECT " Then
  211.     cmdExportSQL.Enabled = True
  212.   End If
  213.   GetTableList frmImpExp.lstTables, False, False, True
  214.   MsgBar vbNullString, False
  215. End Sub
  216. Private Sub Form_Resize()
  217.   If WindowState <> 2 Then
  218.     lstTables.Width = Width - 340
  219.     Refresh
  220.   End If
  221. End Sub
  222. Private Sub Form_Unload(Cancel As Integer)
  223.   Unload frmDataType
  224. End Sub
  225. Private Sub SetCommDlg()
  226.    With frmMDI.dlgCMD1
  227.      .DialogTitle = MSG4
  228.      Select Case gnDataType
  229.        Case gnDT_MSACCESS
  230.          .Filter = "Microsoft Access (*.mdb)|*.mdb|
  231.  (*.*)|*.*"
  232.          .DialogTitle = "
  233.  Microsoft Access 
  234.          .Flags = FileOpenConstants.cdlOFNHideReadOnly
  235.        Case gnDT_PARADOX3X, gnDT_PARADOX4X
  236.          .Filter = "Paradox (*.db)|*.db"
  237.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  238.        Case gnDT_FOXPRO26, gnDT_FOXPRO25, gnDT_FOXPRO20, gnDT_DBASEIV, gnDT_DBASEIII
  239.          .Filter = "Xbase (*.dbf)|*.dbf"
  240.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  241.        Case gnDT_BTRIEVE
  242.          .Filter = "Btrieve (FILE.DDF)|FILE.DDF"
  243.          .Flags = FileOpenConstants.cdlOFNHideReadOnly
  244.        Case gnDT_EXCEL50, gnDT_EXCEL40, gnDT_EXCEL30
  245.          .Filter = "Excel (*.xls)|*.xls"
  246.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  247.        Case gnDT_TEXTFILE
  248.          .Filter = "
  249.  (*.txt)|*.txt|
  250.  (*.*)|*.*"
  251.          .DialogTitle = "
  252.          .Flags = FileOpenConstants.cdlOFNOverwritePrompt Or FileOpenConstants.cdlOFNHideReadOnly
  253.      End Select
  254.      .FilterIndex = 1
  255.      .FileName = vbNullString
  256.      .CancelError = True
  257.   End With
  258. End Sub
  259.