文本数据导入数据库的方法

有一段人事档案资料archive txt 内容如下 小许　男　工程师 小吴　女　助理工程师 小蔡　男　助理工程师 小牟　女　工程师

要将它转入数据库archive dbf中 archive dbf结构如下 姓名 性别 年龄 职称

怎么办呢？现在通过使用delphi编程 很好地解决了这个难题 Delphi提供了许多功能强大 丰富的字符处理函数和过程 常用的有 ( )function Length(S String) Integer//返回串的长度 ( )function Copy(S String;Index Count Integer) String//给出一个字符串中串的拷贝 ( )function Pos(Substr String;S String);Integer／／查找子串在字符串中的位置 ( )Procedure Delete(VarS String;Index Count Integer);／／从一个字符串中去除子串

利用Delphi提供的已有函数和过程基础上编制自己的三个函数 实现了纯文本格式资料转入数据库功能 只要Delphi支持的数据库都可以支持

archive txt中每行数据为一个字符串 字符串中每个被分割的数据为一个字段 分割每个字段的字符为分割符 这里是空格 也可以是 ; ＃等符号 具体思想是 先将字符串进行调整 然后把串中每个字符同分割符比较 将不是分割符的字符追加到MyStr串中 最后得到一个字段的内容 通过一个循环 就可以将一个字符串分成几个字段

Function Regulate(aString Sepchar string) string ／／去掉多余的分割符 规范字符串 Function GetSubStr(varsString string;SepChar String) String;//得到字符串中一个子串 因要改变参数aString的值 所以将它用var定义 FunctionGetSubStrNum(aString SepChar String) Integer;／／计算一个字符串要被分割成几个字段 参数 aString是所需分割的一个字符串 SepChar是分割符

Function RegulateStr(aString String;Sepchar String) String;  var   i Num Integer;   Flag Boolean;   MyStr TempStr String; begin   Flag:=False;／／进行标志 去除多余的分割符   Num:=Length(aString);／／计算aString串的长度   for i:= to Num do   begin     TempStr:=Copy(aString i );／／取aString串中的一字符     if TempStr <> SepChar then     begin       MyStr:=MyStr+TempStr;       Flag:=True;     end     else       if(Flag = True)then       begin         Mystr:=Mystr+TempSrt;         Flag:=False;       end;   end;   if  MyStr[Length(MyStr)] <> SepChar then    MyStr:=MyStr+SepChar;   RegulateSrt:=MyStr; end;

Function GetSubStr(var aString String SepChar Strign) String; var   Mysrt String;   StrLen Integer;   SepCharPso Integer; begin   StrLen:=Length(aString);   SepCharPos:=Pos(SepChar aString);／／计算分割符在子串中的位置   MyStr:=Copy(aString SepCharPos－ ); ／／将分割符前所有字符放到mystr串中   Delete(aString SepCharPos);／／除去分割符和分割符前的子串   GetSubStr:=MyStr;／／返回一个字段 end;

FunctionTforml GetSubStrNum(aString String;SepChar String) Integer; var   i Integer;   StrLen Integer;    Num Integer; begin   StrLen:=Length(aString);   Num:= ;   for i:= to StrLen do     if Copy(aString i ) = SepCharthen       Num:=Num+ ;   GetSubSrtNum:=Num; end;

有了上面三个函数 现在介绍一下具体的应用 首先建立一个窗体Forml 加入一个RichEditl(或Menol) 一个按钮Buttonl和一个Tablel 设置Tablel的属性 Tablell DataBase = c:\Archivs Tablell TableName = Archive dbf

分别加入以下程序 Const Space= ProcedureTForml FormCreate(Sender Tobject); begin   RichRditl Lines LoadFromFile( Archive txt ); end;

lishixinzhi/Article/program/Delphi/201311/25055

找到你要导入的数据库，右击-->任务-->导入数据，出现的第一个窗体“选择数据源”就是提示你要选择你要导入的是什么数据，在“数据源”那个选项出选择“Microsoft

Excel”的选项，对应的在下面会提示选择excel数据的路径，选择路径之后，然后下一步，根据后续的提示继续就可以了。

