社区
Delphi
帖子详情
在线等待!!ado中怎样使用IP代替数据库名?高分!!
well
2003-01-24 04:47:57
ado中怎样使用IP代替数据库名?代码怎样?
谢谢!!!巨急!!
...全文
28
11
打赏
收藏
在线等待!!ado中怎样使用IP代替数据库名?高分!!
ado中怎样使用IP代替数据库名?代码怎样? 谢谢!!!巨急!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
C# 简单
ADO
.NET
数据库
教程
基于Visual Studio 2019环境下,主要讲解C#
中
ADO
.net的操作,涉及:
数据库
连接测试、Connection类的语法和
使用
、Command类的语法和
使用
、DataReader类的语法和
使用
、实现
数据库
的增、删、改、操作;
数据库
帖子收集
这样的数据列表在存储过程
中
应该怎么样选择得到? 请问造成SQL2000服务不能启动的原因有哪些? sql server
中
有無類似于if 的函數,即像這樣select if(cancel=1,'cancel','') from sales 这样怎么返回呀!!!!...
WEB开发文档2 总结
http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx 怎样将后台生成的在内存
中
的图象显示到客户端 Microsoft IE WebControls下载地址 如何在DATAGRID
中
使用
JAVASCR
IP
T脚本控制 DataGrid
中
连接到...
效率极高的分类算法
在网站建设
中
,分类算法的应用非常的普遍。在设计一个电子商店时,要涉及到商品分类;在设计发布系统时,要涉及到栏目或者频道分类;在设计软件下载这样的程序时,要涉及到软件的分类;如此等等。可以说,分类是一...
MS-SQL Server 基础类 - SQL语句
怎样返回
数据库
中
用户表的表单
名
高手帮帮忙! 摆不平了~谁给看看~,解决马上给分~ 如何查找
数据库
中
两个字段的内容都相同的项! 急急!各位帮忙了,请问能用命令方式启动sql server agent么 这个select语句怎么写?...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章