DELPHI中操作ACCESS数据库
DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库)
以下代码在WIN2K,D6,MDAC2.6下测试通过,
编译好的程序在WIN98第二版无ACCESS环境下运行成功.
//声明连接字符串
Const
SConnectionString
= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet
OLEDB:Database Password=%s;';
//=============================================================================
// Procedure:
GetTempPathFileName
//
Author : ysai
// Date :
2003-01-27
// Arguments:
(None)
//
Result : string
//=============================================================================
function GetTempPathFileName():string;
//取得临时文件名
var
SPath,SFile:array [0..254] of char;
begin
GetTempPath(254,SPath);
GetTempFileName(SPath,'~SM',0,SFile);
result:=SFile;
DeleteFile(result);
end;
//=============================================================================
// Procedure:
CreateAccessFile
//
Author : ysai
// Date :
2003-01-27
// Arguments:
FileName:String;PassWord:string=''
// Result : boolean
//=============================================================================
function CreateAccessFile(FileName:String;PassWord:string=''):boolean;
//建立Access文件，如果文件存在则失败
var
STempFileName:string;
vCatalog:OleVariant;
begin
STempFileName:=GetTempPathFileName;
try
vCatalog:=CreateOleObject('ADOX.Catalog');
vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));
result:=CopyFile(PChar(STempFileName),PChar(FileName),True);
DeleteFile(STempFileName);
except<
相关文档：
花了两个晚上帮朋友将一个asp开发的网站从ACCESS数据库转向SQL SERVER 2000. 网上查了些资料，加上自己的经历，总结：
1、首先看asp 的程序中是否有 on error resume next; 如果有,先注释掉。否则很多错误无法暴露出来
2、创建SQL SERVER 数据表。 使用SQL SERVER 2000自带的数据导入向导，将ACCESS数据库中的表结构，以� ......
一. Ora-24801:在OCI_lob函数中非法的参数值
把一张含有“备注”字段的表通过ODBC导出到Oracle的时候一直出现如上图所示的提示信息。尝试去掉相关字段中空格字符，去掉字段为空的记录，还是导出失败。最后偶然发现，重新建一张相同结构的空表，然后复制原表的记录，再粘贴到新表中，导出到Oracle� ......
技术交流,DH讲解. 今天来实现一个简单的五子棋,直接用GDI来画的一个游戏.
首先我们来想下怎么存放数据,哪些地方是白棋,哪些地方是黑棋,哪些地方没有下棋?
对,我们用一个二维数组,如果数组中某一个位置的值为0代表没有下棋,为1代表是白棋,为2代表是黑棋.
好就这么说定了,为了使用方便,我们打算做成一个控� ......
优秀的数据库应用应当充分考虑数据库访问的速度问题。通常可以通过优化数据库、优化 查询语句、分页查询等途径收到明显的效果。即使是这样，也不可避免地会在查询时闪现一个带有 SQL符号的沙漏，即鼠标变成了查询等待。最可怜的是用户，他（她）在此时只能无奈地等待。遇到急性子的，干脆在此时尝试 Windows中的其它应用程� ......
OPENDATASOURCE 打开excel、access、qsl
use test
insert into OPENDATASOURCE('SQLOLEDB', 'Data Source=192.168.2.200;User ID=sa;Password=110').test.dbo.adf--打开远程数据库
select * from OpenRowSet('Microsoft.Jet.OLEDB.4.0', 'Excel 8.0;HDR=Yes;IMEX=1;Database=c:\2003.xls', [kg$])
--查询远程数据 ......
