请问如何像下面连接sqlserver数据库一样通过编写BDE的tdatabase连接参数连接数据库?谢谢!!连接sqlserver: Params := TStringlist.Create;
try
try
Params.Clear;
Params.Add('SERVER NAME=' + txtSevername.Text);
Params.Add('DATABASE NAME=' + txtDatabase.Text);
Params.Add('USER NAME=' + txtDBUser.Text);
Params.Add('PASSWORD=' + txtDBPasswd.Text); if Database1.Connected then Database1.Connected := false; Database1.DriverName := 'MSSQL';
Database1.Params := Params;
Database1.Connected := true; finally
Params.Free;
end; except
on e:exception do
begin
MessageDlg('数据库连接异常错误:'+ e.Message ,mtWarning,[mbOK],0);
Exit;
end;
end;
try
try
Params.Clear;
Params.Add('SERVER NAME=' + txtSevername.Text);
Params.Add('DATABASE NAME=' + txtDatabase.Text);
Params.Add('USER NAME=' + txtDBUser.Text);
Params.Add('PASSWORD=' + txtDBPasswd.Text); if Database1.Connected then Database1.Connected := false; Database1.DriverName := 'MSSQL';
Database1.Params := Params;
Database1.Connected := true; finally
Params.Free;
end; except
on e:exception do
begin
MessageDlg('数据库连接异常错误:'+ e.Message ,mtWarning,[mbOK],0);
Exit;
end;
end;
解决方案 »
- 如何自定义可变换原点的TPaintBox类呢?
- 请问关于拖动的时候的虚框的问题
- 冰天雪地赤身裸体1440度超難度轉身跪求问题的解决方法!~~~~~~~~~~!!!!!!
- 请教一个adocommand的问题
- for循环急问
- Merlin.LanguageID怎么调整?
- 在Delphi 中怎样用VB 写的控件
- 高分求解:我做了个实现FTP上传文件的ActiveX控件(用于IE浏览器的), 如果FTP服务器建在本机上就能上传成功,服务器不在本机上,上传时就卡死不动了.
- 我看到很多浏览器都可以不显示弹出式窗口,而不需要事先屏蔽那个地址。它是怎么做到的?
- delphi如何将其它程序界面中的GRID表格中的数据取得或者导出?
- 一个急需要解决的问题?
- 控件输入内容中有单引号的问题
只要为DB2数据库配好ODBC源,如源为DBNAME,再在程序中设一下TQuery.DatabaseName := 'DBNAME';就OK了
我使用Tquery的ODBC方法可以连接上db2了,但是每次使用前都会弹出一个loginpromt窗口让我输入用户名和密码,有什么办法可以不用弹出来输入呢?谢谢!!
如Win2000上具体步骤是在“ODBC数据源管理器”里选择所配的数据源,点“配置”,弹出DB2的CLI/ODBC设置对话框,在这里输入用户ID和口令;这个对话框也可以从DB2 V7的客户机配置辅助程序里调出
begin
result := 'Provider=MSDASQL.1'
+';Persist Security Info=True'
+';Password='+DBPasswd
+';User ID='+ DBUser
+';Data Source='+Database;end;