C++builder6远程数据库智能连接.7z

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" #include <clipbrd.hpp> // 使用剪切板 #include <Registry.hpp>// 修改注册表对象 //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { //以下配置客户端网络库 //建立客户端网络库： // HKEY_LUCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo //新建 字串值： //数值名称：127.0.0.1 //数值数据：DBMSSOCN,127.0.0.1,1433 //数值名称：DSQUERY //数值数据：DBMSSOCN TRegistry *Reg=new TRegistry(); try { Reg->RootKey=HKEY_LOCAL_MACHINE; Reg->OpenKey("\\SOFTWARE\\Microsoft\\MSSQLServer\\Client\\ConnectTo",true); //Reg->OpenKey("\\SOFTWARE\\Microsoft\\MSSQLServer\\Client\\ConnectTo",false); if(!Reg->ValueExists(Edit3->Text))//如果这个IP的键值不存在 { Reg->WriteString(Edit3->Text,"DBMSSOCN,"+Edit3->Text+","+Edit4->Text); //创建这个键值 } else { if(Reg->ReadString(Edit3->Text)!="DBMSSOCN,"+Edit3->Text+","+Edit4->Text) { Reg->WriteString(Edit3->Text,"MBMSSOCN,"+Edit3->Text+","+Edit4->Text); //重新赋新值 } } //////////////////////////////////////////////////////////////////// if(!Reg->ValueExists("DSQUERY"))//如果DSQUERY这个键值不存在 { Reg->WriteString("DSQUERY","DBMSSOCN");//创建这个键值，数值数据：DBMSSOCN } else { if(Reg->ReadString("DSQUERY")!="DBMSSOCN") { Reg->WriteString("DSQUERY","DBMSSOCN");//重新赋新值 } } //__finally //{ Reg->CloseKey();//关闭主键 delete Reg;//释放内存 // } ///////////////////////////////////////////////////// ShowMessage("客户端自动配置完成！请单击OK按钮与SQL服务器通讯"); //////////////////////////////////////////////////// //以下打开数据库 ADOConnection1->ConnectionString="Provider=SQLOLEDB.1;Password="+Edit2->Text+";Persist Security Info=True;User ID="+Edit1->Text+";Initial Catalog=CDRental;Data Source="+Edit3->Text+","+Edit4->Text; //ADOConnection1->ConnectionString="Provider=MSDASQL.1;Password="+Edit2->Text+";Persist Security Info=True;User ID="+Edit1->Text+";Data Source=MSSQL ODBC;Initial Catalog=CDRental" //Provider=MSDASQL.1;Password=sa;Persist Security Info=True;User ID=sa;Data Source=MSSQL ODBC;Initial Catalog=CDRental ADOConnection1->ConnectionTimeout=30; ADOConnection1->Connected=true; ADOQuery1->Active=true;//接下去开始 ADOQuery 相关操作 例如： /****************************************************************** ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1-> SQL-> Add( "select * from CDInfor where Flag=:Flag and CDID=:CDNO" ); ADOQuery1->Parameters->ParamByName("CDNO")->Value = CDNO; //传入多个参数 ADOQuery1->Parameters->ParamByName("Flag")->Value = "1"; ADOQuery1->Open(); **************************************************************************/ ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1-> SQL-> Add( "select * from RentInfor where Flag = 0 "); ADOQuery1->Open(); } catch(Exception *) { ShowMessage("应用程序出错了！"); } } //---------------------------------------------------------------------------