Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

Отправляет email-рассылки с помощью сервиса Sendsay

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

← Май 2007 →
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31

Автор

Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю

← Все выпуски →

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Выпуск # 133

http://www.kbyte.ru/

Новый выпуск!

Если у Вас возникнут какие-либо вопросы, замечания, пожелания или предложения, пишите, мы детально рассмотрим каждое Ваше сообщение – mailto: admin@kbyte.ru.

Содержание выпуска

Система ЭКСПЕРТ

Вопрос #000189: VisualBasic_6.0_-_разрешение_экрана

Вопрос #000187: Как это делать!

Вопрос #000185: доступ к базе данных

Вопрос #000182: помогите_с_кодом_на_Математические_операции.

Вопрос #000179: TcpListener,TcpClient,передача данных.

Вопрос #000178: SQL, как с ним работать?

Вопрос #000174: Re: Kbyte.Ru: Ответ Эксперта - Как сменить системную дату и время?

Вопрос #000175: Помогите воспроизвести видео

Вопрос #000172: Как сменить системную дату и время?

Вопрос #000170: LinkButton, как отключить свойство обновления страници?

Последнее на форумах

MsSQL

Помогите сделать простую вещь!

Фильтр в DataGridView

Подключение к Базе Данных и отображение её в DataGridView

Массовое удаление ICQ номеров

AppActivate не срабытавает под Win64

Как засунуть программу в трей?

Простая задача на VB 6.0

Сменил ICQ!

Вызов процедуры из AutoItX3.dll

Последние статьи

Выбор языка программирования для научных работ (2-я редакция)

Работаем с MIME

Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше

Visual Basic .NET: Работа с файлами

ASP .NET 2.0: Эталонные страницы

Описание ошибок VB

Горячие клавиши VB 6.0

ASP .NET 2.0: Файл Global.asax

Как узнать страну по IP-адресу?

Visual Basic 6.0 - Экспорт DataReport в Microsoft Word

Интересные коды и решения

Юмор на Kbyte.Ru

Система ЭКСПЕРТ

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)

Вопрос #000189: VisualBasic_6.0_-_разрешение_экрана

Автор вопроса: Евгений // 11.05.2007 / 14:46

Уважаемые Эксперты! 
У меня такой вопрос: Возможно ли сделать так, что при открытии программы, созданной в vb6, разрешение (размер экрана) будет устанавливатся на 1024х768,а при закрытии программы - восстанавливаться исходное разрешение. И если возможно, то как? 
Заранее благодарен!

Отвечает: Алексей Немиро // 11.05.2007 / 14:46

Здравствуйте,

0001:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

0012:

0013:

0014:

0015:

0016:

0017:

0018:

0019:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0028:

0029:

0030:

0031:

0032:

0033:

0034:

0035:

0036:

0037:

0038:

0039:

0040:

0041:

0042:

0043:

0044:

0045:

0046:

0048:

0049:

0050:

0051:

0052:

0053:

0054:

0056:

0058:

0059:

0060:

0061:

0062:

0063:

0064:

0065:

0066:

0067:

0068:

0070:

0071:

0072:

0073:

0074:

0075:

0076:

0077:

0078:

0079:

0080:

0081:

0082:

0083:

0084:

0085:

0086:

0088:

0089:

0090:

0091:

0092:

0093:

0094:

0095:

0096:

0097:

0099:

0100:

0101:

0102:

0103:

0104:

Option Explicit

Const WM_DISPLAYCHANGE = &H7E

Const HWND_BROADCAST = &HFFFF&

Const EWX_LOGOFF = 0

Const EWX_SHUTDOWN = 1

Const EWX_REBOOT = 2

Const EWX_FORCE = 4

Const CCDEVICENAME = 32

Const CCFORMNAME = 32

Const DM_BITSPERPEL = &H40000

Const DM_PELSWIDTH = &H80000

Const DM_PELSHEIGHT = &H100000

Const CDS_UPDATEREGISTRY = &H1

Const CDS_TEST = &H4

Const DISP_CHANGE_SUCCESSFUL = 0

Const DISP_CHANGE_RESTART = 1

Const BITSPIXEL = 12

