コードの小さな数行ここで一日を。土曜日は非常に不快に良いを持っていました。コードはシンプルですが、箱のいくつかは、パートナーのソフトウェアとするとき、アップロードデータをチェックされていないので、主な理由はあります。
いい加減にして.......
図1に示すように、2つのコントロールとADO接続、ADOStoredProc。
ADOStoredProc ADO接続への接続に関連付けられている1.1
1.2 ADO接続の接続SQL Serverデータベースは、(二つの方法で。私は、これは、より柔軟性があり、これに関連して、コードを使用しています。別の方法を。私は、以下の簡単な連絡先の詳細よりも要求しません)
1.2.1データベース接続
// SQL接続 をAnsiStringでCONN = "プロバイダ= SQLOLEDB。1 ;パスワード=パスワードを;永続セキュリティ情報の= trueに、ユーザー ID =ユーザー名;初期Cataog =データベース名;データソース= あなたのIPアドレス "; ADOConnection1 - >のConnectionString = コネティカット; ADOConnection1 - >接続= trueに。
コード上で直接2、保存されたデータのダウンロード処理、
ADOStoredProc1 - >接続= ADOConnection1; ADOStoredProc1 - > PROCEDURENAME = "ストレージ名の間に"; ADOStoredProc1 - >パラメータ- > [更新(); // パラメータ名:@ **** パラメータ:***** ADOStoredProc1 - >パラメータ- > ParamByName( "@パラメータ")- >値= " パラメータ値"; ADOStoredProc1 - > オープン(); //戻り値は、この成功は、あなたのインタフェースに基づいて取得するかどうかを判断するために ShowMessage(ADOStoredProc1 - >パラメータ- >ParamByName(」戻り値パラメータ@「)- > 値); // ここで私は値がComboBoxコントロールに表示される取得 のための(int型 J = 0 J; < ADOStoredProc1 - >でRecordCount; J ++ ){ ADOStoredProc1 - > RECNO = J + 。1 ; ComboBox1の- >アイテム- > [追加(ADOStoredProc1 - > FieldByName( "データベースのフィールド名")- > AsString); }
3、ダウンロードが完了すると
4、データのアップロード
4.1データベース接続
// SQL接続 をAnsiStringでCONN = "プロバイダ= SQLOLEDB。1 ;パスワード=パスワードを;永続セキュリティ情報の= trueに、ユーザー ID =ユーザー名;初期Cataog =データベース名;データソース= あなたのIPアドレス"; ADOConnection1 - >のConnectionString = コネティカット; ADOConnection1 - >接続= trueに。
5、データをアップロードします
ADOStoredProc1 - >接続= ADOConnection1; ADOStoredProc1 - > PROCEDURENAME = "ストアドプロシージャ名"; ADOStoredProc1 - >パラメータ- > [更新(); ADOStoredProc1 - >パラメータ- > ParamByName( " @パラメータ ")- >値= アップロード数; ADOStoredProc1 - > ExecProcメソッド()。
6、完成ライブ
QQ:3064349253