这个网上有很多，找找吧。\x0d\一般都是先获取execl的数据导入到dataset中，再把dataset中的数据库insert到数据库（这部分应该不用说了吧）。\x0d\需要注意一点的是：execl2003和2007以上的版本所用的引擎是不一样的。如下列。\x0d\//导入EXCEL\x0d\publicvoidImportExcel(stringfileName)\x0d\{\x0d\//stringfileName="d:\\123xls";\x0d\stringexcelStr="Provider=MicrosoftJetOLEDB40;DataSource="+fileName+";ExtendedProperties='Excel80;HDR=YES;IMEX=1'";//execl2003\x0d\//stringexcelStr="Provider=MicrosoftAceOleDB120;DataSource="+fileName+";ExtendedProperties='Excel120;HDR=YES;IMEX=1'";//execl2007以上（需要装个AccessDatabaseEngine引擎，网上找找）\x0d\DataSetds=newDataSet();\x0d\using(SystemDataOleDbOleDbConnectioncn=newOleDbConnection(excelStr))\x0d\{\x0d\using(OleDbDataAdapterdr=newOleDbDataAdapter("SELECTFROM[sheet1$]",excelStr))\x0d\{\x0d\drFill(ds);\x0d\}\x0d\}\x0d\//插入到数据库\x0d\}

附加数据库

或者导入数据库

sql本身有数据导入的 *** 作。但如果要从一个备份的文件中导入数据，则要进行另外的 *** 作。下面以一个例子进行说明。

sql服务器上已有一个doe数据库，并且里面有大量的数据，现准备从另外一个备份文件a1bak（不是doe数据库的备份文件）中导入另外的数据（即导入后在doe中增加一些数据表，表中已录有数据），并保持原doe的数据不变。

1、首先，在“sql企业管理器”中新建一个临时数据库a1。

2、右击a1数据库，选择：所有任务－＞还原数据库。

3、在“还原数据库”窗口中，选择：“从设备”。

4、点击“选择设备”。

5、点击“添加”。

6、从文件名中选择要还原的数据库文件，如a1bak。

7、点击“确定”，返回“还原数据库”窗口。

8、点击“选项”卡，进入选项设置。

9、钩选：“在现有数据库上强制还原”。

10、修改“移到物理文件名”为：“c:\a1ldf”、“c:\a1mdf”。

11、点确定，即可导入备份文件中的数据到临时数据库a1中。

12、此时，你可以将数据从a1导入到另外一真正要导入的数据库中，如doe数据库。

（下面的数据导入 *** 作为sql2000企业管理器的一般数据导入导出 *** 作。）

13、在“sql企业管理器”中选择“doe”数据库。

14、右击doe数据库，选择：所有任务－＞导入数据。

15、在“dts导入/导出向导”窗口的“选择数据源”中，数据源选择刚才建立并导入数据的临时数据库a1。点击下一步。

16、在“选择目的”中，系统已经默认为doe数据库。

17、连续点击“下一步”，直到完成。

经过上面的 *** 作，你已经成功地将备份文件a1bak中数据导入doe数据库中，并且doe数据库原有数据不变。

此时，你可以删除临时数据库a1。

你本地的数据库是在运行的吧，这个就最方便的。\x0d\你直接在本地打开 SQL Server Management Studio （mssql客户端）同时连接本地及远程数据库。\x0d\选择本地要同步的数据库，任务--导出数据。。。然后直接就导入了远程的数据库了。\x0d\当然也可以生成sql脚本，然后再执行都 行。

我给你一些数据库常用的导入导出命令吧:\x0d\该命令在“开始菜单>>运行>>CMD”中执行\x0d\一、数据导出（expexe）\x0d\1、将数据库orcl完全导出，用户名system，密码accp，导出到d:\daochudmp文件中\x0d\exp system/accp@orcl file=d:\daochudmp full=y\x0d\\x0d\2、将数据库orcl中scott用户的对象导出\x0d\exp scott/accp@orcl file=d:\daochudmp owner=(scott)\x0d\\x0d\3、将数据库orcl中的scott用户的表emp、dept导出\x0d\exp scott/accp@orcl file= d:\daochudmp tables=(emp,dept)\x0d\\x0d\4、将数据库orcl中的表空间testSpace导出\x0d\exp system/accp@orcl file=d:\daochudmp tablespaces=(testSpace)\x0d\\x0d\二、数据导入（impexe）\x0d\1、将d:\daochudmp 中的数据导入 orcl数据库中。\x0d\imp system/accp@orcl file=d:\daochudmp full=y\x0d\\x0d\2、如果导入时，数据表已经存在，将报错，对该表不会进行导入；加上ignore=y即可，表示忽略现有表，在现有表上追加记录。\x0d\imp scott/accp@orcl file=d:\daochudmp full=y ignore=y\x0d\\x0d\3、将d:\daochudmp中的表emp导入\x0d\imp scott/accp@orcl file=d:\daochudmp tables=(emp)

以上就是关于文本数据导入数据库的方法全部的内容，包括:文本数据导入数据库的方法、如何把excel表格数据导入到数据库、怎么把Excel数据导入到数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！