在delphi中如何实现用代码将excel导入到sql数据库中

nameX := excelapp.Cells[1,1].value; // 读取EXCEL第一行的列字段 nameY := excelapp.Cells[1,2].value; // 读取EXCEL第一行的列字段 for i := 2 to excelrowcount + 1 do begin excelx := excelapp.Cells[i,1].value; excely := excelapp.Cells[i,2].value;