|
TIniFile *inifile = new TIniFile(ExtractFilePath(Application->ExeName)+"Setup.ini");
ServerN=inifile->ReadString("SERVER", "SER", "");
DBName=inifile->ReadString("SERVER", "DB", "");
UserN=inifile->ReadString("SERVER", "USER", "");
PassN=inifile->ReadString("SERVER", "PASS", "");
DB_FLUG=inifile->ReadString("SERVER", "MS", "");
if(DB_FLUG=="%")
{
Database1->Connected = false;
Database1->DriverName = "MSSQL";
Database1->Params->Clear();
Database1->Params->Add("DATABASE NAME="+DBName+"");
Database1->Params->Add("SERVER NAME="+ServerN+"");
Database1->Params->Add("USER NAME="+UserN+"");
Database1->Params->Add("OPEN MODE=READ/WRITE");
Database1->Params->Add("SCHEMA CACHE SIZE=8");
Database1->Params->Add("BLOB EDIT LOGGING=");
Database1->Params->Add("LANGDRIVER=");
Database1->Params->Add("SQLQRYMODE=");
Database1->Params->Add("SQLPASSTHRU MODE=SHARED AUTOCOMMIT");
Database1->Params->Add("DATE MODE=0");
Database1->Params->Add("SCHEMA CACHE TIME=-1");
Database1->Params->Add("MAX QUERY TIME=300");
Database1->Params->Add("MAX ROWS=-1");
Database1->Params->Add("BATCH COUNT=200");
Database1->Params->Add("ENABLE SCHEMA CACHE=FALSE");
Database1->Params->Add("SCHEMA CACHE DIR=");
Database1->Params->Add("HOST NAME=");
Database1->Params->Add("APPLICATION NAME=");
Database1->Params->Add("NATIONAL LANG NAME=");
Database1->Params->Add("ENABLE BCD=FALSE");
Database1->Params->Add("TDS PACKET SIZE=4096");
Database1->Params->Add("BLOBS TO CACHE=64");
Database1->Params->Add("BLOB SIZE=32");
Database1->Params->Add("PASSWORD="+PassN+"");
try
{
Database1->Connected = true;
}
catch(...)
{
ShowMessage("서버를 찾을수 없습니다.");
}
위와같이 코딩해서 MSSQL서버 DB에 접근하는 사무실내에서는 접근이 가능한데 다른 건물의 사무실에서는 저희 사무실 MSSQL서버 DB에 접근이 안되네여. ㅜ.ㅜ
접근 방법좀 알려주세여...
|