DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡ ①
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡ ②
发布代码
发布控件
文档资料
经典工具
≡事务区≡ ③
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入： luismasgoret
今日帖子： 1
在线用户： 1
导航： 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者：
男 jsqihua ★☆☆☆☆ -
盒子活跃会员
2004/3/14 9:07:18
标题：
版主及各位“侠”级人物，能否提供一个delphi远程操作SQL 2000 Server 的例子 浏览:2018
加入我的收藏
楼主： 1、怎样登陆局域网一台SQL 2000 SERVER 然后向其中一个数据库进行读写操作.
   (我自己编了一个小东东，但怎么也不能对sql2000server进行操作，一定是我设　计有问题，在此就不把这个“废物软件”贴出来献丑了。
2、同样的道理，能不能给提供一个能在公网上（internet)进行对sql远程进行读写　操作的实例。在此不胜感激！

                     QQ:8221555
按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片
----------------------------------------------
-
作者：
男 jsqihua ( ) ★☆☆☆☆ -
盒子活跃会员
2004/3/14 9:13:24
1楼：

对不起！刚忘记写上自己的E-mail:qhwolf@126.com


    版主我全指望你了，我会为盒子努力工作和宣传的。


版主及各位“侠”级人物请帮忙！！！

----------------------------------------------
-
作者：
男 qingwen07 (qingwen) ★☆☆☆☆ -
盒子活跃会员
2004/3/14 9:22:14
2楼： 顶!按此在新窗口浏览图片
----------------------------------------------
-
作者：
男 shifengjc (大宝) ★☆☆☆☆ -
盒子活跃会员
2004/3/14 10:21:10
3楼： 链接SQL 2000不难呀!你用的是什么控件!我用的是ADO QUery .
   在Adoconnection 控件的connectionstring 中选bulid，选MICROSOFT...FOR SQL SERVER服务器名输入你的服务器名称，用户名用sa密码空就行了。

  远程的可以用Midas页中的DCOMConnection和DataSetProvider再加上ClientDataSet控件就可以用，建议你多看一下分布式应用。
  有不详细的可以联系我。E_mail:shifengjc@21cn.com
----------------------------------------------
-
作者：
男 jsqihua ( ) ★☆☆☆☆ -
盒子活跃会员
2004/3/14 16:28:55
4楼： 谢谢，我再试试。我会记住好心人。一定和你联系！！！按此在新窗口浏览图片
----------------------------------------------
-
作者：
男 lzgvcd (111) ★☆☆☆☆ -
盒子活跃会员
2004/3/15 9:03:24
5楼： 楼上的兄弟跟我的问题是一样的。因为你的数据库需要在服务器中注册，要不然肯定是没有办法访问的，我乡问的是如何在delphi中用程序实现在sql服务器中注册自己的数据库
----------------------------------------------
2222
作者：
男 gjde2004 (无影) ★☆☆☆☆ -
普通会员
2004/3/15 9:42:35
6楼： 你看看这个有帮助，我已买了一本书。这是网上源码。
Delphi6数据库系统开发实例导航源码http://www.delphifans.com/down_view.asp?id=168
----------------------------------------------
努力拼博，实现自我！
作者：
男 ddzhouqian (007) ★☆☆☆☆ -
盒子活跃会员
2004/3/15 11:05:20
7楼： 感谢!
----------------------------------------------
-按此在新窗口浏览图片
作者：
男 hebiziyu (hebiziyu) ★☆☆☆☆ -
盒子活跃会员
2004/3/15 17:11:36
8楼： 给你一个例子.
该例子已经测试成功.可以顺利的从重庆,深圳,山东和上海等地直接连接位于河南的sql server
2000.

祝你好运!


unit DataModule; 

interface 

uses 
Windows, SysUtils, Classes, DB, Forms, ADODB, IniFiles, Encddecd, 
ImgList, Controls; 

type 
TDataModule1 = class(TDataModule) 
ADOConnection: TADOConnection; 
Image32: TImageList; 
Image16: TImageList; 
procedure DataModuleCreate(Sender: TObject); 
procedure DataModuleDestroy(Sender: TObject); 
private 
{ Private declarations } 
FUser, FPwd, FServer, FRemoteSrv, FDataBase: string; 
function GetConnectionString(aType, aUser, aPwd, aDataBase, aServer: 
string): string; 
public 
{ Public declarations } 
property UserName: string read FUser write FUser; 
property Password: string read FPwd write FPwd; 
property ServerName: string read FServer write FServer; 
property RemoteSrv: string read FRemoteSrv write FRemoteSrv; 
property DataBase: string read FDataBase write FDataBase; 
function TestConnect: Boolean; 
function Test: Boolean; 
end; 

var 
DataModule1: TDataModule1; 

implementation 

{$R dfm} 

