请教delphi7 ADO数据库获取EXCEL表格中时间问题

eaglebear

用ADOquery通过ADOconnection获取excel表格中的日期、时间及数据，日期和数据都没问题，但时间成了下图的格式，请教如何能使两者一样？谢谢！
DBgrid中显示的ADOquery

Excel表格
  

renpeng009672

FormatString("HH:mm:ss")

SkyGz

FormatDateTime('HH:nn:ss',   datetimevalue);

eaglebear

感谢楼上两位解答，format语句我在存储为excel时用了，在excel中显示没问题，只是再导出到数据库中就成了长时间格式。
我编的小程序是先记录实时曲线（图1），再存储为excel格式，excel表格再导出为曲线数据库（图2），问题是导出的时间轴数据太长。


                                           图1

                                           图2

附上excel存储程序：

1. procedure TForm1.btn6Click(Sender: TObject);
   
2. var
   
3.   i,ii,j,k,l:integer;
   
4.   ExcelApp, Sheet: Variant;
   
5.   SearchRec:Boolean;
   
6. begin
   
7.     ii:=lns1.Count;
   
8.     ExcelApp := CreateOleObject('Excel.Application');
   
9.     ExcelApp.WorkBooks.Add;
   
10.     ExcelApp.Workbooks.open(ExtractFilePath(Paramstr(0)) + 'TC.xls');
    
11.     ExcelApp.WorkSheets[1].Activate;
    
12.     j:=ExcelApp.WorkSheets[1].usedrange.rows.count;
    
13.     //for i:=1 to j-1 do ExcelApp.ActiveSheet.Rows[2].delete;
    
14.     for i:=1 to ii do begin
    
15.     ExcelApp.Cells[i+1,1].Value :=DateToStr(Date);
    
16.     ExcelApp.Cells[i+1,3].Value :=lns1.YValue[i-1];
    
17.     ExcelApp.Cells[i+1,2].Value :=lns1.XLabel[i-1];
    
18.     end;
    
19.     for k:=1 to 99 do begin
    
20.     SearchRec:=FileExists(ExtractFilePath(Paramstr(0))+'TC'+FormatdateTime('yyyymmdd',now)+'-'+IntToStr(k)+'.xls');
    
21.     if SearchRec=false then break
    
22.     end;
    
23. 
    
24.     ExcelApp.ActiveSheet.SaveAs(ExtractFilePath(Paramstr(0)) + 'TC'+FormatdateTime('yyyymmdd',now)+'-'+IntToStr(k)+'.xls');
    
25.     ShowMessage('曲线已存储！文件名'+ 'TC'+FormatdateTime('yyyymmdd',now)+'-'+IntToStr(k)+'.xls');
    
26.     //ExcelApp.ActiveSheet.SaveAs(ExtractFilePath(Paramstr(0)) + 'TC.xls');
    
27.     ExcelApp.Activeworkbook.Close;
    
28.     ExcelApp.Quit;
    
29.     ExcelApp := Unassigned;
    
30. end;
    

复制代码

载入曲线数据程序：

1. procedure TForm1.btn8Click(Sender: TObject);
   
2. var
   
3.   s:string;
   
4. 
   
5. begin
   
6. 
   
7. qry1.Close;
   
8. con1.close;
   
9. 
   
10. dlgOpen1.Filter := '曲线数据|*.xls';
    
11. dlgOpen1.DefaultExt := '*.xls';
    
12. dlgOpen1.Execute;
    
13. s:=self.dlgOpen1.FileName;
    
14. con1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
    
15.         +s+ ';Extended Properties=Excel 8.0;Persist Security Info=False';
    
16. qry1.Close;
    
17. qry1.SQL.Clear;
    
18. qry1.SQL.Add('select * from [Sheet1$]');
    
19. qry1.ExecSQL;
    
20. lns1.DataSource:=qry1;
    
21. qry1.Active;
    
22. lns1.ShowInLegend:=False;
    
23. lns1.XLabelsSource :='时间';
    
24. lns1.YValues.ValueSource :='电压';
    
25. 
    
26. end;

复制代码

daiqx

将字段类型改为v

daiqx

varchar……

eaglebear

搞定了，把query显示模式格式化就行了

1. qry1.Edit;
   
2. TFloatField(qry1.FieldByName('时间')).DisplayFormat :='hh:mm:ss';
   
3. qry1.Post;

复制代码