收录日期:2019/12/07 12:08:52 时间:2016/06/07 20:55:10 标签:数据库及相关技术
有人可以给个较完整的例子给我吗?

例如,从1.txt文件中,提取所有内容放到1.mdb中的table1的content字段中,谢谢!
原理很简单,依赖于你文本的格式......自己写些代码来解析txt的内容然后用SQL语句逐条放到mdb中去...

或许有更简单的办法^_^
如果你没有强烈要求,
建议直接使用access自带导入功能。
不必使用代码实现。
给你个delphi BBS上的参考
http://www.delphibbs.com/keylife/iblog_show.asp?xid=19064
楼主要的是将文件内容存取到Access数据库的某字段中吧?

在Access数据库中建一个字段,备注型,字段名比如是fContent,表名是tblTest

// 将文本文件内容存到数据库中:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ADOQuery1->Close();
    ADOQuery1->SQL->Text = "select * from tblTest";
    ADOQuery1->Open();
    ADOQuery1->Append();
    TBlobField *pField = (TBlobField *)ADOQuery1->FieldByName("fContent");
    pField->LoadFromFile("C:\\ccrun\\123.txt");
    ADOQuery1->Post();
}
//---------------------------------------------------------------------------
// 将数据库内容读取并写到一个文本文件中
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    ADOQuery1->Close();
    ADOQuery1->SQL->Text = "select * from tblTest";
    ADOQuery1->Open();
    TBlobField *pField = (TBlobField *)ADOQuery1->FieldByName("fContent");
    pField->SaveToFile("C:\\ccrun\\123321.txt");
}
学习
谢谢,以ccrun(老妖)(www.ccrun.com) 为例,如果我想对文本文件的内容进行处理,再放入数据库, 即在这一步  pField->LoadFromFile("C:\\ccrun\\123.txt")  之前再进行些处理,应该如何把123.txt的内容赋值给某一变量呢,用string变量的话,有时会出错,显示“Parameter object is improperly defined. Inconsistent or incomplete information was provided”。
我希望把123.txt文件中处于“标识1”和“标识2”之间的文本提取出来放到数据库中。
请多多指教。
ADOQuery1->Close();
ADOQuery1->SQL->Text = "select * from tblTest";
ADOQuery1->Open();
// 添加一条记录
ADOQuery1->Append();
// 需要处理的字段
TBlobField *pField = (TBlobField *)ADOQuery1->FieldByName("fContent");
// 从文件中载入文本内容
pField->LoadFromFile("C:\\ccrun\\123.txt");
// 赋给一个String
String strTemp = pField->AsString;
// 从strStrat这个字符串开始,到strEnd这个字符串结束
String strStart("<"), strEnd("<br>");
// 截取需要的这一段字符串
strTemp = strTemp.SubString(strTemp.Pos(strStart) + strStart.Length(),
        strTemp.Pos(strEnd) - strStart.Length() - strTemp.Pos(strStart));
// 注意,上面两行的意思是,截取从"<"这个字符开始,到"<br>"这个字符串结束之间的字符串
// 你可以自己定义这个起始和结束字符串。我这里只是演示。

// 再赋给字段
pField->AsString = strTemp;
// 提交
ADOQuery1->Post();

***** ADSL能不能这样设置?***** 如何将EDIT1的text的值赋给一个数据库的MONEY型的数据?在线等待!急! 500分求解 哪里可以得到DirectX SDK? 怎么得到线程的切换信息?急 请问链表的问题 我来散分 树形控件为何如此? 散 分 关于access数据库解密 这么少 如何用VB连ORACLE 你来要分吧 高分500,求解 分太少了 关于缩略图的生成? 分太少了 2004届毕业生工资交流 delphi有没有类似于C的memset函数的东东,期待 sygate代理 硬盘检测不到! 怎么区分服务器脚本和客户端脚本?(我是**鸟) ReportBuilder 所做的报表如何使它预览的时候最大化?(急) 有没有人使用mandrake linux的人呀?进来领分 并口转串口问题. 这个用二维数组怎么做!!!!?? 怎样在菜单上加上图片? Flash 中的 OOP 我自己的想法,指教 怎样使用快捷键? 关于VirtualQueryEx函数。