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

来源:百度知道 编辑:UC知道 时间:2024/05/22 11:57:29
如题,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;

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

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

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

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

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

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

delphi 110 699 547