Astuces Excel
  1. Astuces Excel
  3. Importer des données d'Excel dans SQL Server
Intereting Posts
exécutez le lot et le file script toutes les 2 minutes au lieu de planificateur de tâches Rapport du diagramme SSRS avec des sliders pour filterr ou modifier l'set de données Préserver les hyperliens d'Excel vers PDF Format ODA incorrect lors de l'access au stream OData de Tableau 8.1 Décharger un formulaire dans Excel VBA ne semble pas fonctionner Trouvez une gamme de caractères ASCII à l'aide d'une formule de feuille de calcul Excel Fusionner et supprimer des lignes de données Correction de formule Excel MS Excel Incremente row (VBA) et ensuite Using SommeProduct (probleme avec Sommeproduct Excel) SQL 2012 Importation et fusion de données Excel: Utilisation de fonctions de text pour find le milieu Travailler avec des files Excel en C # Excel VBA: Workbook_Open Excel VBA – supprimer / copyr un logging d'une feuille vers un autre Copier la ligne en fonction d'une condition à une autre feuille

Importer des données d'Excel dans SQL Server

J'ai besoin d'importer des données d'Excel dans une database SQL Server. J'utilise ADO pour lire les files excel.

Il arrive parfois qu'une ligne soit vide dans Excel, ce qui créera une défaillance d'import de ligne vide côté SQL Server.

Une bonne idée de supprimer ces lignes vides ou de détecter pendant l'import?

Je cherche une solution de style de code plutôt efficace, je montre ma solution actuelle avec la boucle de champ ici 

function EmptyRow(aQuery: TADOQuery): Boolean; var i: Integer; fname: ssortingng; temp_line: ssortingng; begin temp_line := ''; for i := 0 to aQuery.Fields.Count - 1 do begin fname := aQuery.Fields[i].FieldName; temp_line := temp_line + aQuery.FieldByName(fname).asSsortingng; end; if (temp_line <> '') then result := false else result := true; end;

Vous pouvez quitter le premier rang si vous trouvez une string non vide 

 function EmptyRow(aQuery: TADOQuery): Boolean; var Field: TField; begin for Field in aQuery.Fields do if Field.AsSsortingng <> '' then exit(false); exit(True); end;

Et si vous avez un Delphi plus vieux, vous pouvez l'implémenter comme si: 

 function EmptyRow(aQuery: TADOQuery): Boolean; var I: Integer; begin Result := False; for I := 0 to aQuery.Fields.Count - 1 do if aQuery.Fields[I].AsSsortingng <> '' then exit; Result := True; end;