请教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(
相关问答:
请给一个ACCESS多条件查询的例子,字段:姓名,电话,公司,地址为查询条件,只要不为空,就作为查询条件.
你先給這個些字段設置變量並賦初值為:%,
再在查詢 ......
一个程序往access数据库里面写记录,每天写5万条,第二天删除前一天的5万条
但是access文件的体积会慢慢增加。。。
我不压缩数据库的情况下,什么时候数据库的体积才不增加呢?
我删除记录的时候,数据库体 ......
string strAdd = "update tb_Note set Note='" + richTextBox1.Text + "' where NoteCode='"+strflag +"'"
都是文本类型的
完全正确。
你不试一下就提高
......
项目需要创建程序集,并对该程序集设置EXTERNAL_ACCESS权限,以完成外部访问功能,比如采用如下语句:
create assembly assemblyName(程序集名称) from 'D:\dllName.dll' with permission_set = external ......
m_pConnect->BeginTrans();
strSql.Format("CREATE TABLE SysUser(lsh AUTOINCREMENT NOT NULL UNIQUE,PRIMARY KEY(lsh),userType BYTE)");
m_pConnect->Execute((_bstr_t)strSql,NULL, adExe ......