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

Çë½Ì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Êý¾Ý¿â£¬µ¼ÈëexcelµÄÊý¾Ý£¬ÎÒÏë¼ÓÒ»Ïî¼Í¼ÎļþÃûÀ´Çø·ÖÄÚÈÝ£¬¿ÉÊÇÔõô×öÄØ£¿ÓÖ»òÕßÓÃʲôÆäËû·½·¨¿ÉÒÔ°ìµ½£¿Ð»ÁË
Äã ......

Access Êý¾ÝÉýǨµ½ SQLServer2005

ÎÒÔ­±¾ÊÇÓÃACCESSµÄÊý¾Ý¿â£¬ÏÖÔÚ¸ÄÓÃSQLServer2005ÁË£¬ËùÒÔÏë°Ñ֮ǰµÄÊý¾ÝÈ«¶¼µ¼µ½SQLSERVERÀïÀ´¡£
ÏÖÓÐÎÊÌâÈçÏ£º

1:¸ÄÓÃSQLserverºó£¬Êý¾Ý¿âµÄ½á¹¹Óи͝¡£Ô­±¾ÔÚaccessÖÐËùÓеĵ¥¾ÝÓÃÒ»¸ö¡°µ¥¾ÝÐÅÏ¢¡±Ö ......

Access´ø²ÎÊýµÄ²éѯ

ÔÚaccessÖÐÔõôִÐÐselect TOP (@size) * from table1
Õâ¸öTOPÔõô´ø²ÎÊý²éѯ°¡
ÓÃVBA¶¯Ì¬Éú³ÉSQLÓï¾ä£¬ÔÙÖ´ÐÐ

²»ÄÜÖ±½ÓÓÃSQLÓï¾ä£¬ÓÃ×Ö·û´®ÀÛ¼ÓÉú³ÉSQLÓï¾äµÄ·½·¨À´Ö´ÐÐSQLÓï¾ä

top n Õâ¸öûÓа취ʹÓò ......

access µ¼Èë access ת»»ÎÞЧ!ÔÚÏßµÈ!

´ÓÀàÐÍ"DBNULL" µ½ÀàÐÍ¡°Double¡±µÄת»»ÎÞЧ£¨Êý¾Ý¿âÖжÔÓ¦µÄ a3 »òa5 ûÓÐÊý¾ÝÊÇΪ¿Õ£©
,ÇëÎÊÎÒÔõô´¦Àí£¡

VB.NET code:

Dim a1 As String = Nothing
Dim a2 As S ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