'##--Datenbankanbindung an die SQL - Datenbank--!!!
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
 
Do While Dateiname <> ""
    DoEvents
    Me.Caption = ImportPfad & Dateiname
 
    SuchWert = Left(Dateiname, Len(Dateiname) - 6)
    SuchErgebnisDWG = ImportPfad & SuchWert & "_D.dwg"
    SuchErgebnisPDF = ImportPfad & SuchWert & ".pdf"
 
DoEvents
 
With Cn
    .CursorLocation = adUseClient
    .Provider = "SQLOLEDB"
    .ConnectionString = "Data Source='SERVER1'; Initial Catalog='KATALOG1';User" & _
      "ID='XXX';Password='XXXXX'"
    .Execute "UPDATE PROD_DEFINITION Set M_ZNAME_PLINE = '" & SuchErgebnisDWG & _
    "' Where PD_NUM = '" & SuchWert & "'"
    .Execute "UPDATE PROD_DEFINITION Set M_ZEICHNUNGSNAME = '" & _
    SuchErgebnisPDF & "' Where PD_NUM = '" & SuchWert & "'"
End With
 
    Dateiname = Dir
    If ProgressBar1 + 1 > ProgressBar1.Max Then Exit Do
    ProgressBar1 = ProgressBar1 + 1
    DoEvents
Loop
 
ProgressBar1.Value = 0
Me.Caption = "Durchlauf beendet"
Me.CmbOK.SetFocus
 
Cn.Close

VG

Dirk