Private Type DEVMODE

    dmDeviceName As String * CCDEVICENAME

    dmSpecVersion As Integer

    dmDriverVersion As Integer

    dmSize As Integer

    dmDriverExtra As Integer

    dmFields As Long

    dmOrientation As Integer

    dmPaperSize As Integer

    dmPaperLength As Integer

    dmPaperWidth As Integer

    dmScale As Integer

    dmCopies As Integer

    dmDefaultSource As Integer

    dmPrintQuality As Integer

    dmColor As Integer

    dmDuplex As Integer

    dmYResolution As Integer

    dmTTOption As Integer

    dmCollate As Integer

    dmFormName As String * CCFORMNAME

    dmUnusedPadding As Integer

    dmBitsPerPel As Integer

    dmPelsWidth As Long

    dmPelsHeight As Long

    dmDisplayFlags As Long

    dmDisplayFrequency As Long

End Type

Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean

Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Any) As Long

Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Dim OldX As Long, OldY As Long, nDC As Long

Sub ChangeRes(X As Long, Y As Long, Bits As Long)

    Dim DevM As DEVMODE, ScInfo As Long, erg As Long, an As VbMsgBoxResult

    'Get the info into DevM

    erg = EnumDisplaySettings(0&, 0&, DevM)

    'This is what we're going to change

    DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL

    DevM.dmPelsWidth = X 'ScreenWidth

    DevM.dmPelsHeight = Y 'ScreenHeight

    DevM.dmBitsPerPel = Bits '(can be 8, 16, 24, 32 or even 4)

    'Now change the display and check if possible

    erg = ChangeDisplaySettings(DevM, CDS_TEST)

    'Check if succesfull

    Select Case erg&

        Case DISP_CHANGE_RESTART

            an = MsgBox("You've to reboot", vbYesNo + vbSystemModal, "Info")

            If an = vbYes Then

                erg& = ExitWindowsEx(EWX_REBOOT, 0&)

            End If

        Case DISP_CHANGE_SUCCESSFUL

            erg = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

            ScInfo = Y * 2 ^ 16 + X

            'Notify all the windows of the screen resolution change

            SendMessage HWND_BROADCAST, WM_DISPLAYCHANGE, ByVal Bits, ByVal ScInfo

            MsgBox "Everything's ok", vbOKOnly + vbSystemModal, "It worked!"

        Case Else

            MsgBox "Mode not supported", vbOKOnly + vbSystemModal, "Error"

    End Select

End Sub

Private Sub Form_Load()

    Dim nDC As Long

    'retrieve the screen's resolution

    OldX = Screen.Width / Screen.TwipsPerPixelX

    OldY = Screen.Height / Screen.TwipsPerPixelY

    'Create a device context, compatible with the screen

    nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)

    'Change the screen's resolution

    ChangeRes 640, 480, GetDeviceCaps(nDC, BITSPIXEL)

End Sub

Private Sub Form_Unload(Cancel As Integer)

    'restore the screen resolution

    ChangeRes OldX, OldY, GetDeviceCaps(nDC, BITSPIXEL)

    'delete our device context

    DeleteDC nDC

End Sub

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000187: Как это делать!

Автор вопроса: Sergey1650 // 11.05.2007 / 11:08

Люди добрые подскажите чайнику как на VB6 работать с большими числами типа как MS Calkulyator. Plizzzzzz!

Отвечает: Алексей Немиро // 11.05.2007 / 11:08

Здравствуйте,

Не совсем понятен вопрос, так что извините, если ответ будет таким же
не понятным, или не полным ;)

0001:

0002:

0003:

0004:

0005:

0006:

Private Sub Form_Load()

  Dim x As Double, y As Double

  x = 1.5E+32

  y = 4.231E+233

  MsgBox x + y

End Sub

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000185: доступ к базе данных

Автор вопроса: Алёна // 11.05.2007 / 04:38

Здравствуйте, expert.

Подскажите пожалуйста, как открыть базу данных, созданную в MS ACCESS
2000, в visual basic 6.0?    Когда я прописываю путь для ее открытия,
выдается сообщение: неправильный формат базы данных.

-- 
С уважением,
 Алёна                          mailto:ksd2002@list.ru

Отвечает: Алексей Немиро // 11.05.2007 / 04:38

Здравствуйте,

Создайте стандартный EXE-проекта. Добавьте ссылку на библиотеку MS
DAO 3.6 (меню Проект => Ссылки => Microsoft DAO 3.6 Object Library).
Для чтения данных из базы данных, используйте следующий код:

0001:

0002:

0003:

0004:

0006:

0007:

0009:

0010:

0012:

0013:

