把数据从txt文件导入到数据库的实现方法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
2页免费6页免费3页免费2页免费11页免费5页2下载券7页免费5页免费2页免费2页免费
喜欢此文档的还喜欢18页免费14页7下载券3页免费32页7下载券47页免费
把数据从txt文件导入到数据库的实现方法|把​数​据​从​t​x​t​文​件​导​入​到​数​据​库​的​实​现​方​法​
​
​采​用​两​种​方​法​：​利​用​O​r​a​c​l​e​自​带​的​ ​S​Q​L​*​L​o​a​d​e​r​工​具​和​写​程​序​解​决​。
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢3925人阅读
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：66277次
排名：千里之外
转载：66篇
译文：14篇
评论：10条
(2)(2)(6)(2)(2)(1)(4)(4)(2)(12)(27)(1)(4)(12)(5)你的位置：
一个TXT文档，里面有N行，并且有内容相同的，我想把重复的行都删除，帮我用C语言编一个程序，谢谢
一个TXT文档，里面有N行，并且有内容相同的，我想把重复的行都删除，帮我用C语言编一个程序，谢谢
r&w&quot.txt&quot,fp2)，不同的写入另一文件;}if(strcmp(fclose(fp2)。
#include &char s1[81];,&while(1){fgets(s1;fp1=fopen(&quot.h&gt,fp1)最笨的方法;);if(feof(fp1)){break。读一句然后和后面的比较;while(1){fseek(fp1;}}fclose(fp1);if(feof(fp1)){break.txt&fp2=fopen(&quot,&quot,80,),80;string.h&gt，但适合初学者,fp1);elsefputs(s1;fgets(;}seek+=strlen(str);#include &main(){char str[81];seek=0,SEEK_SET),seek,s1)==0)FILE *fp1,*fp2
人家本来分就不多嘛。c语言不会，等高手……
写个程序你才给10分？是不是如果可以给1分，你就给1分？小气
查找-替换多简单,还要写程序啊?
推荐楼主用飞梭TXT文本数据去重工具，很小巧，可系统化清理重复数据以及空行。功能还是很不错的。速度也快。百度上搜一下就能找到下载地址。
推荐你用飞梭TXT文本数据去重工具！
什么是TXT文档?如何建立一个TXT文档?……答：在桌面或是文件夹的任一空白处点右键=&新建=&文本文档。 然后双击打开。就可以了。把你想要编辑的东西打进此文本文档里吧。 要改名也可以。...
新建一个TXT文档的快捷键是什么?……答：1,如果你需要的是正在运行记事本,然后新建的话,快捷键是:ctrl+N 2,如果你需要的效果是,在任何状态下都调出记事本,新建文档的...
如何把一个TXT文档分成几个?……答：txt文本分割器 这个文本分割器可以把较大的文本平均分割成若干个文本,然后多文本导出到一个文件夹! 下载地址:http://www.qd...
在一个TXT文档中,如何筛选出所需要的内容?……答：把txt文档导入excel中,具体的方法是,数据》导入外部数据,然后设定分割符,就可以吧txt导入excel了
vc从一个txt文档中读取数据,存到二维数组中?……答：哥们 你开了两道题啊 ~~ 建议你这样: #include &stdafx.h& #include&stdio.h& #include&mat...
什么是TXT文档? 如何建立一个TXT文档?……答：txt文档,即纯文本文件,文件内只有文字,没有图片声音等内容;新建的方法很多,例如在桌面右击鼠标→选择新建→txt文档;或者使用写字...
谁能用vb编一个小程序,把一个txt文档里的内容……答：Private Sub Command1_Click() Open &C:\Users\hp\Desktop\2.txt& For In...
用VB2008进行编程,需要读入一个txt文档的……答：dim f(i) as double i=0 open &matlab.log& for input as #1 do while no...
如何把一个TXT文档分成两分……答：直接在电脑打开TXT文件,把光标移到你要的开头。按住SHIT健,就是你换输入法时长的那个。然后拉到你想要的结尾位置。在结尾出按下鼠标...
vb怎样读取一个txt文档……答：楼上代码并不能实现楼主想要效果。不过思路还是不错的,我本来想用数组实现的,代码有点长就算了。　　Private　Sub　Comman...
你可能感兴趣的相关资料怎样把.txt文件通过VB编程的方式定时导入到access.或SQL数据库中
主　　题：
怎样把.txt文件通过VB编程的方式定时导入到access.或SQL数据库中
怎样把.txt文件通过VB编程的方式定时导入到access.或SQL数据库中
请教各位高手啦,
还有一个问题就是:我在一台PC机用VB编程的方式从另一台普通PC机上定时获取.txt文件,此功能已实现,现在想写一些代码定时检测网络的连接状态,如果网骆不通则弹出对话框,请问要怎样实现,谢谢了.
online(龙卷风V2.0--再战江湖)
) 信誉：149
<font color="#03-11-13 16:45:15Z
得分:<font color="#
可以用ping方式
Public Sub Delay(HowLong As Date)
TempTime = DateAdd("s", HowLong, Now)
While TempTime & Now
DoEvents '让 windows 去处理其他事
Private Sub Command1_Click()
Dim FileFile As Integer
Dim TestString As String
'产生一个文字档 Test.txt，写入一个 '0' 字
TestString = " /c echo 0 & " & "c:\Test.txt"
Shell (TestString), vbHide
'建立一个 Bat 档，在这个 Bat 档中，我们会设定：
'随便 Ping 一个在 Internet 上的 Server 两次，将结果写入文字档 Test.txt
'在这里, 我们以 Ping 你的局域网计算机 为例
FileFile = FreeFile
Open ("c:\Test.bat") For Binary As FileFile
TestString = "ping -n 2
& " & "c:\Test.txt"
Put #FileFile, , TestString
Close FileFile
'================
'开始检查是否连线
'================
'执行我们建立的 Bat 档 --& Ping
TestString = " /c " & "c:\Test.bat"
Shell (TestString), vbHide
'如果 Ping 成功, 写入文字档 Test.txt 的字串长度至少会大于 200
'不过由于 Ping 的动作会延迟几秒钟，所以，我们让程式等待 5 秒钟
If FileLen("c:\Test.txt") & 201 Then
Call MsgBox("您的电脑目前已经连线到 Internet！", vbInformation)
Call MsgBox("您的电脑目前并未连线到 Internet！.", vbInformation)
'删除我们在程式中产生的二个档案
Kill "c:\Test.bat"
Kill "c:\Test.txt"
online(龙卷风V2.0--再战江湖)
) 信誉：149
<font color="#03-11-13 17:01:49Z
得分:<font color="#
怎样把.txt文件通过VB编程的方式定时导入到access.或SQL数据库中
可以使用odbc数据源，建立text文件的连接
然后一条一条的倒入导sqlserver中
zjcxc(邹建)
) 信誉：100
<font color="#03-11-13 17:09:58Z
得分:<font color="#
要看你的文档结构.
zjcxc(邹建)
) 信誉：100
<font color="#03-11-13 17:10:46Z
得分:<font color="#
如果文档结构规范,可以用ADO连接SQL,然后执行类似下面的语句进行导入:
insert into 表
select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'THDR=NO;DATABASE=C:\'
yoki(小马哥--鬓微霜，又何妨)
) 信誉：100
<font color="#03-11-13 17:22:32Z
得分:<font color="#
文件传输总分部数据
写procedure把新增修改记录导出文本，这样需要在表中添加判断标志，
如：1 未传传输，2 已上传
把文本传到其他服务器，这个可以用前台软件写个传输文件程序(或者直接用
master..xp_cmdshell)，取指定服务器目录内的文件，再用过程导入数据库，导入时进行数据过滤
程序可以这样写过程 比如表名叫table 状态字段为state (1 未传传输，2 已上传)
CREATE PROCEDURE sp_convert --数据转换过程
with recompile ,encryption
@bcp varchar(600),
@path char(100),
@file char(200),
@user char(10),
@mdate char(8)
@mdept char(5),
@passwd char(8)
@@TRANCOUNT &0
COMMIT TRAN
select @user=suser_name()
select @passwd=password from login where code=ltrim(rtrim(@username)) --用户登录表
select @path=ltrim(rtrim(up_path))+'download\'
from parm --运行参数表 包括文件传输路径
select @mdate=convert(char(8),cast(open_close as datetime),112)
select @file='file'+@mdate 得到带日期的txt文件
--convert data to txt
select @bcp='bcp "select * from dbname..table where state=1 "
queryout '+ltrim(rtrim(@path))+ltrim(rtrim(@file))+'.txt'+' -c -t, -U '+@user+'-P '+@passwd --选择未传输数据导出
exec master..xp_cmdshell @bcp
begin tran
update dbname..table
set state=1 where ct_state=1 --更新状态
commit tran
CREATE PROCEDURE sp_copyfile --文件copy过程
with recompile,encryption
@path char(100),
@copy char(300),
@user char(10),
@passwd char(8),
@bcpname char(300)
@@TRANCOUNT &0
COMMIT TRAN
select @usere=suser_name()
select @passwd=password from login where code=ltrim(rtrim(@username))
select @path=ltrim(rtrim(up_path))+'upload\'
--copy files to servers
select @copy='copy '+ltrim(rtrim(@path))+'file*.txt '+ltrim(rtrim(@path))+substring(convert(char(8),getdate(),112),7,2)
exec master..xp_cmdshell @copy
select @copy='del '+ltrim(rtrim(@pathname))+'file*.txt' --copy完成删除文件
exec master..xp_cmdshell @copyname
@@TRANCOUNT &0
COMMIT TRAN
总部每天做日结处理,也用同样的方法导出数据成文本,在分部与总部联接传输数据据同时把
总部数据传入分部
yoki(小马哥--鬓微霜，又何妨)
) 信誉：100
<font color="#03-11-13 17:35:23Z
得分:<font color="#
http://expert.csdn.net/Expert/topic/.xml?temp=.6784021
) 信誉：97
<font color="#03-11-19 09:08:29Z
得分:<font color="#
我的.txt内容是下面的一种形式：
stat widt thik wrw_1 twid1 bwid1 wrw_2 twid2 bwid2 wrw_3 twid3 bwid3 wrw_4 twid4 bwid4 wrw_5 twid5 bwid5 wrw_6 twid6 bwid6
02.11.03 15:47:57
02.11.03 15:53:02
02.11.03 15:56:19
02.11.03 16:00:38
02.11.03 16:07:38
02.11.03 16:12:41
02.11.03 16:16:08
02.11.03 16:22:19
02.11.03 16:26:04
用 yoki(小马哥)的方法，好像不行啊，那个SCHEMA.INI文件要怎样定义，。TXT文件字段间隔都为空格，不知要怎样做，请教各位
ftp0697(Bismarck(a)人不风流枉少年)
) 信誉：101
<font color="#03-11-19 09:29:27Z
得分:<font color="#
不明白你们说的
) 信誉：97
<font color="#03-11-19 10:03:09Z
得分:<font color="#
不好意思，我用yoki(小马哥)的方法用在我的.txt文件格式里，能分解出txt的格式，但就是不能生成数据库。不知为什么，请yoki(小马哥)的方法能否按我的.txt格式帮我改下代码，SCHEMA.INI内容是什么？万分感激，或者那位高手能帮帮我，谢谢了，下面是我的文本文件的格式：
stat widt thik wrw_1 twid1
02.11.03 15:47:57
02.11.03 15:53:02
) 信誉：97
<font color="#03-11-19 12:14:09Z
得分:<font color="#
大家能教一下吗?
yoki(小马哥--鬓微霜，又何妨)
) 信誉：100
<font color="#03-11-19 12:50:53Z
得分:<font color="#
Schema.ini格式如下（参考：MSDN主题 Schema.ini File）：
Schema.ini用于提供文本数据中的记录规格信息。每个Schema.ini的条目用于指明表的5个特征之一：
文本文件名
文件名有方括号括起来，例如如果要对Sample.txt使用Schema，那么它的对应的Schema条目应该是
[Sample.txt]
指令如下：
format=value
value可以取下面的值之一：
TabDelimited 用Tab分隔
CSVDelimited 用逗号分隔
FixedLength 固定长度
Delimited(C) 指定字符，其中C可以为除了双引号(")外的任何字符，也可以为空
字段名、字段宽度和类型
格式为：Coln=字段名 数据类型 [width 宽度]
字段名可以是任意字符，如果字段名包含空格，请使用双引号括起来。
数据类型可以为：
Short(Integer)
Double(Float)
DateTime(Date Dateformat)
Text(Char)
Memo(LongChar)
其中Dateformat是日期的格式字符串例如：Date YYYY-MM-DD
格式：CharacterSet=ANSI | OEM
格式只有两种：ANSI和OEM
特殊数据类型转换
特殊数据类型转换一般使用的比较少，主要是自定义日期、货币等等的数据格式，一般不用理会。在此也不作详细叙述。请自己查看MSDN帮助：Schema.ini File
yoki(小马哥--鬓微霜，又何妨)
) 信誉：100
<font color="#03-11-19 12:54:31Z
得分:<font color="#
'你的比那个简单多了，你可以这样验证：将你的文本文件命名为test.txt放在c:\,转换的时候调用startchange即可
Private Sub StartChange()
Call WriteTempSchemia("test.txt", "|") '这里要将"|"换成你的列分割符号，你的我看不出来规律，空格吗？
Call TxtToMdb("c:", strTTable & ".txt", "c:\a.mdb", "test")
Public Sub WriteTempSchemia(strFileName As String, strSeparator As String)
'写入格式符号文件
Open "c:\Schema.ini" For Output As #1
Print #1, "[" & strFileName & "]"
Print #1, "Format=Delimited(" & strSeparator & ")"
Private Sub TxtToMdb(sTxtPath As String, sTxtFileName As String, sAccessFullFileName As String, sAccessTable As String)
'功能：将文本文件导入到Access中的表
'调用：Call TxtToMdb("c:\","test.txt","c:\a.mdb","NewTempTable")
'结果：将c:\test.txt导入到c:\a.mdb中的NewTempTable表中
Dim db As DAO.Database
On Error Resume Next
Set db = DBEngine.CreateDatabase(sAccessFullFileName, dbLangGeneral)
If Err.Number = 3204 Then
Set db = Workspaces(0).OpenDatabase(sAccessFullFileName)
db.Execute "SELECT * into " & sAccessTable & " FROM [THDR=NO;DATABASE=" & sTxtPath & "]." & sTxtFileName
Set db = Nothing
penglong712(老贡)
) 信誉：91
<font color="#03-11-19 13:06:54Z
得分:<font color="#
请问，如何用winsock控件，把一个文件比如*.bmp，*.mp3，*。mdb等非文本格式的文件.传输到另外的一台计算机中（服务器）。有源代码的话最好了：）。不胜感激！
penglong712
) 信誉：97
<font color="#03-11-19 16:21:28Z
得分:<font color="#
yoki(小马哥) (你好,你能告诉我你的QQ号吗)
程序运行后的问题:只能生成一个a.mdb 大小有94K,有时又不同,但数据库里面没有"表",不知为什么?
1.test.txt文件内容的格式请注意,列标识是否以"空格"为标识的?我觉得是用空格来标识的,如果是用空格来标示,那要怎样写呢.
2.不知Schema.ini文件内容是否正确.
3.vbok2文件夹里的程序,要怎样改?
Call WriteTempSchemia("test.txt", " ") '空格吗？里面的参数对吗?
) 信誉：97
<font color="#03-11-19 16:35:50Z
得分:<font color="#
.TXT文件用空格来标识的,如果是用空格来标示,那要怎样写呢.
下面有些问题请教yoki(小马哥)
Schema.ini文件内容
[test.txt]
Format=Delimited( )
Private Sub StartChange()
Call WriteTempSchemia("test.txt", " ") '空格吗？
Call TxtToMdb("c:", strTTable & ".txt", "c:\a.mdb", "test") '.txt文件放在c:上
Public Sub WriteTempSchemia(strFileName As String, strSeparator As String)
'写入格式符号文件
Open "c:\Schema.ini" For Output As #1
Print #1, "[" & strFileName & "]"
Print #1, "Format=Delimited(" & strSeparator & ")"
Private Sub TxtToMdb(sTxtPath As String, sTxtFileName As String, sAccessFullFileName As String, sAccessTable As String)
Dim db As DAO.Database
On Error Resume Next
Set db = DBEngine.CreateDatabase(sAccessFullFileName, dbLangGeneral)
If Err.Number = 3204 Then
Set db = Workspaces(0).OpenDatabase(sAccessFullFileName)
db.Execute "SELECT * into " & sAccessTable & " FROM [THDR=NO;DATABASE=" & sTxtPath & "]." & sTxtFileName
Set db = Nothing
Private Sub Command1_Click()
Call StartChange
程序运行后的问题:只能生成一个a.mdb 大小有94K,有时又不同,但数据库里面没有"表",不知为什么?
yoki(小马哥--鬓微霜，又何妨)
) 信誉：100
<font color="#03-11-19 17:31:47Z
得分:<font color="#
注意事项：
1：必须将格式文件Schema.ini必须和你要转的文本文件放在同一目录
2：确定你的分割符号，（你这里如果是空格的话，那么必须列一列之间的长度一致）
3：改正笔误
Call TxtToMdb("c:", strTTable & ".txt", "c:\a.mdb", "test")改为
Call TxtToMdb("c:", "test.txt", "c:\a.mdb", "目的表")
yoki(小马哥--鬓微霜，又何妨)
) 信誉：100
<font color="#03-11-19 17:37:16Z
得分:<font color="#
你给的文本文件空格并不一样，没什么规律，所以在转之前必须先将其整理得到一个有规律的文本文件，比如将空格换成固定的间隔，最好是用别的比如 | 或 ，或tab键分割
) 信誉：97
<font color="#03-11-20 09:02:00Z
得分:<font color="#
但怎样把文本中的空格转为|符号呢,你能不能帮帮我呢.谢了.
) 信誉：97
<font color="#03-11-20 09:04:24Z
得分:<font color="#
用编程的方法怎样把文本文件中的空格转为|符号呢,多谢了.
) 信誉：97
<font color="#03-11-20 12:15:31Z
得分:<font color="#
那一位能帮我呢?
VCSQLVB(九龙.君威)
) 信誉：100
<font color="#03-11-20 14:07:59Z
得分:<font color="#
代码较长，思想如下：
1. 打开.txt文件
2. 按行读取
3. 分析字符串，将空格隔开的字符串一个一个的存入变量中
4. 然后将这些字符串插入表中的响应字段
5. 重复上面的操作，直到文件读完
) 信誉：97
<font color="#03-11-20 16:31:01Z
得分:<font color="#
但问题是怎样把列间隔符"空格"转为"|"呢,
) 信誉：97
<font color="#03-11-20 16:32:40Z
得分:<font color="#
yoki(小马哥)用 Call TxtToMdb("c:", "test.txt", "c:\a.mdb", "目的表")
还是不行啊,只有数据库但里面没有表"
) 信誉：97
<font color="#03-11-21 09:07:49Z
得分:<font color="#
等待中.................谢了.
yoki(小马哥--鬓微霜，又何妨)
) 信誉：100
<font color="#03-11-21 15:04:01Z
得分:<font color="#
'测试如下：
02.11.03 15:47:57
02.11.03 15:53:02
02.11.03 15:56:19
02.11.03 16:00:38
02.11.03 16:07:38
02.11.03 16:12:41
02.11.03 16:16:08
02.11.03 16:22:19
02.11.03 16:26:04
'将以上你给的例子数据拷贝放到一个文本文件c:\text.txt中
'经过分析，你的文本文件的第一行是以制表符分割，而其他的则是以不定数的空格分割，不是特别有规律，所以在转之前要分别处理,过程FormatTxt就是起这个作用
'程序将生成一个格式化后以"|"为分割符的文本文件c:\zz.txt和一个数据库c:\a.mdb和一个格式符号文件c:\schema.ini
Private Sub StartChange()
Call WriteTempSchemia("zz.txt", "|") '空格吗？
Call FormatTxt("c:\test.txt", "c:\zz.txt")
Call TxtToMdb("c:\", "zz.txt", "c:\a.mdb", "NewTempTable")
Public Sub WriteTempSchemia(strFileName As String, strSeparator As String)
'写入格式符号文件
Open "c:\Schema.ini" For Output As #1
Print #1, "[" & strFileName & "]"
Print #1, "Format=Delimited(" & strSeparator & ")"
Private Sub TxtToMdb(sTxtPath As String, sTxtFileName As String, sAccessFullFileName As String, sAccessTable As String)
'功能：将文本文件导入到Access中的表
'调用：Call TxtToMdb("c:\","zz.txt","c:\a.mdb","NewTempTable")
'结果：将c:\zz.txt导入到c:\a.mdb中的NewTempTable表中
Dim db As DAO.Database
On Error Resume Next
Set db = DBEngine.CreateDatabase(sAccessFullFileName, dbLangGeneral)
If Err.Number = 3204 Then
Set db = Workspaces(0).OpenDatabase(sAccessFullFileName)
On Error GoTo err_exit
db.Execute "SELECT * into " & sAccessTable & " FROM [THDR=NO;DATABASE=" & sTxtPath & "]." & sTxtFileName
Set db = Nothing
Set db = Nothing
MsgBox Err.Description
Private Sub FormatTxt(strFromName As String, strToName As String)
'开始格式化文本文件
Dim strTmp As String
Dim strArray() As String
Dim a() As String
Dim i As Integer
Dim flag As Boolean
Dim j As Integer
Dim k As Integer
Dim p As String
Dim q As String
Open strFromName For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
strArray = Split(strTmp, vbCrLf)
For i = 0 To UBound(strArray)
strTmp = ""
If k = 1 Then
Open strToName For Output As #1
flag = True
a() = Split(strArray(i), vbTab)
For j = 0 To UBound(a)
strTmp = strTmp & "|" & a(j)
Print #1, Right(strTmp, Len(strTmp) - 1)
strTmp = strArray(i)
For j = 0 To Len(strTmp)
If Trim(Left(strTmp, 1) & "|") && "|" Then
p = p & Left(strTmp, 1)
If p && "" Then
q = q & "|" & p
If Len(strTmp) &= 1 Then
strTmp = strTmp
strTmp = Right(strTmp, Len(strTmp) - 1)
If Len(q) &= 1 Then Print #1, Right(q, Len(q) - 1)
If flag Then Close #1
Private Sub Command1_Click()
Call StartChange
passer_wave(路人)
) 信誉：103
<font color="#03-11-21 15:48:14Z
得分:<font color="#
) 信誉：97
<font color="#03-11-21 16:10:13Z
得分:<font color="#
好的,谢谢,yoki(小马哥),能知你的QQ或e_mail吗?
) 信誉：97
<font color="#03-11-25 15:53:41Z
得分:<font color="#
问题已解决
谢谢 yoki(小马哥),
) 信誉：97
<font color="#03-11-25 15:56:52Z
得分:<font color="#
不好意思,分比较小,我的积分还没有那么多,下次一定给多分,请各位网友原谅,谢谢
，得分记录：}