Çë½ÌaccessÊý¾Ý¿â¶¯Ì¬Éú³ÉµÄÎÊÌâ
//**********************************
//³ÌÐò¹¦ÄÜ£º´´½¨AccessÊý¾Ý¿âºÍÊý¾Ý±í
//**********************************
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, ADODB, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Path: string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Path := ExtractFilePath(Application.ExeName);
end;
//Êý¾Ý¿â´´½¨¹ý³Ì
procedure TForm1.Button1Click(Sender: TObject);
var
CreateAccess: OleVariant;
begin
//Èç¹û´æÔÚͬÃûÎļþ£¬Ôòɾ³ýÖ®
if FileExists(Path + 'A1.mdb') then
begin
DeleteFile(Path + 'A1.mdb');
end;
CreateAccess := CreateOleObject('ADOX.Catalog');
CreateAccess.Create(
Ïà¹ØÎÊ´ð£º
ϵͳÿÌì²úÉúÒ»¸öexcelÎļþ£¬¸ñʽÏàͬ£¬ÄÚÈÝÓÃÎļþÃû£¨ÓòúÉúµÄʱ¼äÃüÃû£©Çø·Ö¡£ÎÒ×öÁËÒ»¸öaccessÊý¾Ý¿â£¬µ¼ÈëexcelµÄÊý¾Ý£¬ÎÒÏë¼ÓÒ»Ïî¼Í¼ÎļþÃûÀ´Çø·ÖÄÚÈÝ£¬¿ÉÊÇÔõô×öÄØ£¿ÓÖ»òÕßÓÃʲôÆäËû·½·¨¿ÉÒÔ°ìµ½£¿Ð»ÁË
Äã ......
ÎÒÔ±¾ÊÇÓÃACCESSµÄÊý¾Ý¿â£¬ÏÖÔÚ¸ÄÓÃSQLServer2005ÁË£¬ËùÒÔÏë°Ñ֮ǰµÄÊý¾ÝÈ«¶¼µ¼µ½SQLSERVERÀïÀ´¡£
ÏÖÓÐÎÊÌâÈçÏ£º
1:¸ÄÓÃSQLserverºó£¬Êý¾Ý¿âµÄ½á¹¹Óи͝¡£Ô±¾ÔÚaccessÖÐËùÓеĵ¥¾ÝÓÃÒ»¸ö¡°µ¥¾ÝÐÅÏ¢¡±Ö ......
ÔÚaccessÖÐÔõôִÐÐselect TOP (@size) * from table1
Õâ¸öTOPÔõô´ø²ÎÊý²éѯ°¡
ÓÃVBA¶¯Ì¬Éú³ÉSQLÓï¾ä£¬ÔÙÖ´ÐÐ
²»ÄÜÖ±½ÓÓÃSQLÓï¾ä£¬ÓÃ×Ö·û´®ÀÛ¼ÓÉú³ÉSQLÓï¾äµÄ·½·¨À´Ö´ÐÐSQLÓï¾ä
top n Õâ¸öûÓа취ʹÓò ......
´ÓÀàÐÍ"DBNULL" µ½ÀàÐÍ¡°Double¡±µÄת»»ÎÞЧ£¨Êý¾Ý¿âÖжÔÓ¦µÄ a3 »òa5 ûÓÐÊý¾ÝÊÇΪ¿Õ£©
,ÇëÎÊÎÒÔõô´¦Àí£¡
VB.NET code:
Dim a1 As String = Nothing
Dim a2 As S ......