0014:

0015:

0016:

0017:

0018:

0019:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0028:

'создание необходимых объектов

Dim RS As DAO.Recordset 

Dim db As DAO.Database 

Dim strSQL As String 

'подключение к базе данных Access 

Set db = DAO.OpenDatabase(App.Path & "\db.mdb") 

'стандартный SQL-запрос на выборку данных 

strSQL = "SELECT * FROM tblMain ORDER BY id" 

  'выполнение запроса 

  Set RS = db.OpenRecordset(strSQL) 

  'проверка количества записей в БД 

  RS.MoveLast: RS.MoveFirst 

  If RS.RecordCount > 0 Then 

    'перебор данных 

    Do Until RS.EOF 

      'вывод данных 

      Debug.Print RS("id") 

      'следующая запись 

      'ВНИМАНИЕ: если эту строку пропустить 

      'получится бесконечный цикл 

      'и программа зависнет! 

      RS.MoveNext 

    Loop 

  End If

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000182: помогите_с_кодом_на_Математические_операции.

Автор вопроса: Лариса Ульянкина // 08.05.2007 / 17:28

1. Обработка чисел.
Найти вторую цифру дробной части вещественного числа.

2. Обработка числовой последовательности с заданным количеством элементов.
В числовую переменную последовательно вводится N ненулевых целых чисел. Определить количество чередований знаков чисел у этой последовательности.

3. Обработка числовой последовательности с неопределенным
количеством элементов.
   Сколько чередований знаков у 3-значных членов вводимой последовательности с
   неопределенным числом элементов?

Отвечает: EROS // 08.05.2007 / 17:28

Здравствуйте Лариса Ульянкина
1. Не указан язык программирования
2. Система "Эксперт" предназначена для помощи по программированию, а
   не для выполнения домашнего задания
3. Дайте математическое решение Ваших заданий и вопросы по написанию
   кода, которые у Вас вызвали трудности.
-- 
С уважением,
 EROS

Вопрос #000179: TcpListener,TcpClient,передача данных.

Автор вопроса: Greg // 08.05.2007 / 13:00

C# / Framework 3

Здравствуйте Эксперты,
Решил я тут программу написать для передачи данных по интернету, или по 
влс - не важно. Дайте пожалуйста пример сервера и клиента- думаю хватит 
TcpListener и TcpClient и пр. в сокетах...
Я по сети не работал ещё, а говорят- сетевые приложения- будущее.

И ещё- передавать я буду текст (начну
с чата).

------------------------------
Спасибо за внимание.

Отвечает: Алексей Немиро // 08.05.2007 / 13:00

Здравствуйте,

0001:

0002:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

0013:

0014:

0015:

0016:

0017:

0018:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0028:

0030:

0032:

0033:

0035:

0037:

0038:

0039:

0040:

0041:

0042:

0043:

0044:

0045:

0047:

0049:

0050:

0051:

0052:

0053:

0054:

0055:

0056:

0057:

0058:

0059:

0060:

0061:

0062:

0063:

0064:

0065:

public static void Main()

{    

  try

  {

    // порт для прослушивания - 13000.

    Int32 port = 13000;

    IPAddress localAddr = IPAddress.Parse("127.0.0.1");

    // TcpListener server = new TcpListener(port);

    TcpListener server = new TcpListener(localAddr, port);

    // начинаем прослушивание

    server.Start();

    // создаем буфер чтения

    Byte[] bytes = new Byte[256];

    String data = null;

    // Enter the listening loop.

    while(true) 

    {

      Console.Write("Waiting for a connection... ");

      // Perform a blocking call to accept requests.

      // You could also user server.AcceptSocket() here.

      TcpClient client = server.AcceptTcpClient();            

      Console.WriteLine("Connected!");

      data = null;

      // Get a stream object for reading and writing

      NetworkStream stream = client.GetStream();

      Int32 i;

      // Loop to receive all the data sent by the client.

      while((i = stream.Read(bytes, 0, bytes.Length))!=0) 

      {   

        // Translate data bytes to a ASCII string.

        data = System.Text.Encoding.ASCII.GetString(bytes, 0, i);

        Console.WriteLine(String.Format("Received: {0}", data));

        // Process the data sent by the client.

        data = data.ToUpper();

        Byte[] msg = System.Text.Encoding.ASCII.GetBytes(data);

        // Send back a response.

        stream.Write(msg, 0, msg.Length);

        Console.WriteLine(String.Format("Sent: {0}", data));            

      }

      // отключение

      client.Close();

    }

  }

  catch(SocketException e)

  {

    Console.WriteLine("SocketException: {0}", e);

  }

  Console.WriteLine("\nHit enter to continue...");

  Console.Read();

}

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000178: SQL, как с ним работать?

