Question

delphi在线程中建立ado的数据库连接

如题，delphi在线程中建立ado的数据库连接
因为不在线程中使用ado连接不存在的数据库，则窗体会停止响应。比较麻烦，而我对线程方面又不太了解，所以希望有大侠帮我写下代码。谢谢!
能详细点吗,最好给我做个demo
主窗体放三个edit,分别填服务器名称,sql用户名,密码
然后线程里是这样的代码
ConnMain:=TADOConnection.Create(nil);
ConnMain.Connected:=False;
connMain.ConnectionString:='Provider=SQLOLEDB.1;Password='+sqlpwd+';Persist Security Info=True;User ID='+sqluser+';Initial Catalog=''master'';Data Source='+server+'';
ConnMain.Connected:=True;

Answer 1

很简单，按如下5步，即可实现线程中连接DB:

1. 通过菜单->File->new->Other，新建一个thread object，线程类不妨命名为TThreadTest，单元名不妨另存为unitThreadTest

2. 在线程自动生成的Execute过程中撰写数据库连接代码

3. 在主窗体中引用线程单元：
use unitThreadTest

4. 在主窗体中定义一个线程变量ThreadTest:TThreadTest;

5. 在主窗体的FormCreate过程中自动创建线程并让线程立即运行：
ThreadTest:=TThreadTest.Create(false);

Answer 2

delphi 110 699 547