DelphiおよびC＃のEXEファイルは、データベースに保存します

デルファイ：

手順TForm1.Button1Click（送信者：TObjectを）;

ました

ます。strSQL、sfilename：文字列。

MStream：TMemoryStream;
開始
con1.Connectedを：=はtrue。
qry1.sql.clear;
STRSQL：= 's_ipadversion INTO INSERT（VersionNoの、ipadkhd）VALUES（：いいえ、：upfile）'。
qry1.sql.add（STRSQL）。
sfilename：= 'E：\ 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 =（））
{
; | "* .exeのテキストファイル" ofd.Filter =を
IF（ofd.ShowDialog（）== DialogResult .OK）//開くファイルをクリックすると
、{
文字列str1が=「2019.9.0.7を」; //取得したデータのテキストボックス

文字列CON = "サーバー=;データベース= ipadsj;ユーザID =寺; PWD = 123456";
文字列のSQL = "s_ipadversion挿入（VersionNoの、ipadkhd）の値（ '" + 0009 + "'、KHD @）"。

SqlConnectionオブジェクトのmyconは次の=新しいSqlConnectionオブジェクト（CON） ; // 上記の操作のこのセクションは、同じクエリで
mycon.Open（）;
書かれたトライ注//のtry-catchを陳述、または他の推定_ = =実行されない
{
SqlCommandオブジェクトsqlmanを=新しいSqlCommandオブジェクト（SQL、myconは次の） ; // ここでは、SqlCommandオブジェクトは、データベース操作実施することを約束し
sqlman.Parameters.AddWithValue（ "KHDの@"、File.ReadAllBytes（ofd.FileNameを））;
IF（sqlman.ExecuteNonQuery（）！ = 0）//データベースステートメントを実行し、int値（影響を受けた行の数を返す）
{
MessageBox.Show（）「のデータに挿入正常です！」;
}
}
キャッチ（例外）
{
MessageBox.Show（「データ誤りを挿入！」 ）;
}
}
}

}