解决两相同数据库数据同步的问题

核心提示：为用户组建一套sql server(WINDOWS平台上强大的数据库平台)应用系统时,用户经常提到这样的要求: 如果其中一台服务器坏了,怎样才能防止数据丢失,并在最短的时间内恢复系统?要解决这个问题,肯定需要两台服务器,并在两台服务器上装有相同的数据库,保持两台服务器中的数据同步,当主服务器坏了时,将另外一台服务器

为用户组建一套sql server(WINDOWS平台上强大的数据库平台)应用系统时,用户经常提到这样的要求:
 
  如果其中一台服务器坏了,怎样才能防止数据丢失,并在最短的时间内恢复系统?

要解决这个问题,肯定需要两台服务器,并在两台服务器上装有相同的数据库,保持两台服务器中的数据同步,当主服务器坏了时,将另外一台服务器更改一下计算机名称,从而使得工作站可以继续运行.

那么如何保持两台数据库中的数据同步呢? sql server(WINDOWS平台上强大的数据库平台)提供了出版-定阅机制,可以将数据实时的拷贝到定阅服务器中. 但在实际应用中,发现一旦建立起了出版-定阅关系,在定阅服务器数据库中的触发器,主键等东西都不见了!!! 当主服务器不能正常工作时,要想让另一台服务器转变为主服务器,除更改计算机名外,还需建立触发器,索引等,过程比较烦琐.特别当用户对数据库维护不熟悉时,这种操作更加麻烦.

sql server(WINDOWS平台上强大的数据库平台)做为一种数据库管理系统,它与客户的接口都是通过SQL语句进行的, 用户在插入一条记录时,sql server(WINDOWS平台上强大的数据库平台)会接收到Insert语句;更改一条记录时,会接收到 Update命令...
那么如果我们能在sql server(WINDOWS平台上强大的数据库平台)中跟踪到所有发给sql server(WINDOWS平台上强大的数据库平台)的SQL语句,那么我们就可以知道数据库发生了哪些改变,并可以将这种改变发给另外一到服务器,从而实现数据实时同步的功能.

值得高兴的是,sql server(WINDOWS平台上强大的数据库平台) 提供了跟踪功能 ,它们是以 xp_trace_XXXXXX的一系列存储过程,
你可以设置过滤条件,从而只跟踪影响你的数据库 变化的SQL 语句,将这些SQL 语句存放在本地表中,再从本地表中读出,发送给另外一台服务器 ,从而实现数据同步功能. 这种方法可以跟踪任何类型的变化,包括Image类型数据的改变.

以下面是用BCB5.0语句实现建立跟踪过程:
bool TForm1 :: BuildTrace(int DBID,
　　　　　　　　　　　  AnsiString AppFilter,
　　　　　　　　　　　  AnsiString SQLFilter,
　　　　　　　　　　　  AnsiString DstTable,
　　　　　　　　　　　  int &TraceHandle)
{
　  char tempBuf[512];

　  Query1 -> Close();
　  Query1 -> SQL -> Clear();
　  TStrings *pSQL = Query1 -> SQL;

　  pSQL -> Add("USE master");
　  pSQL -> Add("DECLARE @queue_handle int");
　  pSQL -> Add("DECLARE @column_value int");
　  pSQL -> Add("SET @column_value = 67108864|1|512|1024|10384");
　  pSQL -> Add("EXEC  xp_trace_addnewqueue 1000,5,95,90,@column_value,@queue_handle OUTPUT");
　  pSQL -> Add("EXEC xp_trace_seteventclassrequired @queue_handle, 41,1 ");
　
　  wsprintf(tempBuf,"EXEC xp_trace_setappfilter @queue_handle,'%s',NULL", AppFilter.c_str());
　  pSQL -> Add(AnsiString(tempBuf));

　  wsprintf(tempBuf,"EXEC xp_trace_setdbidfilter @queue_handle,%d",DBID);
　  pSQL -> Add( AnsiString(tempBuf));

　  wsprintf( tempBuf,"Exec xp_trace_settextfilter @queue_handle,'%s',NULL", SQLFilter.c_str());
　  pSQL -> Add(AnsiString(tempBuf));

　 

　  wsprintf( tempBuf,
　　　　　　  "EXEC xp_trace_setqueuedestination @queue_handle,4,1,NULL,'%s'",
　　　　　　  DstTable.c_str()
　　　　　  );
　  pSQL -> Add( AnsiString(tempBuf));

　  pSQL -> Add("EXEC xp_trace_startconsumer @queue_handle");
　  pSQL -> Add("SELECT @queue_handle QueueHandle");

　  try
　  {
　　　  Query1 -> Open();
　  }
　  catch(...)
　  {
　　　  return false;
　  }
　  TraceHandle = Query1 -> FieldByName("QueueHandle") -> AsInteger;
　  return true;
}