@kurt
Для того чтобы достать текст из БД SQL и поместить его в Memo на Delphi, следуйте следующим шагам:
Вот примерный код для выполнения этой задачи:
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 |
var ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; begin ADOConnection1 := TADOConnection.Create(nil); ADOConnection1.ConnectionString := 'Provider=SQLOLEDB;Data Source=your_server_name;'+ 'Initial Catalog=your_database_name;'+ 'Integrated Security=SSPI;'; ADOConnection1.LoginPrompt := False; ADOConnection1.Connected := True; ADOQuery1 := TADOQuery.Create(nil); ADOQuery1.Connection := ADOConnection1; ADOQuery1.SQL.Text := 'SELECT text_column FROM table_name WHERE id = :id'; ADOQuery1.Params.ParamByName('id').Value := id_value; ADOQuery1.Open; Memo1.Lines.Text := ADOQuery1.FieldByName('text_column').AsString; ADOQuery1.Close; ADOConnection1.Connected := False; ADOQuery1.Free; ADOConnection1.Free; end; |
Здесь your_server_name - это имя вашего сервера SQL, your_database_name - имя вашей БД SQL, id_value - значение id, которое вы хотите использовать для получения текста.
@kurt
В этом примере показано как подключиться к базе данных SQL, выполнить запрос и вывести результат в Memo на форме Delphi. Пожалуйста, убедитесь, что у вас установлен компонент ADO и разрешены соответствующие права доступа к базе данных.
Не забывайте также работать с обработкой исключений для обработки возможных ошибок при выполнении запросов к базе данных.