Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiÁ¬½ÓSQL Server 2000

Ò»¡¢ÔÚDelphi7ÖÐÁ¬½ÓMS SQL Server 2000µÄ·½·¨¡£
¸Õ¿ªÊ¼Ê±½çÃæÈçÏ£ºÌí¼Ó4¸ö¿Ø¼þ¡£
ÉèÖÿؼþÊôÐÔ¹ý³Ì£º
1¡¢ADOConnection1ÉèÖÃ
1£©Ë«»÷ADOConnection1£¬½øÐÐÉèÖÃÁ¬½Ó×Ö·û´®£¨×÷ÓÃÊÇ£ºÑ¡È¡Á¬½ÓÇý¶¯·½Ê½ºÍÁ¬½ÓµÄÊý¾Ý¿âÉèÖã©¡£¹ý³ÌÈçÏÂͼËùʾ£º
2¡¢ADOQuery1ÉèÖ㺠
1£©ADOQuery1.connectionÊôÐÔΪADOConnection1;
2£©ADOQuery1.SQLÊôÐÔΪselect student.sno,sname,cname,grade from student,sc,course where student.sno=sc.sno and course.cno=sc.cno
3£©ADOQuery1.ActiveÉèÖÃΪTRUE¡£
3¡¢DataSource1ÉèÖÃ
DataSetÊôÐÔΪADOQuery1
4¡¢DBGrid1ÉèÖÃ
DataSourceÊôÐÔÉèÖÃΪDataSource1.
Ч¹ûͼ£º
¶þ¡¢Í¨¹ýDelphi7½øÐÐÉè¼ÆSQL²éѯµÄ½çÃæºÍ³ÌÐòʵÏÖ¡£
1¡¢½çÃæÉè¼Æ
Ìí¼ÓEdit£¬ButtonºÍLabel¿Ø¼þ£¬Èçͼ°Ú·ÅºÍÉèÖûù±¾ÊôÐÔ¡£
2¡¢ÔÚBitBtn1µÄClickʼþÄÚÍê³É³ÌÐò¡££¨Edit1ºÍEdit2µÄ×ۺϲéѯ£¬¹²4ÖÖÇé¿ö£©
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
SqlStr:String;
begin
i:=0;
if edit1.Text<>'' then
i:=i+1;
if edit2.Text<>'' then
i:=i+2;
case i of
0:
begin
SqlStr:='select student.sno,sname,cname,grade from student,sc,course '
+'where student.sno=sc.sno and course.cno=sc.cno ';
adoquery1.Close; //¹Ø±ÕADOQuery1£¬ÒÔ±ãÓÚ½øÐÐSQLÓï¾ä¸üÐÂ
adoquery1.SQL.Clear; //Çå¿ÕSQLÓï¾ä
adoquery1.SQL.Add(sqlStr); //Ìí¼ÓеÄSQL
adoquery1.Open; //ÐÂSQLÓÐЧ
end;
1:
begin
SqlStr:='select student.sno,sname,cname,grade from student,sc,course '
+'where student.sno=sc.sno and course.cno=sc.cno and sname='''+edit1.Text+'''';
adoquery1.Close; //¹Ø±ÕADOQuery1£¬ÒÔ±ãÓÚ½øÐÐSQLÓï¾ä¸üÐÂ
adoquery1.SQL.Clear; //Çå¿ÕSQLÓï¾ä
adoquery1.SQL.Add(sqlStr); //Ìí¼ÓеÄSQL
adoquery1.Open; //ÐÂSQLÓÐЧ

end;
2:
begin
SqlStr:='select student.sno,sname,cname,grade from student,sc,course '
+'where student.sno=sc.sno and course.cno=sc.cno and cname='''+edit2.Text+'''';
adoquery1.Close;


Ïà¹ØÎĵµ£º

Sql Server 2005/2008±¸·Ý/ɾ³ý¹ýÆÚ±¸·ÝT

 USE [master]
GO
/****** ¶ÔÏó:  StoredProcedure [dbo].[sp_backupdatabase]    ½Å±¾ÈÕÆÚ: 07/15/2009 16:23:56 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE proc [dbo].[sp_backupdatabase]
@bak_path nvarchar(4000)='',       ......

delphi µ÷ÊÔʱ×ܳöÏÖcpu´°¿Ú£¬ntdll.dllµãµÄ½â¾ö·½·¨

 ÔÚÖ÷½çÃæµÄimplementation  {$R *.dfm} Ï·ÅÈëÒÔÏ´úÂ룺
procedure PatchInt3;
var
NOP: Byte;
NTDLL: THandle;
BytesWritten: DWORD;
Address: Pointer;
begin
 if Win32Platform <> VER_PLATFORM_WIN32_NT then
Exit;
 NTDLL := GetModuleHandle('NTDLL.DLL');
 if NT ......

SQL ServerÊý¾Ý¿âÉè¼Æ±íºÍ×ֶεľ­Ñé


ÎÒÔÚÉè¼ÆÊý¾Ý¿âµÄʱºò»á¿¼Âǵ½ÄÄЩÊý¾Ý×ֶν«À´¿ÉÄܻᷢÉú±ä¸ü¡£±È·½Ëµ£¬ÐÕÊϾÍÊÇÈç´Ë£¨×¢ÒâÊÇÎ÷·½È˵ÄÐÕÊÏ£¬±ÈÈçÅ®ÐÔ½á»éºó´Ó·òÐյȣ©¡£ËùÒÔ£¬ÔÚ½¨Á¢ÏµÍ³´æ´¢¿Í»§ÐÅϢʱ£¬ÎÒÇãÏòÓÚÔÚµ¥¶ÀµÄÒ»¸öÊý¾Ý±íÀï´æ´¢ÐÕÊÏ×ֶΣ¬¶øÇÒ»¹¸½¼ÓÆðʼÈÕºÍÖÕÖ¹ÈÕµÈ×ֶΣ¬ÕâÑù¾Í¿ÉÒÔ¸ú×ÙÕâÒ»Êý¾ÝÌõÄ¿µÄ±ä»¯¡£
²ÉÓÃÓÐÒâÒåµÄ×Ö¶ÎÃû
ÓÐÒ»»ØÎÒ ......

SQLÔÚ½¨Á¢Óë·þÎñÆ÷µÄÁ¬½Óʱ³ö´íµÄ½â¾ö·½·¨

SQLÔÚ½¨Á¢Óë·þÎñÆ÷µÄÁ¬½Óʱ³ö´íµÄ½â¾ö·½
       ÔÚ½¨Á¢Óë·þÎñÆ÷µÄÁ¬½Óʱ³ö´í¡£ÔÚÁ¬½Óµ½ SQL Server 2005 ʱ£¬ÔÚĬÈϵÄÉèÖÃÏ SQL Server ²»ÔÊÐí½øÐÐÔ¶³ÌÁ¬½Ó¿ÉÄܻᵼÖ´Ëʧ°Ü¡£ (provider: ÃüÃû¹ÜµÀÌṩ³ÌÐò, error: 40 - ÎÞ·¨´ò¿ªµ½ SQL Server µÄÁ¬½Ó)
¸Õ¸Õ°²×°µÄÊý¾Ý¿âϵͳ£¬°´ÕÕÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