如何将数据库文件导入数据库中

工具/材料：Management Studio。

1、首先在桌面上，点击“Management Studio”图标。

2、然后在该界面中，选中要导入数据的数据库。

3、之后在该界面中，右键点击“任务”里“导入数据”选项。

4、接着在该界面中，输入服务器名称。

5、然后在该界面中，选择要导入的数据库。

6、然后在该界面中，点击“下一步”按钮。

7、其次在该界面中，选择“复制一个或多个表或视图的数据”。

8、继续在该界面中，点击“下一步”按钮。

9、接着在该界面中，勾选“立即运行”。

10、最后在该界面中，点击“完成”按钮。

1、首先，打开媒介工具“记事本”，将word文件里需要导入的数据，复制粘贴到记事本当中，然后保存成为txt文件，本例中将txt文件取名为“数据源.txt”。

2/8

2、打开excel表格，点击“数据”选项卡，找到“自文本”。

小朋友语言迟缓2岁至4岁孩子不说话严重吗?

广告

3/8

3、点击“自文本”，d出下一窗口，选择刚才保存的名为“数据源”的txt类型文件，点击“导入”。因“自文本”方式数据导入默认的只有三种文件类型txt、csv、prn，所以需要事先将word转变为txt。

【家长必看】_说话晚的孩子

广告

4/8

4、d出“文本导入向导”对话框。选择最适合的文件类型，方便导入后，数据以已选择方式分列。点击“下一步”。

特别注意，如果选的“分隔符号”，则分隔符号必须是英文状态下的符号，否则导入后无法分列。

两岁小孩说话晚是什么原因?说话晚怎么办?

广告

5/8

5、设置分列数据所包含的分隔符号，其实就是导入数据列数的控制，选择分隔符。

示例文档用“,”把每列隔开的，所以选择“逗号”。

完成设定后，点击下一步。

6/8

6、列数据格式选择”常规“，”常规“选项更为智能。

完成设定后，点击完成。

7/8

7、数据存放位置最好是“现有工作表=$A$1”，指的就是从当前表格的第一行第一列开始放置数据。点击确定。

8/8

8、数据导入完成。

可以进一步编辑，或者是做几个表格的数据比对啦！

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

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

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

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

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

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

Function RegulateStr(aString StringSepchar String) String  var   i Num Integer  Flag Boolean  MyStr TempStr Stringbegin   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:=MyStrend

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

FunctionTforml GetSubStrNum(aString StringSepChar String) Integervar   i Integer  StrLen Integer    　Num Integerbegin   StrLen:=Length(aString)  Num:=   for i:= to StrLen do     if Copy(aString i ) = SepCharthen       Num:=Num+   GetSubSrtNum:=Numend

有了上面三个函数 现在介绍一下具体的应用 首先建立一个窗体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

---