##
## Datum: 2024-10-17_14-29 
## Name: Christian Oswald
## Projekt:  etatverwaltung
## Datei:  f_leer_df_from_table.R
## Kommentar: Erstellt einen leeren DS einer Tabelle
##

leer_df_from_table <- function(conn, tabelle){
  felder <- dbListFields(conn, tabelle)
  record <- data.frame(matrix(ncol = length(felder), nrow = 0)) 
  colnames(record) <- felder
  return(record)
}