Автор вопроса: Александр // 08.05.2007 / 12:36

Уважаемые эксперты, я никогда не работал с SQL(имеется в виду что я никогда
не работал ни с одним видом SQL но у меня установлен SQL Server встроенный в
пакет VS 2005 .NET). Вопрос заключается в следующем:
1 - как создать базу SQL? Т.е. какую программу запускать, что в ней жать и
как это дело сохранять... Из SQL знаю только запросы...
2 - как взаимодействовать
с ней в ASP.Net. Т.е. как подключиться к ней(т.е
что изменилось в строке подключения, если можно на примере) 
3 - нюансы взаимодействия SQL и ASP.NET 2.0. Т.е. что ещё изменяется при
использовании SQL если ранее был использован Access? + Слова Алексея - "Если
юзать SQL Server, то можно использовать встроенные средства ASP .NET и
забыть про щифрование и аторизацию, все будет на полуавтомате, даже код не
надо писать :))", если можно поконкретнее? Желательно с примерами :)

Отвечает: Алексей Немиро // 08.05.2007 / 12:36

Здравствуйте,

у меня установлен SQL Server встроенный в пакет VS 2005 .NET)

рекомендую найти SQL Server Management какой-нибудь, лучше конечно
SQL Server Management Studio Develope Edition, но для начала
хватит и Express, скачать можно на сайте Microsoft, весит около 40 метров.

1 - как создать базу SQL? Т.е. какую программу запускать, что в ней жать и
как это дело сохранять... Из SQL знаю только запросы...

запускаешь скаченную SQL Server Management Studio Express, появится
окно авторизации, если база находится, или будет находиться в
твоем компьютере, то ставишь Windows Authentication и просто наживаешь
на кнопку "Connect" (в поле Server name должено быть имя твоего
компьютера). Если база
находится на удаленном сервере, то
выбираешь SQL Server Authentication, вводишь адрес сервера, логин и
пароль. Ну а далее, надо создать таблицу, там есть кнопка "New Query",
нажимаешь на нее, появляется текстовое окно, туда пишешь:

CREATE TABLE MyFirstTable (
id int not null primary key identity,
dateCreated datetime null,
name1 nvarchar(255) null,
name2 nvarchar(255) null
)

ну и все что душе угодно ;)

При первом
запуске там должны быть несколько системных баз, если
требуется создать новую, то просто покликакай по менюшкам, там все
просто. Таблицы также можно создавать, а также просматривать  и
редактировать. Но запросами все это делать гораздо быстрее..

2 - как взаимодействовать с ней в ASP.Net. Т.е. как подключиться к ней(т.е
что изменилось в строке подключения, если можно на примере)

Также как и с Access, только использовать оюбъекты из Sql.SqlClient.

3 - нюансы взаимодействия SQL и ASP.NET 2.0. Т.е. что ещё изменяется при
использовании SQL если ранее был использован Access?

True = 1, False = 0, ну и много других ньюансов :)

Слова Алексея - "Если
юзать SQL Server, то можно использовать встроенные средства ASP .NET и
забыть про шифрование и авторизацию, все будет на полуавтомате, даже код не
надо писать :))", если можно поконкретнее? Желательно с примерами

Какого такого Алексея, я такого не знаю..


-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000174: Re: Kbyte.Ru: Ответ Эксперта - Как сменить системную дату и время?

Автор вопроса: "umka-dia" // 08.05.2007 / 03:00

Спасибо за ответ. Но я бы хотела уточнить. Например, если на форме есть TextBox, в него вводится нужное время, допустим "16:30:35", как при нажатии на кнопку "Изменить" поменять время системы. Заранее спасибо.

Отвечает: Алексей Немиро // 08.05.2007 / 03:00

Здравствуйте,

http://kbyte.ru/Expert/Show.aspx?id=172

0001:

0002:

0003:

0004:

Private Sub Command1_Click()

  'время также, только через Time

  Time = Text1.Text

End Sub

если время будет указано не правильно, произойдет ошибка.

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000175: Помогите воспроизвести видео

