在线等待!!ado中怎样使用IP代替数据库名?高分!!

well 2003-01-24 04:47:57
ado中怎样使用IP代替数据库名?代码怎样?
谢谢!!!巨急!!
...全文
28 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
gx 2003-01-25
  • 打赏
  • 举报
回复
好象用sybase 数据库的问题比较多,请高手们继续关注
wjlsmail 2003-01-24
  • 打赏
  • 举报
回复
Data Source = 127.0.0.1

就是上面朋友说的改 Data Source
TOMWLD 2003-01-24
  • 打赏
  • 举报
回复
用的是Sql AnyWhere还是Sybase,两者不一样的
well 2003-01-24
  • 打赏
  • 举报
回复
用的是sybase 数据库,SQL Server下使用知道可以通过。
gzyzljk 2003-01-24
  • 打赏
  • 举报
回复
看看服务器的IP地址就可以了啊......
hnaming 2003-01-24
  • 打赏
  • 举报
回复
直接将ADOCONNECTION组件中的CONNECTION STRING属性值改为

"Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=sell;Data Source=202.96.34.188"
Billy_Chen28 2003-01-24
  • 打赏
  • 举报
回复
procedure TForm1.BitBtn3Click(Sender: TObject);
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;
well 2003-01-24
  • 打赏
  • 举报
回复
如使用通过,立马加分,概不拖欠!
well 2003-01-24
  • 打赏
  • 举报
回复
to TOMWLD(笑天) :
正是!
请问怎样代替?
well 2003-01-24
  • 打赏
  • 举报
回复
错!是代替服务器名!
TOMWLD 2003-01-24
  • 打赏
  • 举报
回复
IP怎能代替数据库名,服务器名可以设为IP

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