Intereting Posts
Добавить день в метку времени rails добавить новую строку в таблицу django & sql – как я могу эффективно хранить и обновлять информацию о порядке сортировки, связанную с записями в моей таблице базы данных? Импорт Oracle UNION ALL Просмотр в Entity Framework EDMX Получать подмножество сообщений между конкретными пользователями Получить первую и последнюю дату следующего месяца в MySQL Как предикат IN работает в SQL? sqlite3 измельчает / сокращает / сокращает мои текстовые столбцы Oracle – ORA-01489: результат конкатенации строк слишком длинный Сравнение строк в таблице оракула и сопоставление обновлений Как вернуть строку образца из базы данных по одному Проверьте, находится ли время между двумя моментами (время DataType) Использование переменной для указания «размера» при объявлении VARBINARY Свяжите 5 элементов в каждом ряду ретранслятора Проверьте подключение к Интернету из sql-запроса / скрипта …?

VB | Загрузка SQL-запроса в Combobox

Я пытаюсь заполнить combobox с результатом SQL. Я думаю, что моя проблема заключается в обработке данных в форме данных.

Dim sql As String Dim sqlquery As String Dim ConnectionString As String ConnectionString = "Data Source=(local);Initial Catalog=Control;Persist Security Info=True;User ID=user;Password=pass" sqlquery = "Select dbName from Databases" Using connection As SqlConnection = New SqlConnection(ConnectionString) connection.Open() Using conn As SqlCommand = New SqlCommand(sqlquery, conn) Dim rs As SqlDataReader = comm.ExecuteReader Dim dt As DataTable = New DataTable dt.Load(cmboxDatabaseName) End Using 'comm End Using 'conn 

Когда я запускаю программу, я просто смотрю на грустное пустое поле со списком.

Почти правильно, но вам нужно загрузить данные, используя DataReader.
Затем анализ DataTable в DataSource Combo

 Using connection As SqlConnection = New SqlConnection(ConnectionString) connection.Open() Using comm As SqlCommand = New SqlCommand(sqlquery, connection) Dim rs As SqlDataReader = comm.ExecuteReader Dim dt As DataTable = New DataTable dt.Load(rs) ' as an example set the ValueMember and DisplayMember' ' to two columns of the returned table' cmboxDatabaseName.ValueMember = "IDCustomer" cmboxDatabaseName.DisplayMember = "Name" cmboxDatabaseName.DataSource = dt End Using 'comm End Using 'conn 

Также вы можете установить свойство combobox ValueMember имя столбца, которое вы будете использовать в качестве ключа для будущей обработки, и свойство DisplayMember для имени столбца, которое вы хотите отображать в виде текста на свой выбор для своего пользователя

вы также можете сделать это как

 Dim Con = New SqlConnection(_ConnectionString) Dim cmdAs New SqlCommand Dim dr As New SqlDataReader Try If Con.State = ConnectionState.Closed Then Con.Open() cmd.Connection = Con cmd.CommandText = "Select field1, field2 from table" dr = cmd.ExecuteReader() ' Fill a combo box with the datareader Do While dr.Read = True ComboBoxName.Items.Add(dr.GetString(0)) ComboBoxName.Items.Add(dr.GetString(1)) Loop Con.Close() End If Catch ex As Exception MsgBox(ex.Message) End Try 

Надеюсь, это сработает для вас.