delphi How to get a valid SQL server name in the LAN 170

function getsqlserverlist(strings:tstrings):boolean;

The function is implemented as follows:

function : tstrings): boolean;

var Get a valid sql server name in the local area network sqlserver: variant;

serverlist: variant;

i,sercount:integer;

beginresult:=false;

try sqlserver := createoleobject('');

serverlist := ;

sercount:= ;

if sercount>0 then result:=true;

for i:=1 to sercount doif <>''then ;

sqlserver := null;

serverlist := null;

except

result:=false;

end; end;

Description: sqldmo is a one-person dcom service, only in the machine where sql is installed, just like word, sqldmo has very little information in this regard, it can complete all the functions of all sqlservr In the program unit part, you must add comctrls, comobj unit to access.

The specific applications are as follows:

Initialize the list box.

if getsqlserverlist( thenbegin

end;

If you don't know the IP address, you need to enumerate a similar port 1433 and connect.

Connections within the specified network segment are sequentially saved through the IP address of the connection test.

Do you want to extract a list of database names or a list of table names?

Ladies and gentlemen, Hello, there is a problem that makes me very angry now, I set up a project in the NT server of the Chong Brigade, and the rotation of the item can only be visited by user A. I use user B to go ashore on the client, but I already know the username and password of user B, and I use delphi to make a Fadu example, so that the Fadu example can access the files in the order that can only be visited by user A.

The big shrimp can be judged to be able to send carbon in the snow, and he can't be grateful!!

Ladies and gentlemen, I made a mistake just now, I should know the username and password of user A.

There is no mistake in your operation, thoughOnly SQLSer Enterprise EditionIn other words, SQLSserver is divided into Personal Edition, Development Edition, Standard Edition, and Enterprise Edition, and only the Enterprise Edition supports remote access among these editions!

And SQL Server Enterprise Edition can only be installed toServer Edition Windows!

sql2000 to install SP4 patch, sql2000 installation file may have this patch, if you don't have one on the Internet.

XP doesn't seem to be able to install the enterprise version, only the personal version.

Computers other than development machines need to install some runtime libraries for SQL Server!

That's what I want to ask.

Take the IP of the machine can be checked.,It's hard to find out the "current network connection".,The great god answers!!

Use try except end

Try to connect, if it is successful, then the server is OK.

Try to connect OK.

You can also check whether port 1433 is open.

In the properties of the Obejct Inspector of the database control, the connected point is true, and you can test that the connection is unsuccessful!

;showmessage('The connection is successful');

except

showmessage('The connection failed');

end;