Автор вопроса: "klaider" // 07.05.2007 / 18:45

День добрый Експерты!
У меня к вам всего один вопрос.Вот он:
Как средствами Visual Basic 6.0 воспроизвести видео файл, желательно максимально подробно и без Api (если это возможно) так как делаю первые шаги по изучению данного языка благодарен за помощь

Отвечает: Анатолий Присяжнюк // 07.05.2007 / 18:45

Решение очень просто и вы можете сами все реализовать, для чего необходимо подключить на панели компонентов стандартный медиаплейер и все...
Остальное для Вас не предоставит трудностей...
Желаю успехов! 
С уважением - А.В.Присяжнюк

Вопрос #000172: Как сменить системную дату и время?

Автор вопроса: "umka-dia" // 07.05.2007 / 09:23

Здравствуйте. Помогите, пожалуйста. Как сменить системное время и дату с помощью программы, написанной на visual basic 6.0?

Отвечает: Алексей Немиро // 07.05.2007 / 09:23

Здравствуйте,

0001:

0002:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

Private Sub Form_Load()

  If MsgBox("Вы действительно хотите поменять системную дату на 8 июня 2008 года?", vbQuestion Or vbYesNo) = vbYes Then

    Date = DateSerial(2008, 6, 8) 'устанавливаем новую дату

    'можно и так:

    'Date = "03.10.1983"

  End If

  'время также, только через Time

  'Time = TimeSerial(10, 11, 59)

  '                  чч, мм, сс

End Sub

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000170: LinkButton, как отключить свойство обновления страници?

Автор вопроса: Александр // 06.05.2007 / 11:43

Уважаемые эксперты, как заставить LinkButton не обновлять страницу при
нажатии...? Я нашел такой способ (см. пункт1), но должен быть более простой:
1-LinkButton1.Attributes.Add("onclick", "return false");

Отвечает: Алексей Немиро // 06.05.2007 / 11:43

Здравствуйте,

1. LinkButton1.Attributes.Add("onclick", "return false;")
2. <asp:LinkButton ID="LinkButton1" runat="server" OnClientClick="return false;" />
3. <asp:LinkButton ID="LinkButton1" runat="server" OnClientClick="return confirm('Да или нет?');"
/>

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Голосование на Kbyte.Ru

Голосование на Kbyte.Ru через E-Mail!
Чтобы проголосовать через E-Mail, выберите ответ, если у Вас настроен почтовый клиент, должно появиться окно с новым сообщением, ничего не изменяйте, а просто отправьте пустое письмо и в течение некоторого времени Ваш голос будет зачтен.
Для голосования через сайт, перейдите по этой ссылке: http://kbyte.ru/Voting/.

Пользуетесь ли Вы системой «Эксперт» на нашем сайте?
На нашем сайте работает система «Эксперт», через которую любой желающий может задать вопрос Экспертам в области программирования и информационных технологий.
Да, только ей и пользуюсь! (1)
Да, периодически использую (2)
Вашей – нет, но иногда использую другие подобные системы (0)
Нет, предпочитаю использовать форумы (3)
Нет, мне это вообще не надо (0)
А как ей пользоваться? (0)
Нет, а что это? (1)

Всего голосов: 7

Голосование на Kbyte.Ru

Наверх

Последнее на форумах

MsSQL | Автор: Kolya007
Добавлено: 11.05.2007 / 12:19 | ответов: 6 | просмотров: 11

У кого есть ссылка на русское руководство и/или учебник по MsSQL?
Скажите, как можно заполнить таблицу в БД MsSQL вручную и возможно ли вообще?

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Помогите сделать простую вещь! | Автор: surecom_16
Добавлено: 11.05.2007 / 10:37 | ответов: 6 | просмотров: 19

суть программы в том, что она копирует нужные файлы на сервер
Microsoft.VisualBasic.FileIO.FileSystem.CopyDirectory(PrmDir, "\\10.11.2.151\d$\prm", True)

но перед этим нужно залогиниться на сервер, для того чтобы был доступ к админской шаре.
А вот как это сделать, я не знаю.
Подскажите, кто знает
Заранее благодарен

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Фильтр в DataGridView | Автор: -АлександР-
Добавлено: 11.05.2007 / 10:24 | ответов: 2 | просмотров: 11

Для филтра в DataGridView использую BindingSource1, но

BindingSource1.Filter = _
"Наименование Грунта = '1'"

