Delphi:
Процедура TForm1.Button1Click (Sender: TObject);
было
strSQL, sfilename: строка;
MStream: TMemoryStream;
начать
con1.Connected: = True;
qry1.sql.clear;
strsql: = 'INSERT INTO s_ipadversion (versionno, ipadkhd) ЗНАЧЕНИЯ (: нет,: upfile)';
qry1.sql.add (strsql);
sfilename: = 'е: \ Retail.exe';
MStream: = TMemoryStream.Create;
MStream.LoadFromFile (sfilename);
. qry1.Parameters.ParamByName ( 'нет') значение: = '2019.7.0.8';
qry1.Parameters.ParamByName ( 'upfile') LoadFromStream (MStream, ftBlob).
MStream.Free;
qry1.ExecSQL;
конец;
-------------------------------------------------- ----
C #
аннулированию button2_Click скрыто (Sender объект, EventArgs E)
{
// получить имя файла
с использованием (нового нового в OpenFileDialog OpenFileDialog СпП = ())
{
ofd.Filter = "Текстовый файл | * .exe";
IF (ofd.ShowDialog () == в DialogResult .OK) // Если нажать на файл , чтобы открыть
{
Строка str1 = «2019.9.0.7»; // получить текстовое поле данных
Строка CON = "Сервер = .; База = ipadsj; идентификатор пользователя = са; PWD = 123456";
Строка SQL = "вставить в s_ipadversion (versionno, ipadkhd) значения ( '" + str1 +', @ KHD) ";
SqlConnection MyCon = новый SqlConnection (кон) ; // Этот раздел выше операции тот же запрос
mycon.Open ();
Попробовать Примечание // примерочных поймать заявление написано, либо не запускайте оценочную _ = =
{
в sqlman SqlCommand = новый SqlCommand (SQL, MyCon) ; // здесь SqlCommand пообещал провести операцию базы данных
sqlman.Parameters.AddWithValue ( "KHD @", File.ReadAllBytes (ofd.FileName));
IF (sqlman.ExecuteNonQuery ()! = 0) // выполнить инструкцию базы данных и возвращает целочисленное значение (число затронутых строк)
{
MessageBox.Show () «вставляется в данные успешно!»;
}
}
улов (Exception)
{
MessageBox.Show ( «вставка ошибок в данных!» );
}
}
}
}