0 голосов
спросил от в категории VB6
Я нашел полезный код и изменил его как свое требование, и он работает. он показывает значения в combobox, которые были обновлены в новой форме текстового поля компании.

Private Sub Form_Initialize() On Error GoTo Form_Initialize_Err     Dim cnn As New ADODB.Connection     Dim rst As New ADODB.Recordset     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:Database FolderNotice BookNotice Book projectdatabaseNotice Book.mdb;Persist Security Info=False"     rst.Open "SELECT DISTINCT [CompanyName] FROM CompanyDetails ORDER BY [CompanyName];", _              cnn, adOpenStatic     rst.MoveFirst     With Me.CmbSelectCompany         .Clear         Do             .AddItem rst![CompanyName]             rst.MoveNext         Loop Until rst.EOF     End With Form_Initialize_Exit:     On Error Resume Next     rst.Close     cnn.Close     Set rst = Nothing     Set cnn = Nothing     Exit Sub Form_Initialize_Err:     MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "Error!"     Resume Form_Initialize_Exit End Sub

спасибо за ур время и помощь:)

Ваш ответ

Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.

Категории

Добро пожаловать на сайт DraftingCode Q&A, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Связанных вопросов не найдено

...