我有一个word文档用来存储题库数据,现在我想把它转换成SQL Sever表来存储,
应该如何来做呢?那位高手最好能提供一下实现的全部代码,不胜感激!!!
解决方案 »
- 我想将一个panel的内容拖拽到dbgrid的某个字段,怎么做》
- Delphi7下,TRzRadioGroup控件,大家都在用哪个版本。来说说?并给个下载地址?
- delphi的DBGrid如何选择某行中的某个字段
- 有关delphi调用c的DLL,函数指针的问题
- quickReport报表打印的打印机设置问题
- 关注 再关注-----------在线等待
- 读取word文档
- 一个想法现在做出来了,可以方便各位寻找编程资料,大家去看看吗?
- 不通过ODBC,用ADOTABLE如何读取一个有密码的ACCESS库?急!急!急!
- 在DELPHI中如何判断知道键盘按了哪个键(如:DELETE键)。谢谢
- 在有Frames的网页中,如何确定鼠标在哪个Frames中?
- 在编写代码的时候应该怎样写注释呢?
begin
OleContainerFY1.CreateObjectFromFile('d:\1.doc',false);
OleContainerFY1.DoVerb(1);
end;procedure TForm1.Button2Click(Sender: TObject);
var
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
OleContainerFY1.SaveToStream(MS);
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text := 'SELECT * FROM TABLE1';
Open;
Append;
TBlobField(FieldByName('BL')).LoadFromStream(MS);
Post;
Application.MessageBox('succussful','fgyr',mb_ok);
end;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text := 'SELECT BL FROM TABLE1';
Open;
TBlobField(FieldByName('BL')).SaveToFile('d:\abc.doc');
end;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
OleContainerFY1.LoadFromFile('d:\abc.doc');
OleContainerFY1.DoVerb(1);
end;procedure TForm1.Button5Click(Sender: TObject);
begin
OleContainerFY1.SaveToFile('d:\abc.doc');
OleContainerFY1.DestroyObject;
end;
set rs=new ADODB.RecordSet
cn.open "data source=localhost;database=;uid=;pwd="
cn.Type=adTypeBinary
rs.open "select * from photo",cn,1,3
if rs.eof then
rs.Addnew
rs("id").value=1
rs("photo").value=cn.read
rs.update
end if