delphi上传文件到数据库

Ⅰ delphi 文本文件导入数据库

procere TForm1.PostData(aValue: string);
var
KaH,ShiJ,RiQ,JiH: string;
Temp: integer;
begin
Temp := Pos(':',aValue);
KaH := Copy(aValue,1,Temp-3); //卡号
ShiJ := MidStr(aValue,Temp-2,5); //时间
RiQ := Copy(aValue,Temp+3,8); //日期
JiH := RightStr(aValue,2); //机号
ADODataSet1.Append;
ADODataSet1.FieldByName(卡号).Value := KaH;
ADODataSet1.FieldByName(时间).Value := ShiJ;
ADODataSet1.FieldByName(日期).Value := RiQ;
ADODataSet1.FieldByName(机号).Value := JiH;
ADODataSet1.Post;
end;

procere TForm1.Button2Click(Sender: TObject);
var
t: TextFile;
s: string;
begin
AssignFile(t,'d:\1.txt');
Reset(t); //只读打开文件
while not Eof(t) do
begin
Readln(t,s);
PostData(s);
end;
end;

记得引用StrUtils单元

Ⅱ delphi 怎样把本地上传的照片复制到数据库

上传文件的时候可以取到上传之后文件所在的位置，所以将文件位置存入数据库就可以了显示的时候将文件路径设置到元素上即可

Ⅲ 如何在DELPHI中将EXCEL中的数据导入到SQL数据库

var
s1:string;
begin
screen.Cursor:=crSQLWait;
s1:='insert into table_bus '+
' (BS_NO,BS_TYPE,bs_whos,bs_mode,bs_seat,bs_soalseat,bs_drseat,bs_oiltype,bs_buycard,bs_unit,BS_BDATE,bs_edate) '+
' SELECT 车号,dbo.uf_GetFullNameCode(车型名称),dbo.uf_GetFullNameCode(所属单位),dbo.uf_GetFullNameCode(厂牌型号),核定座位,售票座位,驾驶室前排座位,dbo.uf_GetFullNameCode(燃料名称),购置证号,本外单位,启用日期,dbo.uf_ConvertNullDate(终止时间) '+
' FROM OpenDataSource(''Microsoft.Jet.OLEDB.4.0'',''Data Source="'+trim(LabeledEdit1.text)+'";Extended Properties=Excel 8.0;Persist Security Info=False'')...[Sheet1$] '+
' where 车号 not in(select bs_no from table_bus) ';
try
DataMole1.ADOConnection1.Execute(s1);
finally
screen.Cursor:=crArrow;
end;
end;
EXCEL是可以当成一种数据源来处理的。 Str := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + 文件路径 +
';Extended Properties=Excel 8.0;Persist Security Info=False';
然后每列相当于一字段?

熟悉SQL SERVER 2000的数据库管理员都知道，其DTS可以进行数据的导入导出，其实，我们也可以使用Transact-SQL语句进行导入导出操作。在Transact-SQL语句中，我们主要使用OpenDataSource函数、OPENROWSET 函数，关于函数的详细说明，请参考SQL联机帮助。利用下述方法，可以十分容易地实现SQL SERVER、ACCESS、EXCEL数据转换，详细说明如下：
一、SQL SERVER 和ACCESS的数据导入导出
常规的数据导入导出：
使用DTS向导迁移你的Access数据到SQL Server，你可以使用这些步骤:
○1在SQL SERVER企业管理器中的Tools（工具）菜单上，选择Data Transformation
○2Services（数据转换服务），然后选择 czdImport Data（导入数据）。
○3在Choose a Data Source（选择数据源）对话框中选择Microsoft Access as the Source，然后键入你的.mdb数据库(.mdb文件扩展名)的文件名或通过浏览寻找该文件。
○4在Choose a Destination（选择目标）对话框中，选择Microsoft OLE DB Prov ider for SQL Server，选择数据库服务器，然后单击必要的验证方式。
○5在Specify Table Copy（指定表格复制）或Query（查询）对话框中，单击Copy tables（复制表格）。
○6在Select Source Tables（选择源表格）对话框中，单击Select All（全部选定）。下一步，完成。
Transact-SQL语句进行导入导出：
1.在SQL SERVER里查询access数据:
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\DB.mdb";User ID=Admin;Password=')...表名
2.将access导入SQL server
在SQL SERVER 里运行:
SELECT *
INTO newtable
FROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\DB.mdb";User ID=Admin;Password=' )...表名
3.将SQL SERVER表里的数据插入到Access表中
在SQL SERVER 里运行：
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source=" c:\DB.mdb";User ID=Admin;Password=')...表名
(列名1,列名2)
select 列名1,列名2 from sql表
实例：
insert into OPENROWSET('Microsoft.Jet.OLEDB.4.0',
'C:\db.mdb';'admin';'', Test)
select id,name from Test

INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'c:\trade.mdb'; 'admin'; '', 表名)
SELECT *
FROM sqltablename
二、SQL SERVER 和EXCEL的数据导入导出
1、在SQL SERVER里查询Excel数据:
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
下面是个查询的示例，它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。
SELECT *
FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
2、将Excel的数据导入SQL server :
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
实例:
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
3、将SQL SERVER中查询到的数据导成一个Excel文件
T-SQL代码：
EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'
参数：S 是SQL服务器名；U是用户；P是密码
说明：还可以导出文本文件等多种格式
实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'
EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'
在VB6中应用ADO导出EXCEL文件代码：
Dim cn As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"

4、在SQL SERVER里往Excel插入数据:
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)
T-SQL代码：
INSERT INTO
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',
'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]
(bestand, prokt) VALUES (20, 'Test')
总结：利用以上语句，我们可以方便地将SQL SERVER、ACCESS和EXCEL电子表格软件中的数据进行转换，为我们提供了极大方便！

方法2:
procere TForm1.Button3Click(Sender: TObject);
var
oe:variant;
n1,str:string;
j:integer;
begin
if opendialog1.Execute then
opendialog1.DefaultExt:='xls';
str:=opendialog

Ⅳ 怎么将EXCEL通过Delphi上传到SQL数据库

使用Excel设置导入模版，大多数的客户都能接受

给你这些，够用了
//-------批量导入用比较实用
select * into [Excel 8.0;database=导出目录].导出表名 from 表 //这个是你要的

select * into [FoxPro 2.6;database=导出目录].导出表名 from 表

select * into [FoxPro 2.5;database=同上].导出表名 from 表

select * into [dBase III;database=同上].导出表名 from 表

select * into [Paradox 4.X;database=同上].导出表名 from 表

select * into [;database=C:\temp\xxx.mdb].导出表名 from 表

//----循环导入 给你些关键的片段信息，全的我这里太长了

Const
ConnExcelStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties=Excel 8.0;Persist Security Info=False'; //这个是连接串

ForMat(ConnExcelStr,[FileName]) //FileName是Excel文件
单独一个ADOQuery。使用以上连接串

ADOQuery.SQL.ADD('Select * from [Log$]') //[Log$]是Excel里的一个页，你可以把它看成一个表
剩下的和操作普通数据库一样了

While Not ADOQuery.Eof do
begin
//TODO
ADOQuery.Next;
end;

Ⅳ Delphi中如何将excel中的数据导入到数据库中

可以将excel中的一个页签视为一个表，excel文件视为一个数据库，使用ADO连接这个数据库，连接串中加入Extended
Properties=Excel
8.0，假如excel中的页签名是“测试”，在delphi中用sql操作时，类似语句如下：select
*
from
[测试$]，虽然可以支持中文，不过不建议使用中文的页签名称。

Ⅵ delphi如何实现excel导入到数据库

