How to read excel table to database

Method 1 ： Use SQL sentence .

private _ Connection string ＝ “ODBC;DBQ=” ＋ my excel file ＋ “;Driver={Driver do Microsoft Excel(*.xls)};”
 

. Subroutines   Read external data to advanced tables , ,  Open . Parameters   ginseng _ Connection string ,  The text type , , connstr. Parameters   ginseng _SQL Query statement ,  The text type . Parameters   ginseng _ Advanced forms ,  Advanced forms . local variable   private _ Database connection 1,  Database connection object . local variable   private _ Recordset 1,  Recordset objects . local variable   private _ Temporary text ,  The text type . local variable  i,  Integer type . local variable  j,  Integer parameter _ Advanced forms . Row number  ＝ 1'  One 、ADO Connect private _ Database connection 1.conn Set connection string  ( ginseng _ Connection string )  ' (1) Set connection string . If  ( private _ Database connection 1.conn open  () ＝  really )  ' (2) Connection open     '  Two 、ADO Recordset      private _ Recordset 1.rs Set active connection  ( private _ Database connection 1.conn Take the connection object itself  ())  ' (1) Set recordset connection      private _ Recordset 1.rs Set data source  ( ginseng _SQL Query statement )  ' (2) Set recordset data source     . If  ( private _ Recordset 1.rs open  () ＝  really )  ' (3) Open recordset          ginseng _ Advanced forms . Number of columns  ＝  private _ Recordset 1.rs Number of fields  () ＋ 1        . Cycle head  ( private _ Recordset 1.rs Number of fields  () ＋ 1, i)             ginseng _ Advanced forms . Set data  (0, 0, # Table constant . The text type , “ Serial number ”)             ginseng _ Advanced forms . Set data  (0, i, # Table constant . The text type ,  private _ Recordset 1.rs Take the field name  (i － 1))            '  Debug output  ( private _ Recordset 1.rs Get the field type  (i － 1))        . Cycle end  ()        i ＝ 1         ginseng _ Advanced forms . visual  ＝  false         . Judge the beginning of the loop  ( private _ Recordset 1.rs After the last record  () ＝  false )             ginseng _ Advanced forms . Insert row  (, )             ginseng _ Advanced forms . Set data  (i, 0, # Table constant . The text type , i)            . Cycle head  ( private _ Recordset 1.rs Number of fields  (), j)                 ginseng _ Advanced forms . Set data  (i, j, # Table constant . The text type ,  private _ Recordset 1.rs Read the text  ( private _ Recordset 1.rs Take the field name  (j － 1)))                .'  If it's true  ( private _ Recordset 1.rs Take the field name  (j － 1) ＝ “ Project code ”)                    '  Debug output  ( private _ Recordset 1.rs Read the text  ( private _ Recordset 1.rs Take the field name  (j － 1)))                . If it really ends             . Cycle end  ()             private _ Recordset 1.rs Move to next  ()            i ＝ i ＋ 1        . Judge the end of the loop  ()         ginseng _ Advanced forms . visual  ＝  really          private _ Recordset 1.rs close  ()  '  Close the current recordset     . otherwise          Message box  (“ Failed to open recordset .” ＋  To text  ( private _ Recordset 1.rs Take the State  ()), 16 ＋ 0, “ Tips ”)    . If the end of the      private _ Database connection 1.conn close  ()  '  disconnect      Advanced forms _ Alternate color display  ( ginseng _ Advanced forms ). otherwise      Message box  (“ Failed to connect to data source .”, 16 ＋ 0, “ Tips ”). If the end of the