You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

14 lines
328 B

Module Module1
Sub Main()
Dim db As New clsDBZugriffe
Globals.sConnectionString_edoka = My.Settings.EDOKA_Connection
db.Get_doks_to_export()
For Each r As DataRow In db.Dokdaten.Rows
db.get_dokumnet_from_db(r.Item(1), r.Item(1) + ".pdf")
Next
End Sub
End Module