DataGrid не заполняется

[Novichok$]

Просматриваю OleDbDataAdapter (просмотр данных)
Заполняю DataSet, вижу данные из таблицы , закрываю ...
А у меня на форме все равно пусто

Т.е. я вижу колонки своей таблицы, делаю «Старт», кликаю на любом пустом поле,
Во всех полях появляется NULL

[Rainbow]

Не понятно, что ты делаешь.
Код сюда дай: как вытаскиваешь данные, как заполняешь DataSet, как с гридом связываешь...

[Novichok$]

создаю OleDbDataAdapter (при создании в мастре создаю соответствеюший SQL запрос), автоматитически создается Connection.
Генерирую DataSet, указываю источник данных для нее.
В OleDbDataAdapter просмотре данных Заполняю DataSet.

Создаю DataGrid, указываю в свойствах для нее DataSet м источник данных.

Я думал это все, что нужно.
Просмотрел форум, по этой теме таких простых вопросов ни кто не задавал

[Novichok$]

Подскажи, как это «культурно» остановить.

Задумано так, что вместо MessageBox.Show("Pause")
Будет выполняться код.

Задача была – получить бесконечный цикл. Так, цикл получил, а как теперь остановить его – не знаю.
На форме только Button и CheckBox.
Нажимаю на Button – процесс пошел.
Хотел убрать галочку в CheckBox, что бы снять условие для работы бесконечного цикла, но CheckBox «не хочет» (недоступен).
Похоже, я пытаюсь влезть в работающий процесс, а VB этого не позволяет.

Может кто знает, как быть

Код: Выделить всё

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    StarteSleep()
End Sub

Private Sub StarteSleep()
        While Me.CheckBox1.Checked
            MessageBox.Show("Pause")
            Sleep(60000)
        End While
End Sub


[Rainbow]

DoEvents надо сделать внутри цикла. Эта штука заставляет VB обработать все пришедшие за это время события.

Еще мысль: удобно было бы сделать, чтобы был не обычный интерфейс (как форма с кнопкой и чекбоксом), а иконка в трее с соответствующими командами. Был, вроде класс - надо поискать по слову Tray. Понимаешь, о чем я?

Ты разобрался с гридом? Без кода не понятно, в чем ошибка...

[Novichok$]

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

А с отсальным, буду пробовать, хотя я и не совсем понимаю как

[Novichok$]

Код: Выделить всё

Private Sub btnGO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGO.Click
    btnProtokolAnzeigen.Enabled = False
    Dim PfadEXE As String 'Pfad zu FTP.exe
    Dim proc As New System.Diagnostics.Process 'Variable für den Start der FTP.exe
    PfadEXE = "C:\FTP21.10.exe"
    proc.Start(PfadEXE, Parametr)
            While пока существует процесс с именем "FTP21.10.exe"
                   btnBBC1.Enabled = False

        End While

End Sub

Не подскажешь, как это сделать : While пока существует процесс с именем "FTP21.10.exe" ?
Я нашел GetProcessesByName(), но все равно не соображу

[Novichok$]

Вот такая беда еще у меня.

Вставил, как ты говорила Application.DoEvents(), и с MessageBox, все действительно работает. НО,
Как только я вместо MessageBox подключаю свой код с таймером и меняю временной интервал с 5 на 10, или того хуже 20 секунд ... труба, или вообще не реагирует ( не ставится галочка в CheckBox1) либо ставится после 10той попытки, и после двойного щелчка почему то.
Конпка Close работает не с 10той а с 5той попытки, в общем, такая же история.

Можно ли здесь что нибудь придумать, может Thtead или добавить еще одну форму и попробовать передать ей управление.
Мне необходимо, что бы в момент щелчка на Close или CheckBox1 каким то образом останавливалась работа Sleep (или не останавливалась, а просто приоритет выполнения процесса менялся ) и выполнялись действия с Close или CheckBox1.

Код: Выделить всё

Private Sub StarteSleep()

     While CheckBox1.Checked = False
            'TimerAction()
            'MessageBox.Show("Igraet!")
            Sleep(5000)
            Application.DoEvents()

        End While
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
        StarteSleep()

End Sub

Private Sub Close _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close.Click
  Me.Close()
End Sub

[Novichok$]

Глазам своим не верю, сайт снова работает

[nio]

Так как это всё-таки делать - с датагридом? Хотя бы и программно...
У меня та же проблема, сижу третий час...