ADOQuery1->SQL->Add("use master")
ADOQuery1->SQL->Add("Create Database NewDB");
ADOQuery1->ExecSql;

我的意思是如何连接和设置数据库？用cb语句，如ADOConnectionstring,等属性。

ADOConnetion1设置ConnetionString属性连接SQL Server
ADOQuery1设置Connetion属性为ADOConnetion1
DataSouce1设置DataSet属性为ADOQuery1
DBGrid1设置DataSouce属性为DataSouce1
----------------------
这几个组件就可以了

混点分

"ADOConnetion1设置ConnetionString属性连接SQL Server
ADOQuery1设置Connetion属性为ADOConnetion1
"我的意思是上面这些设置怎样通过程序代码来实现。

ADOConnetion1->ConnetionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=NewOA;Data Source=XINHS;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=XINHS;Use Encryption for Data=False;Tag with column collation when possible=False";
ADOConnetion1->LoginPrompt = false;

ADOQuery1->Connection = ADOConnetion1;

ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select id from tablename");
ADOQuery1->Open();

俺也混分

拖一个ADO控件到窗体上----就写TADOTable Mytable = new TADOTable();
设置ADO控件的Database属性----MyTable->Database = "属性栏里的内容照搬";
//
总之，你需要设置什么属性，都可以用相应的代码设置好。
写代码和拖控件是一样的效果。但是，写代码更灵活。

上面的代码有错，建议看看书。

以上的方法我都用了，没有完全正确的，请高手在指点！！！！！

没用过 SQL Server，如果是 MySQL 的话，我会先用 ADOConnection 连接到 mysql 数据库，再用 ADOCommand 或是 ADOQuery 执行一个新建数据库查询(CREATE DATABASE mydatabase，根据需要设置用户权限)，再断开 ADOConnection 重新连接到新建的数据库。
原理上就这样，具体细节应该难不倒你。

明晚（17）结贴！！！

AnsiString CntStr ;
  CntStr = "Provider=MSDASQL.1;Persist Security Info=False;";
  CntStr += "Extended Properties=\"Driver={Microsoft Visual FoxPro Driver};";
  CntStr += "UID=;SourceDB=C:\\;SourceType=mdb;Exclusive=No;BackgroundFetch=Yes;";
  CntStr += "Collate=Machine;Null=Yes;Deleted=Yes;\"";
  dbfconn->ConnectionString = CntStr;

strServer="Provider=SQLOLEDB.1;";
                strServer+="Password='"+password1+"';";   //数据库连接密码
                strServer+="User ID='"+user1+"';";         //用户名
                strServer+="Initial Catalog='"+datename1+"';";  //数据库名
                strServer+="Data Source='"+datesource1+"'" ;   //服务器名

                DataMod->ADOConnection->Close();
                DataMod->ADOConnection->ConnectionString=strServer;  //添加字串
                DataMod->ADOConnection->Open();     //连接


如果要更改数据库连接，直接改变连接字串就可以了！

Form1->ADOConnection1->Connected=false; //断开连接
   Form1->ADOConnection1->ConnectionString="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器";
 //设置与数据库服务器连接属性字符串

   try{
       Form1->ADOConnection1->Connected=true;
      }
      catch(Exception &e)
      {
        Application->MessageBoxA("数据库服务器连接错误","异常对话框",MB_OK);
      }