¼±ÎÊ¡£SQLÓï¾ä~
Ч¹ûÊÇÕâÑùµÄ¡£2¸ö´°ÌåÖÐÓÐ2¸öDBgrilÁ¬½ÓÁË2¸ö±í¡£ÎÒÏë´ÓB´°ÌåµÄB±íÖÐÑ¡ÖÐÒ»Ìõ¼Ç¼ÖеÄijЩ×Ö¶ÎÌí¼Óµ½A´°ÌåµÄA±íÖС£ÕâЩ×ֶεÄÊý¾ÝÀàÐÍÊÇÒ»ÑùµÄ¡£²»ÖªµÀSQLµÄÓï¾äÓ¦¸ÃÔõÃ´Ð´ÄØ¡£
Delphi(Pascal) code:
query3.sql.text:='insert a (f1,f3,f8,...) values ('+query1.fieldbyname('f1').asstring+','+query1.fieldbyname('f3').asstring+','+query1.fieldbyname('f8').asstring+','...+')';
ÏëÏ뻹ÊÇÉÏÕÅͼ
[IMG]http://image215.poco.cn/mypoco/myphoto/20091220/16/4529300320091220163135065.jpg[/IMG]
[IMG]http://image215.poco.cn/mypoco/myphoto/20091220/16/4529300320091220163102033.jpg[/IMG]
Ïë°ÑµÚÒ»ÕűíµÄÄÚÈÝŪµ½µÚ¶þÕűíÉÏ¡£¡£ÎÒÓõÄÊÇADOtable..
ͼ1ÄǸö´°ÌåµÄ°ëÀ×Ó´úÂë
unit frmJSD;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, StdCtrls;
type
TJSDfrm = class(TForm)
DBGrid1: TDBGrid;
btadd: TButton;
btexit: TButton;
DataSourcemenu: TDataSource;
procedure FormActivate(Sender: TObject);
procedure btexitClick(Sender: TObject);
procedure btaddClick(Sender: TObject);
private
{ Private de
Ïà¹ØÎÊ´ð£º
select convert(varchar(50),cast(convert(numeric(18,2),1275674000000/100000000)as real))+'ÒÚ'
select cast(convert(numeric(18,2),1275674000000/100000000)as real)
ΪʲôÉÏÒ»¸öÓÃvarcharת»»ºó¾ÍÖ»±£ÁôÁËÒ ......
clientserial devseral chunnelnum devdata5
CZ0001 308001 5000 11.1
CZ0001 308001 5001 11.2
CZ0001 308001 5002 11.3
CZ0001 3080 ......
CREATE PROCEDURE [selectvipcompany]
@username varchar(50),
@companyname varchar(50),
@endtime varchar(1)
AS
declare @sql varchar(1000)
set @sql='' ......
<table style="width: 1000px"><tr>
<td style="height: 38px; width: 35px;">
ÐÕÃû</td>
......