Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft SQL Server Новый топик    Ответить
 dbserverenum >???  [new]
director
Member

Откуда: Москва
Сообщений: 82
Пытаюсь получить список SQL серверов, но массив возвращается пустой. Поскольку я в этих делах слабак, решил обратиться за помощью. Посмотрите, что я не так делаю. Пример на C++builder.

//---------------------------------------------------------------------
#pragma hdrstop
#include <WindowsX.h>
#include <Dialogs.hpp>
//#include <vcl.h>

#define DBNTWIN32
//#define NTWDBLIB

#include <oledb.h>
#include <sqlfront.h>
#include <sqldb.h>

#include "SettWin.h"
#include "ProType.h"
#include "Message.h"
#include "DataModule1.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TSettForm *SettForm;
//---------------------------------------------------------------------
__fastcall TSettForm::TSettForm(TComponent* AOwner)
: TForm(AOwner)
{
}
//--Открываем окно-----------------------------------------------------------
void __fastcall TSettForm::FormShow(TObject *Sender)
{
//............................................................Список серверов
LPSTR servnamebuf;
USHORT AA=NET_SEARCH ;
USHORT BB=10;
LPUSHORT numentries;

int res= dbserverenum(AA,servnamebuf,BB,numentries);
}
31 окт 03, 13:03    [401485]     Ответить | Цитировать Сообщить модератору
 Re: dbserverenum >???  [new]
SkyWalker
Member

Откуда:
Сообщений: 320
у вас NETBIOS в сети бегает ?
31 окт 03, 21:00    [402415]     Ответить | Цитировать Сообщить модератору
 Re: dbserverenum >???  [new]
sparrow
Member

Откуда: Россия, Красноярск.
Сообщений: 21759
Директор. Попробуй другую тропу.
1 ноя 03, 16:59    [402772]     Ответить | Цитировать Сообщить модератору
 Re: dbserverenum >???  [new]
Zev
Guest
//--------------------------------------------------------------------

#include <vcl.h>
#include <utilcls.h>
#include "ComObj.hpp"

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Clear();

Variant dmo = CreateOleObject( "SQLDMO.Application" );
Variant sn = dmo.Exec( Function( "ListAvailableSQLServers" ) );
int j = sn.Exec( Function( "Count" ) );

for( int i = 1 ; i <= j ; i++ )
{
Memo1->Lines->Add( AnsiString( sn.Exec( Function( "Item" ) << i ) ) );
ListBox1->Items->Add( AnsiString( sn.Exec( Function( "Item" ) << i ) ) );
}
dmo = Unassigned ; sn = Unassigned ;
}
//--------------------------------------------------------------------
3 ноя 03, 09:57    [403384]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft SQL Server Ответить