delphi ADOConnection1 连接excel表格读取数据

usesComObj;procedureT****1.Button6Click(Sender:T****);varExcel:OLEVariant;ExcelVersion:s****ing;file…

Delphi ADO 连接 Excel （附Excel各个版本的版本号）

引用ComObj这个单元TypeConn:TADOConnection;qry:TADOQuery;varExcel:OLEVariant;ExcelVersion:string;begi…

delphi FDConnection取得EXCEL工作表名

procedureGet****Names(constACatalogName,ASchemaName,APattern:s****ing;AList:TS****ings;AScopes:TFDPh…

delphi FIREDAC操作SQLITE内存数据库

SQLite不仅可以把数据库放在硬盘上，还可以放在内存中，经测试，同样条件下数据库放在内存中比放在硬盘上插…

delphi 从记事本导入记录

实现代码：复制代码procedureTForm3.N17Click(Sender:TObject);varAList:TStringList;AAdq:TADOQuery;AXuYa…

delphi 两种登录界面验证写法

效果：如果登陆正确跳转到主界面，如果登陆不进去关闭或者重新登陆。第1种思路：同时验证账号和密码是否对再…

delphi FireDAC FDConnection 事务

{常见代码}beginFDConnection1.StartTransaction;//开始一个事务try{可能会出错的代码}FDConnection1.Commi…

delphi FDQuery获取字段类型

ty:=FieldTypeNames[FDQuery3.FieldDefList.FieldDefs[0].DataType];s:=FDQuery3.Fields.Fields[0].FieldNa…

delphi adoquery查询，如何得到查询记录数？

adoquery1.SQL.Clear;adoquery1.SQL.Add('select*fromuserlist');adoquery1.Open;ACount:=adoquery…

delphi ADOquery判断插入的值是否重复

ADOQuery.Sql.Text:='select*fromtab1wherekey='''+maykey+'''';ADOQuery.Open();ifADOQuery.RecordCount<>…

delphi ADOQuery查询更改用户

procedureTForm1.bt_deleteClick(Sender:TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQ…

delphi ADOQuery添加用户及密码

procedureTForm1.bt_addClick(Sender:TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;//ADOQuery1.SQL…

Delphi ADOQuery查询用户是否存在

procedureTForm1.Bt_findClick(Sender:TObject);vari,count:Integer;result:Boolean;beginADOQuery1.Close;…

delphi mysql里delphi事件类型转Unix时间戳

--//////////////////////////////////////////////////////////----佛也没辙q340066709亲情奉献--mysql里d…

delphi adoconnection断线重连

adoconnection断线重连usesComObj;procedureTForm1.ApplicationEvents1Exception(Sender:TObject;E:Excepti…

delphi TDBGridEh导出excel

functionDBGridExport(lpGrid:TDBGridEh):Boolean;varExpClass:TDBGridEhExportClass;Ext:string;SaveDlg:T…

delphi 对Image字段存取图片、文件

1、存入字段ifp1.Graphic<>nilthenbeginTmp.FieldByName('TP').Assign(p1.Graphic);end;2、读出到文件TBlob…

delphi 实现数据库连接封装到dll

libraryProject1;usesSysUtils,db****s,Dialogs,Classes;proceduredbconnect(database:****atabase);s****c…

Delphi 把单张图片保存到Access数据库

procedureTForm1.BitBtn2Click(Sender:TObject);varext:string;beginopenpicturedialog1.FileName:='.jpg';…

Delphi 批量把图片保存到Access数据库

//添加一个memo，添加opendialogprocedureTfrmMain.Button6Click(Sender:TObject);vartuid:Integer;beginif…