выдает ошибку Синтаксическая ошибка: отсутствует операнд после оператора 'Грунта'.

пытался сделать так:
BindingSource1.Filter = _
"'Наименование Грунта' = 'Песчаные грунты гравелистые и крупные'", где

Наименование Грунта - столбец
Песчаные грунты гравелистые и крупные - текст строки (точнее ячейки) в этом столбце, который точно есть

а он ее не аходит (( - выдввет пустую таблицу((

Помогите пожалуйста

Заранее спасибо!

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Подключение к Базе Данных и отображение её в DataGridView | Автор: -АлександР-
Добавлено: 11.05.2007 / 09:52 | ответов: 1 | просмотров: 5

Подключение к Базе Данных и отображение её в DataGridView?

Привет всем!

Я пытаюсь сделать базу данных и отобразить ее в датагридвьюв, но что-то не получается (хотя ошибки не выдает):

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
Private
Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    Dim conn As New System.Data.OleDb.OleDbConnection()

    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
  "C:\Documents and Settings\Александр\Рабочий стол\DataBase3.mdb"

    Dim customerTable As New DataTable()
    Dim
myCmd As New OleDbCommand
    Dim ds As New DataSet



    Try
      conn.Open()
      myCmd.Connection = conn
      myCmd.CommandText = "SELECT * FROM Table1"

      Dim da As New OleDbDataAdapter(myCmd)
      Dim db As New OleDbCommandBuilder(da)
      Dim dt As
New DataTable
      da.Fill(dt)
      BindingSource1.DataSource = dt
      ' Insert code to process data.
      'BindingSource1.Filter = "Название грунта='Песчаные грунты гравелистые и крупные'"
      DataGridView1.DataSource
= BindingSource1

    Catch ex As Exception
      MessageBox.Show("Failed to connect to data source")
    Finally
      conn.Close()
    End Try


  End Sub

датагридвьюв просто не заполняется, а остается пустой... может быть дело в BindingSource1, я использую его как прослойку, чтобы потом можно было с помощью нее фитьтровать строки

помогите пожалуйста найти где ошибка
заранее спасибо за помощь!

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Массовое удаление ICQ номеров | Автор: Алексей
Добавлено: 11.05.2007 / 08:28 | ответов: 1 | просмотров: 9

Со вчерашнего для стали творится странные вещи с ICQ, у множества пользователей без особых причин стали исчезать ICQ номера со статусом "deleted". Проблема больше коснулась номеров с небольшим количеством цифр (6-7), однако известны случаи пропадания и 10-ти значных номеров.
Самое интересное в том, что большинство номеров принадлежат Российским пользователям. Высказываются самые разные мнения по поводу того что произошло:

* AOL пытается бороться с продажей icq-номеров( хотя удалено множество номеров никак с этим несвязанных)
* очередные технические проблемы на сервере icq
* хакерская атака. есть версия, что кто-то научился подделывать репорты-на-спам в icq-протоколе и таким образом все эти номера были удалены системой якобы за спам
* Атака эстонских хакеров

Причем больше всего жалоб именно от тех, кто использует альтернативные клиенты. Больше всего пострадали пользователи QIP и Miranda. Это в свою очередь может навести на мысль о том, что идет целенаправленная борьба с программами-альтернативами стандартному ICQ-клиенту. Но пока нет официальных заявлений, это всего лишь предположения (хотя возможно никаких комментариев со стороны компании-владельца и не будет). Кроме того, замечены попытки выманивания денег, некоторые изощренные шарлатаны предлагают свои услуги по восстановлению удаленных номеров, однако верить этому нельзя, так как они попросту не в силах ничего сделать.

Единственное, что предлагается сделать в данной ситуации, так это в срочном порядке попытаться временно пересесть на официальный ICQ-клиент, хотя опять же, никаких гарантий это не даст.

securitylab.ru

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

AppActivate не срабытавает под Win64 | Автор: MArtmath
Добавлено: 10.05.2007 / 09:40 | ответов: 3 | просмотров: 17

Может кто сталкивался?
Sub CATMain()
Set WShell = CreateObject("WScript.Shell")
Dim WinWnd As Long
WinWnd = FindWindow(vbNullString, "Текстовый редактор для CATIA")
If WinWnd = 0 Then
'запуск приложения
Else
msgbox WinWnd
WShell.AppActivate "Текстовый редактор для CATIA"
ShowWindow WinWnd, SW_SHOWNORMAL
End If
End Sub
Почему при msgbox WinWnd приложение нормально активируется,а без него нет???(под 32 все работает адекватно)....
Есть ли аналог данной функции в winapi?
Заранее спс за помощь

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Как засунуть программу в трей? | Автор: pasha
Добавлено: 09.05.2007 / 15:53 | ответов: 1 | просмотров: 18

Вопрос касается VB NET 2003 NotifityIcon

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Простая задача на VB 6.0 | Автор: Novi4ok
Добавлено: 09.05.2007 / 10:51 | ответов: 6 | просмотров: 35

Ребят, доброе утро всем и с Днём Победы Вас!
Я не так давно начал изучать ВБ 6.0. Учу по учебнику "Visual Basic в задачах и примерах" И.Сафронов. М.- 2006.
Так вот там по ходу выкладки материала автор по новой теме дает подборку задач, но решения в конце книги есть не на все задачи(за это автору отдельно большое спасибо), потому обращаюсь к Вам, господа программисты!
Задача звучит так:
Запрашиваются три целых положительных числа, программа проверяет, можно ли из этих чисел составить треугольник, и, если можно, то рисует его (на форме или в Picture Box'e) и вычисляет, а также выводит его площадь. Если составить тр-ник не получится, то выдает соответствующее сообщение.
Мне не понятно в задаче: 1) как можно построить тругольник без координат, зная только длины сторон - сколько я не пытался использовать формулу: d^2=(x1-x2)^2 + (y1-y2)^2, (d -длина стороны, x1,x2,y1,y2 - координаты) - ничего не получается. Есть подозрение, что нужно самому задать произвольно одну координату, а остальные через формулу... но это тоже пробовал - результат тот же.
2) как провести проверку на возможность нарисовать треугольник - по формуле Герона что ли?

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Сменил ICQ! | Автор: Bille Gates
Добавлено: 09.05.2007 / 10:36 | ответов: 1 | просмотров: 18

Я сменил номер аси, теперь он 489779684

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Вызов процедуры из AutoItX3.dll | Автор: MArtmath
Добавлено: 08.05.2007 / 09:40 | ответов: 3 | просмотров: 25

Please помогите разобраться почему не работает нашел в помощи
AU3_API void WINAPI AU3_WinGetTitle(const char *szTitle, /*[in,defaultvalue("")]*/const char *szText, char *szRetText, int nBufSize);
Вроде как на дельфи
procedure AU3_WinGetTitle(szTitle: pchar; szText: pchar; szRetText: pchar; nBufSize: integer); stdcall; external 'AutoItX3.dll';
На VB 6 переделал так:
Private Declare Sub AU3_WinGetTitle Lib "AutoItX3" (ByVal szTitle As String, ByVal szText As String, ByVal szRetText As String, nBufSize As Long)
Private Sub Command1_Click()
Dim ddd As String
Dim ddd2 As String
Dim ddd3 As String
ddd = "CATIA"
ddd2 = ""
ddd3 = ""
AU3_WinGetTitle ddd, ddd2, "", 512
MsgBox szRetText
End Sub
Программа вылетает с ошибкой :Инструкция по адресу "0x0393ecf9" обратилась к памяти по адресу "0x0001f8000" не может быть "written"
Заранее спасибо за помощь

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Наверх

Последние статьи

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 1228

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. Вот именно не известный мне способ определения реакций меня и заинтересовал, но код программы...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 1362

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 05.10.2006 / 12:15 | просмотров: 2625

Эта статья будет полезна только тем людям, у которых установлен Microsoft Word 2000 или выше! Мы научимся делать всё возможное с документами MS WORD при помощи VB 2003/2005 .NET.

Visual Basic .NET: Работа с файлами
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 04.10.2006 / 10:35 | просмотров: 3174

В этой статье мы поговорим о работе с файлами. Научимся добавлять и удалять файлы/каталоги, записывать и читать данные из файла и.т.д.

ASP .NET 2.0: Эталонные страницы
Автор: Немиро Алексей | добавлено: 27.08.2006 / 04:08 | просмотров: 2391

Как известно, большинство сайтов имеют однотипную, общепринятую разметку страниц, неотъемлемой частью которой является верхний и нижний колонтитулы и, пожалуй, самая главная часть - тело страницы, хотя конечно, бывают и исключения. ASP .NET 2.x предлагает уникальный метод создания одинаковой разметки для страниц сайта – это использование, так называемых, эталонных страниц. Если вы работали с ранними версиями ASP(ASP, ASP .NET 1.x), то, наверное, помните, что постоянно приходилось копировать HTML-код страницы с элементами ASP. Конечно, использование включаемых файлов (include) в классическом ASP, и пользовательских элементов управления (*.ascx) в ASP .NET 1.x, значительно упрощало разработку Web-сайтов, но это не сравнится с тем, что предлагает ASP .NET 2.x.

Описание ошибок VB
Автор: [root] | добавлено: 29.07.2006 / 06:58 | просмотров: 3412

В данном обзоре содержится русскоязычное описание ошибок Visual Basic 5.0/6.0.

Горячие клавиши VB 6.0
Автор: [root] | добавлено: 20.07.2006 / 13:21 | просмотров: 1815

В данном обзоре рассмотрены горячие клавиши Visual Basic 5.0/6.0, которые значительно ускоряют процесс разработки и тестирования программ.

ASP .NET 2.0: Файл Global.asax
Автор: Немиро Алексей | добавлено: 17.07.2006 / 18:04 | просмотров: 2179

Файл Global.asax является необязательным файлом приложений ASP .NET и содержит дополнительный код, отвечающий за обработку событий, происходящих на уровне приложения. Этот файл должен находиться в корневом каталоге Web-приложения. В ASP .NET 1.1 сей файл автоматически создавался Visual Studio при создании нового Web-проекта, в ASP .NET 2.0 Visual Studio Global.asax автоматически не создает, но его можно добавить в проект вручную. Все изменения, внесенные в файл Global.asax отслеживаются средой ASP .NET, и приложение перезагружается...

Как узнать страну по IP-адресу?
Автор: Amit Gupta | добавлено: 17.07.2006 / 08:09 | просмотров: 35281

Интернет широко распространен в большинстве стран и континентов. Узнать страну посетителей вашего веб-сайта может быть не легкой задачей, особенно если вы не знаете как это сделать...

Visual Basic 6.0 - Экспорт DataReport в Microsoft Word
Автор: John D. Conway | добавлено: 17.07.2006 / 06:16 | просмотров: 3113

В этой статье мы создадим пример базы данных Microsoft Access и пользовательский интерфейс в среде Visual Basic 6.0. Сделать это будет относительно несложно, поскольку для работы с нашей базой данных мы будем использовать компонент ADODC Componenet (Microsoft ADO Data Control 6.0 (OLEDB)). Мы добавим DataEnvironment и DataReport и буквально, в течении минуты, мы уже сможем экспортировать наш DataReport в Microsoft Word Document. (.doc)...

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Удаление куков (Cookies)
Дата добавления: 01.08.2006 / 12:04 | просмотров: 506 | платформа: ASP

Проверка существования файла с использованием API
Дата добавления: 31.07.2006 / 12:41 | просмотров: 511 | платформа: VB

Как получить имя пользователя? (с использованием API)
Дата добавления: 24.03.2007 / 12:19 | просмотров: 51 | платформа: VB .NET

Преобразование строки в Double, исключая проблемы с разделителем
Дата добавления: 27.04.2007 / 15:53 | просмотров: 40 | платформа: VB .NET

Получение данных из Базы Данных MS Access
Дата добавления: 31.07.2006 / 17:39 | просмотров: 811 | платформа: ASP .NET (VB)

Как получить значение определенного параметра из строки запроса?
Дата добавления: 31.07.2006 / 15:42 | просмотров: 338 | платформа: ASP .NET (VB)

Как преобразовать байты в килобайты?
Дата добавления: 31.07.2006 / 12:38 | просмотров: 425 | платформа: VB

Запуск программы
Дата добавления: 21.08.2006 / 20:19 | просмотров: 662 | платформа: VB

Как сделать поле для ввода пароля?
Дата добавления: 01.08.2006 / 22:08 | просмотров: 382 | платформа: VB .NET

Как переключиться в любое окно?
Дата добавления: 31.07.2006 / 12:51 | просмотров: 426 | платформа: VB

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Директор заводит в кабинет секретаршу и начинает срывать с нее платье.
Та:
- Иван Петрович, вы хоть дверь-то закройте!
- Нельзя, Клава, нельзя! Еще подумают, что мы тут водку пьем.

Рейтинг: -2
Всего голосов: 1