delphi股票数据

chenologin2分享时间：2024-03-24 06:17:19

用DELPHI实现数据备份和恢复

A. 还原完整数据库说明 MyNwind 数据库仅供举例说明。

下例显示还原完整数据库备份。

RESTORE DATABASE MyNwind FROM MyNwind_1 B. 还原完整数据库备份和差异备份下例还原完整数据库备份后还原差异备份。

另外，下例还说明如何还原媒体上的另一个备份集。

差异备份追加到包含完整数据库备份的备份设备上。

RESTORE DATABASE MyNwind FROM MyNwind_1 WITH NORECOVERY RESTORE DATABASE MyNwind FROM MyNwind_1 WITH FILE = 2 C. 使用 RESTART 语法还原数据库下例使用 RESTART 选项重新启动因服务器电源故障而中断的 RESTORE 操作。

-- This database RESTORE halted prematurely due to power failure. RESTORE DATABASE MyNwind FROM MyNwind_1 -- Here is the RESTORE RESTART operation. RESTORE DATABASE MyNwind FROM MyNwind_1 WITH RESTART D. 还原数据库并移动文件下例还原完整数据库和事务日志，并将已还原的数据库移动到 C:\\Program Files\\Microsoft SQL Server\\MSSQL\\Data 目录下。

RESTORE DATABASE MyNwind FROM MyNwind_1 WITH NORECOVERY, MOVE \'MyNwind\' TO \'c:\\Program Files\\Microsoft SQL Server\\MSSQL\\Data\\NewNwind.mdf\', MOVE \'MyNwindLog1\' TO \'c:\\Program Files\\Microsoft SQL Server\\MSSQL\\Data\\NewNwind.ldf\' RESTORE LOG MyNwind FROM MyNwindLog1 WITH RECOVERY E. 使用 BACKUP 和 RESTORE 创建数据库的复本下例显示使用 BACKUP 和 RESTORE 语句创建 Northwind 数据库的复本。

MOVE 语句使数据和日志文件还原到指定的位置。

RESTORE FILELISTONLY 语句用于确定待还原数据库内的文件数及名称。

该数据库的新复本称为 TestDB。

有关更多信息，请参见 RESTORE FILELISTONLY。

BACKUP DATABASE Northwind TO DISK = \'c:\\Northwind.bak\' RESTORE FILELISTONLY FROM DISK = \'c:\\Northwind.bak\' RESTORE DATABASE TestDB FROM DISK = \'c:\\Northwind.bak\' WITH MOVE \'Northwind\' TO \'c:\\test\\testdb.mdf\', MOVE \'Northwind_log\' TO \'c:\\test\\testdb.ldf\' GO F. 使用 STOPAT 语法还原到即时点和使用多个设备进行还原下例将数据库还原到其在 1998 年 4 月 15 日中午 12 点时的状态，并显示涉及多个日志和多个备份设备的还原操作。

RESTORE DATABASE MyNwind FROM MyNwind_1, MyNwind_2 WITH NORECOVERY RESTORE LOG MyNwind FROM MyNwindLog1 WITH NORECOVERY RESTORE LOG MyNwind FROM MyNwindLog2 WITH RECOVERY, STOPAT = \'Apr 15, 1998 12:00 AM\' G. 使用 TAPE 语法还原下例显示从 TAPE 备份设备还原完整数据库备份。

RESTORE DATABASE MyNwind FROM TAPE = \'\\\\.\\tape0\' H. 使用 FILE 和 FILEGROUP 语法还原下例还原一个包含两个文件、一个文件组和一个事务日志的数据库。

RESTORE DATABASE MyNwind FILE = \'MyNwind_data_1\', FILE = \'MyNwind_data_2\', FILEGROUP = \'new_customers\' FROM MyNwind_1 WITH NORECOVERY -- Restore the log backup. RESTORE LOG MyNwind FROM MyNwindLog1 I. 将事务日志还原到标记处下例显示将事务日志还原到名为＂RoyaltyUpdate＂的标记处。

BEGIN TRANSACTION RoyaltyUpdate WITH MARK \'Update royalty values\' GO USE pubs GO UPDATE roysched SET royalty = royalty * 1.10 WHERE title_id LIKE \'PC%\' GO COMMIT TRANSACTION RoyaltyUpdate GO --Time passes. Regular database --and log backups are taken. --An error occurs. USE master GO RESTORE DATABASE pubs FROM Pubs1 WITH FILE = 3, NORECOVERY GO RESTORE LOG pubs FROM Pubs1 WITH FILE = 4, STOPATMARK = \'RoyaltyUpdate\'