procedure TDataModule1.DataModuleCreate(Sender: TObject); 
begin 
try 
FUser := 'User'; 
FPwd := 'Pwd'; 
FServer := 'Server'; 
FDataBase :='DataBase'; 
ADOConnection.Connected := False; 
ADOConnection.ConnectionString := GetConnectionString('SQL', FUser, FPwd, 
FDataBase, FServer); 
finally 
IniFile.Free; 
end; 
end; 

procedure TDataModule1.DataModuleDestroy(Sender: TObject); 
var 
IniFile: TIniFile; 
begin 
IniFile := Tinifile.Create( ExtractFilePath(Paramstr(0)+'configini'); 
try 
IniFile.WriteString('Current Setting', 'User', FUser); 
IniFile.WriteString('Current Setting', 'Pwd', EncodeString(FPwd); 
IniFile.WriteString('Current Setting', 'Server', FServer); 
IniFile.WriteString('Current Setting', 'DataBase', FDataBase); 
finally 
IniFile.Free; 
end; 
end; 

function TDataModule1.GetConnectionString(aType, aUser, aPwd, aDataBase, 
aServer: string): string; 
begin 
Result := ''; 
if aType = 'ACCESS' then 
begin 
Result := 'ProviderMicrosoftJetOLEDB40Persist Security InfoFalse'; 
Result := Result + 'Data Source' + aDataBase; 
end; 
if aType = 'SQL' then 
begin 
Result := 'ProviderSQLOLEDB1Persist Security InfoFalse'; 
Result := Result + 'User ID' + aUser + ''; 
Result := Result + 'Password' + aPwd + ''; 
Result := Result + 'Initial Catalog' + aDataBase + ''; 
Result := Result + 'Data Source' + aServer; 
end; 
if aType = 'ODBC' then 
begin 
Result := 'ProviderMSDASQL1Persist Security InfoFalse'; 
Result := Result + 'Data Source' + aServer + ''; 
Result := Result + 'Initial Catalog' + aDataBase; 
end; 
end; 

function TDataModule1.TestConnect: Boolean; 
begin 
Result := True; 
//数据初始化连接 
ADOConnection.Connected := False; 
ADOConnection.ConnectionString := 
GetConnectionString('SQL', FUser, FPwd, FDataBase, FServer); 
try 
ADOConnection.Connected := True; 
except 
Result := False; 
Application.MessageBox('基本数据库连接错', '错误', MB_OK + MB_ICONERROR); 
end; 

if Result then 
Application.MessageBox('数据库连接成功', '信息', MB_OK + 
MB_ICONINFORMATION); 
end; 

function TDataModule1.Test: Boolean; 
begin 
Result := True; 
//数据初始化连接 
ADOConnection.Connected := False; 
ADOConnection.ConnectionString := 
GetConnectionString('SQL', FUser, FPwd, FDataBase, FServer); 
try 
ADOConnection.Connected := True; 
except 
Result := False; 
end; 
end; 


end.
----------------------------------------------
-
作者：
男 hebiziyu (hebiziyu) ★☆☆☆☆ -
盒子活跃会员
2004/3/15 17:13:37
9楼： 你可以直接把上面的代码粘贴为你的一个unit,窗体上放一个adoconnection,就可以了.
----------------------------------------------
-
作者：
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/3/15 17:29:02
10楼： 效果很好！
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者：
男 ganbing (干冰) ★☆☆☆☆ -
盒子活跃会员
2004/3/15 17:45:45
11楼： 试试

----------------------------------------------
尽情舒展,是一种向往,想去的地方、想拥有的感受,尽管追求!
作者：
男 jsqihua ( ) ★☆☆☆☆ -
盒子活跃会员
2004/3/15 22:27:22
12楼： 谢谢楼上的朋友。
----------------------------------------------
-
作者：
男 jsqihua ( ) ★☆☆☆☆ -
盒子活跃会员
2004/3/16 9:09:56
13楼： hebiziyu ：
　　你好！为什么我这就不行呢？能否把上面的源代码做成一个压缩包呢！
谢谢楼上的朋友。

----------------------------------------------
-
作者：
男 lzgvcd (111) ★☆☆☆☆ -
盒子活跃会员
2004/3/16 10:00:10
14楼： 楼上的兄弟的代码,并没有给出如何找到sql服务器呀
----------------------------------------------
2222
作者：
男 wealsh (工作狂人) ★☆☆☆☆ -
盒子活跃会员
2004/3/16 11:54:04
15楼： 登录该SQL Server 后，如何操作数据库？？
----------------------------------------------
-
作者：
男 wealsh (工作狂人) ★☆☆☆☆ -
盒子活跃会员
2004/3/16 12:11:41
16楼： 请问类似这个是怎样做的？
此帖子包含附件:
JPEG 图像
大小:45.6K
----------------------------------------------
-
作者：
男 wealsh (工作狂人) ★☆☆☆☆ -
盒子活跃会员
2004/3/18 11:31:33
17楼： ding
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行103.5156毫秒 RSS