ストアドプロシジャ

ストアドプロシジャの方法で削除処理をしたいと考えています。
ダイナセットはデータ件数が沢山あって、使いたくありません。

言語　VB6.0 DB　ORACLEは9iで、oo4oで接続しています。

ＤＢは
テーブル名　売上
列名　　　　データID
　　　　　　伝票日付
っていうふうになっていて、

例えば、伝票日付が今日のデータ分削除処理をしたいんですが いろいろなサイトを見てもいまいちわからないので投稿しました。 お願いします。

No.3 ベストアンサー 回答者： PAPA0427 回答日時： 2003/06/24 15:35

Public OraS As OraSession

Public OraD As OraDatabase
dim strSQL as String

Set OraS = CreateObject("OracleInProcServer.XOraSession")
Set OraD = OraS.OpenDatabase(DataSource, User, 0&)

strSQL = "DELETE FROM 売上 WHERE FORMAT(伝票日付,"YYMMDD") = 'yymmdd'"

OraD.ExecuteSQL strSQL

DataSourceはデータベース名,Userはデータベースにログインするときのユーザー名です。

これをモデファイしてご利用ください。あくまでもヒントです。

この回答への補足

DELETE FROM 売上　でできました。ありがとうございます.

補足日時：2003/06/24 16:32

この回答へのお礼

ありがとうございます。

PUBLIC W_SQL AS STIRNG
PUBLIC ORASE AS OBJECT
PUBLIC ORADB AS OBJECT

W_SQL = "DELETE データID,伝票日付 FROM 売上 WHREE 伝票日付 = 20030601

ORADB.ExecuteSQL W_SQL

※伝票日付はNUMBER型です。

SQL文をまねして書いたんですけど、SQLの実行時エラーが出てしまいます。
ORA-00933 SQLコマンドが正しく終了されていません。と出ます。
何がいけないんでしょうか・・・

お礼日時：2003/06/24 16:09

No.2 回答者： yomo3 回答日時： 2003/06/24 15:33

こんにちは。

困り度３なので。とりあえず結果を出すために。

１．日付指定でクエリを作る
２．それを削除クエリにする
っていう手順で一発です。

SQLは

DELETE 売上.伝票日付
FROM 売上
WHERE (((売上.伝票日付)=#6/24/2003#));

となります。
これは、日付が今日になっています。

No.1 回答者： taknt 回答日時： 2003/06/24 15:28

delete 売上 where 伝票日付= to_char(sysdate,'YYYYMMDD');

と ストアドプロシジャーに 書いてあげればいいでしょう。