Option Explicit
Public FSO As New FileSystemObject
 
Private Sub cmdAusführen_Click()
On Error GoTo Ausführen_Catch
 
Dim Rs As New ADODB.Recordset
Dim Cn As New ADODB.Connection
Dim Fi As Field
Dim i  As Integer
Dim sMsg As String
 
    Cn.CursorLocation = adUseClient
    Cn.Provider = GetProvider(cbbTyp.ListIndex)
    With Cn
      .Provider = GetProvider(cbbTyp.ListIndex)
      .ConnectionString = "Data Source=" & txtServerName.Text & ";" & _
                         "User Id=" & txtBenutzer.Text & ";" & _
                         "Password=" & txtPasswort.Text & ";"
      MsgBox .ConnectionString
 
    End With
    Cn.Open
 
'    Call Cn.Open(txtPfad.Text, txtBenutzer.Text, txtPasswort.Text)
'    Call Cn.Open(txtDbName.Text, txtServerName.Text, txtBenutzer.Text, 
' txtPasswort.Text)
    Set Rs = ExecuteSQL(txtSQL.Text, Cn)
 
    If IsNull(Rs) = False Then
        Set frmTabelle.Flex1.DataSource = Rs
        For Each Fi In Rs.Fields
            frmTabelle.tbTabelle.Buttons(1).ButtonMenus.Add , Fi.Name, Fi.Name
        Next
        frmTabelle.Show (vbModal)
    End If
 
 
Ausführen_Finalize:
    Cn.Close
    Exit Sub
 
Ausführen_Catch:
  With Cn
     For i = 0 To .Errors.Count - 1
       sMsg = sMsg & .Errors(i).Description & vbCrLf
     Next i
     .Errors.Clear
  End With
  MsgBox sMsg, vbCritical, "Datenbankfehler"
 
'  GoTo Ausführen_Finalize
 
End Sub
 
Private Sub cmdLaden_Click()
    frmSQLÖffnen.Show (vbModal)
End Sub
 
Private Sub cmdSpeichern_Click()
Dim BaseDir As Folder
Dim Stream As TextStream
Dim Datei As String
 
    Datei = InputBox("Geben Sie den Namen ein", "Speicher...")
    Set BaseDir = FSO.GetFolder(App.Path)
 
    Set Stream = BaseDir.CreateTextFile(Datei & ".sql", True)
    Stream.Write (txtSQL.Text)
End Sub
 
Private Sub cmdSQLEditor_Click()
    frmSQLEditor.Show (vbModal)
End Sub
 
Private Sub cmndDurchsuchen_Click()
On Error Resume Next
 
    cdOpen.ShowOpen
    If Err.Number Then Exit Sub
    txtPfad.Text = cdOpen.FileName
    If txtPfad.Text = "" Then Exit Sub
    txtPfad.SelStart = Len(txtPfad.Text)
 
    Select Case Endung(txtPfad.Text)
    Case "mdb"
        cbbTyp.ListIndex = dtAccess2000
    Case "MDB"
        cbbTyp.ListIndex = dtAccess2000
    Case "sdb"
        cbbTyp.ListIndex = dtSQLServer
    Case "ora"
        cbbTyp.ListIndex = dtOracle
    Case Default
        cbbTyp.ListIndex = dtAccess97
    End Select
End Sub
 
Private Sub Form_Load()
    cbbTyp.ListIndex = dtAccess97
End Sub