请问大家：delphi怎么和其他软件之间实现数据传递？本人想用d

刚有点错误，不好意思现在修正了unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Edit2: TEdit;Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form1: TForm1; implementation {$R *.dfm} function LastPos(const subStr, s:string):integer; var iPos:Integer; strTmp:Widestring; beginResult:=0;strTmp:=s;iPos:=Pos(SubStr,strTmp);while iPos0 dobegin//删除已经查找过的字符Delete(strTmp,1,iPos+Length(SubStr)-1);Result:=Result+iPos;iPos:=Pos(SubStr,strTmp);if iPos=0 then Break;Result:=Result+Length(SubStr)-1;end;end;procedure TForm1.Button1Click(Sender: TObject);vartmp:string;begintmp:= copy(Edit2.Text,LastPos(\'/\',Edit2.Text)+1,Length(Edit2.Text));Edit1.Text:=copy(tmp,1,Pos(\' ##\',tmp)-1);end;end.调试过的可以用加了一个函数建2个Edit 1个ButtonEdit2的内容为http://www.baidu.com/aaaabe/15aaaaaaa5.doc ## !213^&*1 这些

怎样把Delphi数据库里的数据输出到Excel里？怎样把Del

delphi可以直接操作excel文件，就象数据库操作一样。

方法如下：加一个adoconnection,OLE DB的提供者要选择Microsoft Jet 4.0 OLE DB Provider，连接的数据库名称就是你要打开的Excel文件，注意设置扩展属性Extended Properties为“Excel 8.0”。

其次，加一个adotable，设置其connetion 属性为刚才的adoconnection，注意务必设置tabledirect为true。

然后设置tablename ，选择相应的sheet？$（即excel的表）。

到现在，操作excel表就想数据库一样了。

delphi 读取数据库中的数据并计算

第一种方法：改改SQL语句试试：SELECT sum（语文） as 语文总分，avg（语文） as 语文平均分 from 成绩然后xxxx := ADOQuery.FieldValues[\'语文总分\']； //取语文总分xxxx := ADOQuery.FieldValues[\'语文平均分\']； //取语文平均分第二种方法：【逐行读取的语句】ADOQuery.Active := True;zf := 0;icount := 0;while not ADOQuery.Eof do beginzf := zf + ADOQuery.FieldValues[\'语文\']； //累加语文总分Inc(icount);ADOQuery.Next;end;pjf := zf / icount； // 平均分

delphi数据连接问题我用access建了2个数据表,一个是商

设置dbgrid1的datasource指向adoquery1，商品类别表的fields里建立一个固定列ADOTable2DSDesigner1（指向商品类别编码的列），在DBLookupComboBox的onclick事件写代码如下： adoquery1.SQL.Clear; adoquery1.SQL.Add(\'select * from 商品信息表 where 商品类别=\'+QuotedStr(ADOTable2DSDesigner1.Value)）； //上述代码就是根据点击的商品类别对应的类别代码在商品信息表列出有关的行 adoquery1.Open; dbgrid1.Refresh;

delphiSOS,如何在delphi中后台操作数据库？给不用d？

一般来讲，要将用户对数据库的要求（如更新，插入等）写成sql语句，在用quey控件，如果需要还可以加上事务处理，提交给数据库管理系统（如ms sql seve）.如果不用delphi的控件，那就需要你直接给de或ado写入相应的对数据库的操作参数（如果这样，你必须一级一级的分析与数据库相关的类和一些dll文件，这个至今还没有听说除了Boland自己外的尝试），我个人认为可以无条件的使用它的控件；毕竟它是Boland目前为止封装最好的接口。

关于delphi数据计算

Delphi中的浮点类型有以下几种（我测试的是Delphi XE3版）：Real48、Single、Double、Real、Extended、Comp、Currency。

你定义的Float类型，可能是自己对以上的浮点类型加了一层外套。

Pascal对类型的检查比较严格，你仔细查一下帮助文档，选择适合自己的数据类型。

建议你把sum改为Double或者Extended类型，试一下。