如何从文本中导入数据到数据库里？

Question

自己通过编程把文本文件中的字符读出,然后用SQL语句加入到数据库中.

Answer 1

实例：
procedure TForm1.Button3Click(Sender: TObject);
var fstrm: TFileStream;
  p: Pointer;
begin
  fstrm := TFileStream.Create('h:\AA.txt',fmOpenRead);
  GetMem(p,fstrm.Size);
  fstrm.ReadBuffer(p^,fstrm.Size);
  Table1.Edit;
  Table1.FieldByName('Luo').SetData(p);
  Table1.Post;
  FreeMem(p);
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 2

还有一点，最后应该：
FreeAndNil(fstrm);
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 3

Oracle中可以使用存储过程的。查一下PL/SQL资料，一定可以找到你要的答案。

Answer 4

import java.awt.*;
import java.awt.print.*;
import java.util.*;
import java.awt.geom.*;
import javax.swing.*;
public class drawOut implements Printable
{
    Vector objects=new Vector();
    String str;
    public drawOut(Vector v,String strAction)
    {   
        objects=v;
        str=strAction;
    }
public int print(Graphics g,PageFormat pf,int page)throws PrinterException
{
    Graphics2D g2=(Graphics2D)g;
    g2.setPaint(Color.black);
    g2.translate(pf.getImageableX(),pf.getImageableY());
    if (str.equals("Preview"))drawCropMarks(g2,pf);
    g2.clip(new Rectangle2D.Double(0,0,pf.getImageableWidth(),pf.getImageableHeight()));
    g2.translate(0,-page*pf.getImageableHeight());
    int pages=getPageCount(g2,pf);
    return (page>=pages)?Printable.NO_SUCH_PAGE:Printable.PAGE_EXISTS;
}
public int getPageCount(Graphics2D g2,PageFormat pf)
{
if (objects.size()==0)return 0;
printerObject p;
Point pt=new Point(0,0);
for(int i=0;i<objects.size();i++)
{
    p=(printerObject)objects.elementAt(i);
    p.draw(g2,pt);
}
int height=pt.y;
return (int)Math.ceil(height/pf.getImageableHeight());
}
public void drawCropMarks(Graphics2D g2,PageFormat pf)
{
    final double c=36;
    double w=pf.getImageableWidth(),
    h=pf.getImageableHeight();
    g2.draw(new Line2D.Double (0,0,0,c));
    g2.draw(new Line2D.Double (0,0,c,0));
    g2.draw(new Line2D.Double (w,0,w,c));
    g2.draw(new Line2D.Double (w,0,w-c,0));
    g2.draw(new Line2D.Double (0,h,0,h-c));
    g2.draw(new Line2D.Double (0,h,c,h));        
    g2.draw(new Line2D.Double (w,h,w,h-c));
    g2.draw(new Line2D.Double (w,h,w-c,h));
}
}//
import javax.swing.*;
import java.awt.*;
import java.awt.event.*;public class PrintTest extends JFrame implements ActionListener
{
    JButton bttPrint=new JButton("Print"),
            bttExit=new JButton("Exit");
    JDesktopPane desk=new JDesktopPane();
    public PrintTest()
    {
        setSize(720,540);  
desk.setLayout(null);
Container contentPane=getContentPane();
contentPane.add(desk);
        bttPrint.setBounds(300,200,100,25);        
        bttExit.setBounds(300,250,100,25);
        desk.add(bttPrint);
        desk.add(bttExit);
        bttPrint.addActionListener(this); 
        bttExit.addActionListener(this);
        setResizable(false);
    }
    public void actionPerformed(ActionEvent e)
    {
        Object obj=e.getSource();
        if (obj==bttPrint){
            PrintExample1 p=new PrintExample1();        
            desk.add(p);
            p.show();       
        }else System.exit(0);
    }    
    public static void main(String []argv)
    {
        (new PrintTest()).show();
    }
}

Answer 5

根据txt文件生成sql的代码。
procedure GenerateSQLFile;
var
    fText:TextFile;
    fSQL:TextFile;
    strLine:String;
    iCount:Integer;
begin
    AssignFile(fSQL,'E:\Test\Import.sql');
    Rewrite(fSQL);
    AssignFile(fText,'E:\Test\Test.txt');
    Reset(fText);
    while not Eof(fText) do
        begin
        readln(fText,strLine);
        strLine:=Trim(strLine);
        for iCount:=1 to Length(strLine) do
            begin
            if (' '=strLine[iCount])or(#9=strLine[iCount]) then
                begin
                break;
                end;
            end;
        writeln(fSQL,'insert into test values("'+Copy(strLine,1,iCount-1)+'","'+Trim(Copy(strLine,iCount,Length(strLine)))+'");');
        end;
    CloseFile(fText);
    CloseFile(fSQL);
end;