home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Query View258019220.psc / DbMagic3.0 / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2001-09-03  |  4.5 KB  |  159 lines
  1. Attribute VB_Name = "Module1"
  2. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. '          Query Viewer - Ver - 3.0                 '
  4. '                                                   '
  5. '    Includes SQL Server, Oracle, Ms Access2000     '
  6. '                 Ms Access 97 And Foxpro           '
  7. '                                                   '
  8. '                                                   '
  9. ' If Your Are Intrested In Making Softwares Please  '
  10. '        Contact razasibtain@hotmail.com            '
  11. '                                                   '
  12. '       Now Supports Foxpro And Oracle also         '
  13. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  14. Public db As String
  15. Public cn As New Connection
  16. Public ServerName As String
  17. Public Provider As String
  18. Public uname As String
  19. Public pass As String
  20.  
  21. Public Sub LogonServer(Provider As String)
  22. On Error Resume Next
  23. If Provider = "SQL Server" Then
  24.     cn.ConnectionString = ""
  25.     cn.Provider = "MSDASQL;Driver={SQL Server};SERVER=" & ServerName & ";user id=" & uname & ";Password=" & pass & ";Database=" & db & ""
  26.     cn.Open
  27.     If Err.Number <> 0 Then
  28.         MsgBox Err.Description
  29.         Exit Sub
  30.     End If
  31.     GetDatabase (Provider)
  32. End If
  33.  
  34. If Provider = "Ms Access 2000" Or Provider = "Ms Access 97" Then
  35.  
  36.     If Provider = "Ms Access 2000" Then
  37.         cn.Provider = "Microsoft.Jet.Oledb.4.0.Provider"
  38.     End If
  39.     If Provider = "Ms Access 97" Then
  40.         cn.Provider = "Microsoft.Jet.Oledb.3.51.Provider"
  41.     End If
  42.         cn.ConnectionString = db
  43.         cn.Open
  44.         If Err.Number <> 0 Then
  45.             MsgBox Err.Description
  46.             Exit Sub
  47.         End If
  48.         GetDatabase (Provider)
  49. End If
  50.  
  51. If Provider = "Oracle" Then
  52.     cn.ConnectionString = ""
  53.     cn.Provider = "MSDAORA.1;Data Source=" & ServerName & ";user id=" & uname & ";Password=" & pass & ";Database=" & db & ""
  54.     cn.Open
  55.     If Err.Number <> 0 Then
  56.         MsgBox Err.Description
  57.         Exit Sub
  58.    End If
  59.     GetDatabase (Provider)
  60. End If
  61.  
  62. If Provider = "Foxpro" Then
  63.     cn.ConnectionString = ""
  64.     cn.Provider = "MSDASQL.1;Data Source=dBASE Files;Initial Catalog=" & db
  65.     cn.Open
  66.         If Err.Number <> 0 Then
  67.         MsgBox Err.Description
  68.         Exit Sub
  69.    End If
  70.    GetDatabase (Provider)
  71. End If
  72. End Sub
  73.  
  74. Public Sub GetDatabase(Provider As String)
  75. On Error Resume Next
  76. If Provider = "SQL Server" Then
  77.     Set rs = cn.Execute("sp_databases")
  78.     Unload Form2
  79.     Do While Not rs.EOF
  80.         Form3.List1.AddItem rs.Fields(0)
  81.         rs.MoveNext
  82.     Loop
  83.     Form3.Show 1
  84. '    rs.Close
  85. End If
  86.  
  87. If Provider = "Oracle" Then
  88.     Set rs = cn.Execute("select * from cat")
  89.     Form1.List1.Clear
  90.     Do While Not rs.EOF
  91.         Form1.List1.AddItem rs("table_name")
  92.         rs.MoveNext
  93.     Loop
  94.  'rs.close
  95.     Form1.Show
  96.     Form1.List1.Enabled = True
  97.     Form1.Command1.Enabled = True
  98.     Form1.Command2.Enabled = True
  99.     Form1.Command3.Enabled = True
  100.     Form1.Command4.Enabled = True
  101.     Form1.Text1.Enabled = True
  102. End If
  103.  
  104. If Provider = "Ms Access 2000" Or Provider = "Ms Access 97" Then
  105.     Set rs = cn.OpenSchema(adSchemaTables)
  106.     Form1.List1.Clear
  107.     Do While Not rs.EOF
  108.         If Left(rs("table_name"), 4) <> "MSys" Then
  109.             Form1.List1.AddItem rs("table_name")
  110.         End If
  111.         rs.MoveNext
  112.     Loop
  113.     Form1.Show
  114. '    rs.Close
  115.     Form1.List1.Enabled = True
  116.     Form1.Command1.Enabled = True
  117.     Form1.Command2.Enabled = True
  118.     Form1.Command3.Enabled = False
  119.     Form1.Command4.Enabled = True
  120.     Form1.Text1.Enabled = True
  121. End If
  122.  
  123. If Provider = "Foxpro" Then
  124.     Set rs = cn.OpenSchema(adSchemaTables)
  125.     Form1.List1.Clear
  126.     Do While Not rs.EOF
  127.         Form1.List1.AddItem rs("table_name")
  128.         rs.MoveNext
  129.     Loop
  130.     Form1.Show
  131.     Form1.List1.Enabled = True
  132.     Form1.Command1.Enabled = True
  133.     Form1.Command2.Enabled = False
  134.     Form1.Command3.Enabled = True
  135.     Form1.Command4.Enabled = True
  136.     Form1.Text1.Enabled = True
  137. End If
  138. End Sub
  139.  
  140. Public Sub GetTables()
  141. cn.Close
  142. LogonServer (Provider)
  143. Form1.List1.Clear
  144. Dim rs As New Recordset
  145. rs.Open "Select * from sysobjects where xtype='U'", cn, adOpenForwardOnly, adLockOptimistic
  146. Do While Not rs.EOF
  147.     Form1.List1.AddItem rs!Name
  148.     rs.MoveNext
  149. Loop
  150. rs.Close
  151. Form1.List1.Enabled = True
  152. Form1.Command1.Enabled = True
  153. Form1.Command2.Enabled = True
  154. Form1.Command3.Enabled = True
  155. Form1.Command4.Enabled = True
  156. Form1.Text1.Enabled = True
  157. End Sub
  158.  
  159.