元接口部分引用comobj单元(uses)x0dx0aprocereTForm1.Button1Click(Sender:TObject);x0dx0ax0dx0avarexcelx,excely:string;:=CreateOleObject('Excel.Application');x0dx0ax0dx0aWorkBook:=ExcelApp.WorkBooks.Open(opendialog.FileName);//使用opendialog对话框指定x0dx0a//excel档路径x0dx0ax0dx0aExcelApp.Visible:=false;x0dx0ax0dx0aExcelRowCount:=WorkBook.WorkSheets[1].UsedRange.Rows.Count;x0dx0ax0dx0afori:=1toexcelrowcount+:=excelapp.Cells[i,1].Value;x0dx0ax0dx0aexcely:=excelapp.Cells[i,2].Value;x0dx0ax0dx0aif((excelapp.Cells[i,1].Value='')and(ExcelApp.Cells[i,2].Value=''))thenx0dx0a//指定excel档的第i行,第1,2(看情况而定)行如果为空就退出,这样的设定,最好是你的档案力这两行//对应数据库中不能为空的数据ginx0dx0ax0dx0aclose;x0dx0asql.clear;x0dx0asql.add(insertintotest(name,address)values(:name,:address));x0dx0aparambyname('name').asstring:=excelx;//excel档的第一列插入到test表的name栏位;x0dx0aparambyname('address').asstring:=excely;//excel档的第二列插入到test表的address栏位;x0dx0aexecsql;x0dx0ax0dx0aend;x0dx0ax0dx0aend;.Close;x0dx0ax0dx0aExcelApp.Quit;x0dx0ax0dx0aExcelApp:=Unassigned;x0dx0ax0dx0aWorkBook:=Unassigned;x0dx0ax0dx0aend;x0dx0ax0dx0aend;x0dx0ax0dx0a上面的是导到sql中的。oracle应该也差不多的吧。。

Ⅶ 怎么将EXCEL通过Delphi上传到SQL数据库

使用Excel设置导入模版，大多数的客户都能接受
给你这些，够用了
//-------批量导入用比较实用
select
*
into
[Excel
8.0;database=导出目录].导出表名
from
表
//这个是你要的
select
*
into
[FoxPro
2.6;database=导出目录].导出表名
from
表
select
*
into
[FoxPro
2.5;database=同上].导出表名
from
表
select
*
into
[dBase
III;database=同上].导出表名
from
表
select
*
into
[Paradox
4.X;database=同上].导出表名
from
表
select
*
into
[;database=C:\temp\xxx.mdb].导出表名
from
表
//----循环导入
给你些关键的片段信息，全的我这里太长了
Const
ConnExcelStr
=
'Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=%s;Extended
Properties=Excel
8.0;Persist
Security
Info=False';
//这个是连接串
ForMat(ConnExcelStr,[FileName])
//FileName是Excel文件
单独一个ADOQuery。使用以上连接串
ADOQuery.SQL.ADD('Select
*
from
[Log$]')
//[Log$]是Excel里的一个页，你可以把它看成一个表
剩下的和操作普通数据库一样了
While
Not
ADOQuery.Eof
do
begin
//TODO
ADOQuery.Next;
end;

Ⅷ 如何用Delphi把文本文件中的数据写入到数据库中

读取文本文件中的字符串，可以使用 TStrings 及其派生的类（如 TStringList 等）：

procereTForm1.Button1Click(Sender:TObject);
vartxt:TStringList;
begin
//读取文本文件中的内数据
txt:=TStringList.Create;
txt.LoadFromFile('e:	est.txt');

//字段赋值，将容数据写入数据库
ADOTable1.Append;
ADOTable1.FieldByName('字段名').AsString:=txt.Text;
ADOTable1.Post;

txt.Free;
end;

Ⅸ 如何在DELPHI中将EXCEL中的数据导入到SQL数据库

最简单高效的办法是先将xls文件在excel中转化为csv格式或dbf格式的文件，再在delphi中处理导入到sql数据库中

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

1.打开SQL Server Management Studio，按图中的路径进入导入数据界面。