ado中怎样使用IP代替数据库名?代码怎样?
谢谢!!!巨急!!
谢谢!!!巨急!!
解决方案 »
- delphi怎样让窗口在屏幕上居中
- 一个表操作比较麻烦点的问题(在线等待)
- 为什么从串口接收不到返回来的数据?代码,大家帮看看!
- 严重声明,严重抗议,斑主不负责的乱扣我的分?????????????????????????????????
- 我们正在创业,需要找个合作的做软件的朋友,有意者请进
- 请问关于Foxpro的问题
- 哪有DELPHI5 ADO PACK补丁下载,CSDN上下载不下来
- 一个只有高手才能解决的问题:我的delphi数据库程序在我的机子上调试完全正常,可到了一台只装了OS加MDAS2.6 的机子上时,在数据库查询时
- toolbar放在controlbar中,给toolbar上的toolbutton指定一个菜单,为什么快捷键失效了?
- 如何实现对listview中的items拖放到treeview中的节点。
- 如何读取剪贴板中的文件信息?
- DELPHI中怎样读和写XML文件?格式又怎样?
正是!
请问怎样代替?
var s:string;
begin
db.close;
adodb.close;
if (trim(edit1.text)='') and (trim(edit5.text)='') then
begin
application.MessageBox('服务器IP和主机名不能同时为空!','提示信息',48);
edit1.SetFocus;
exit;
end;
if trim(edit4.text)='' then
begin
application.MessageBox('请输入MSSQL SERVER数据库名!','提示信息',48);
edit4.SetFocus;
exit;
end;
db.Params.Clear;
db.DriverName:='MSSQL';
s:='DATABASE NAME='+trim(edit4.text)+#13;
s:=s+'SERVER NAME='+trim(edit1.text)+#13;
s:=s+'USER NAME='+trim(edit2.text)+#13;
s:=s+'OPEN MODE=READ/WRITE'+#13;
s:=S+'SCHEMA CACHE SIZE=8'+#13;
s:=S+'BLOB EDIT LOGGING='+#13;
s:=S+'LANGDRIVER='+#13;
s:=S+'SQLQRYMODE='+#13;
s:=S+'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'+#13;
s:=S+'DATE MODE=0'+#13;
s:=S+'SCHEMA CACHE TIME=-1'+#13;
s:=S+'MAX QUERY TIME=300'+#13;
s:=S+'MAX ROWS=-1'+#13;
s:=S+'BATCH COUNT=200'+#13;
s:=S+'ENABLE SCHEMA CACHE=FALSE'+#13;
s:=S+'SCHEMA CACHE DIR='+#13;
s:=S+'HOST NAME='+trim(edit5.text)+#13;
s:=S+'APPLICATION NAME='+#13;
s:=S+'NATIONAL LANG NAME='+#13;
s:=S+'ENABLE BCD=FALSE'+#13;
s:=S+'TDS PACKET SIZE=4096'+#13;
s:=S+'BLOBS TO CACHE=64'+#13;
s:=S+'BLOB SIZE=32'+#13;
s:=s+'PASSWORD='+trim(edit3.text);
db.Params.text:=s;
s:='Provider=SQLOLEDB.1;Password=';
s:=s+edit3.text+';Persist Security Info=True;User ID='+edit2.text+';';
s:=s+'Initial Catalog='+edit4.text+';Data Source='+edit1.text;
adodb.ConnectionString:=s; //ADO连接方式
try
if adochk.Checked then
adodb.open
else db.open;
application.MessageBox('连接数据库成功!','反馈信息',48);
except
on e:exception do application.MessageBox(pchar('无法连接数据库!'+#13+#13+e.Message),'错误信息',16);
end;
adodb.close;
db.close;
end;