![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VB6.0 WINXP DB:Oracle10g
よろしくお願いします。
SELECT文でデータベースからデータを取ってきてMSFlexGridにデータを送ったのですが、そのデータに更に追加したいと思います。
' ADOのオブジェクト変数を宣言する
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim STRSQL As String
'Oracleとの接続
cn.Open "Provider=MSDAORA;" & _
"Data Source=NT;", "scott", "tiger"
' SQLステートメントを指定してレコードセットを作成する
re.Open
STRSQL = "select * from TOKUI WHERE A01 = 100"
rs.CursorLocation = adUseClient
rs.Open STRSQL, cn, adOpenDynamic, adLockBatchOptimistic
'グリッドに送る
Set MSFlexGrid1.DataSource = rs
'ここからのSELECT文を追加したいと思います。
STRSQL = "SELECT TOKUI FROM WHERE A01 = 200"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open STRSQL, cn, adOpenDynamic, adLockBatchOptimistic
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
>ここからのSELECT文を追加したいと思います。
STRSQL = "SELECT*FROM TOKUI
WHERE A01=100"
& "OR A01=200"
では?
この回答への補足
返答ありがとうございます。
すいません、ちょっと説明不足でした。
fortranxpさんが言われるようにWHERE句に記述すれば良いのですが、
今回はあくまでもデータがあってその内容に追加ができればいいなと思っている所です。
よろしくお願いします。
No.2
- 回答日時:
最初の設定
' ADOのオブジェクト変数を宣言する
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim STRSQL As String
'Oracleとの接続
cn.Open "Provider=MSDAORA;" & _
"Data Source=NT;", "scott", "tiger"
' SQLステートメントを指定してレコードセットを作成する
re.Open
STRSQL = "select * from TOKUI WHERE A01 = 100"
rs.CursorLocation = adUseClient
rs.Open STRSQL, cn, adOpenDynamic, adLockBatchOptimistic
'グリッドに送る
Set MSFlexGrid1.DataSource = rs
追加の設定
' ADOのオブジェクト変数を宣言する
Dim cn2 As New ADODB.Connection
Dim rs2 As New ADODB.Recordset
Dim STRSQL As String
'Oracleとの接続
cn2.Open "Provider=MSDAORA;" & _
"Data Source=NT;", "scott", "tiger"
' SQLステートメントを指定してレコードセットを作成する
rs2.Open
STRSQL = "select * from TOKUI WHERE A01 = 200"
rs2.CursorLocation = adUseClient
rs2.Open STRSQL, cn2, adOpenDynamic, adLockBatchOptimistic
'グリッドに送る
REM rs.MoveLast()
rs.AddNew()
For i = 0 To rs2.Fields.Count - 1
rs.Fields(i).Value = rs2.Fields(i).Value
Next i
rs.UpdateBatch()
Set MSFlexGrid1.DataSource = rs
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) SQLで抽出 4 2022/12/04 13:55
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
名前'dbOpenDynaset'は宣言され...
-
VB6.0とaccessのDBを接続する
-
PHP+ACCESSのデータベース接続...
-
UPDATE時にSETしたい日本語文字...
-
VB6.0でSQLServerへ・・・Recor...
-
データベースの接続ができない
-
VBA 変数名に変数を使用したい。
-
INT64対応のprintf系関数はあり...
-
C#でbyte配列から画像を表示さ...
-
vba フィルター 複数条件 3つ以...
-
DataTableに特定のフィールドが...
-
VBAでアクセスDBからデータの取...
-
AccessからExcelへエクスポート...
-
C# DataTableに最後に追加した...
-
VBとアクセスでSQL文に変...
-
機種依存文字と特殊文字について
-
Accessのフィールド名に半角括...
-
手動または分散トランザクショ...
-
アクセス ステータスバーの文...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
UPDATE時にSETしたい日本語文字...
-
データベースの接続ができない
-
複数SQL発行について
-
ExcelVBAでのAccessデータベー...
-
初心者ですデータベースの形式 ...
-
VB6.0でSQLServerへ・・・Recor...
-
VB6.0とaccessのDBを接続する
-
StrutsでDataSourceの切り替え
-
名前'dbOpenDynaset'は宣言され...
-
VBSでADOを使ってaccessのテー...
-
vb.netでデータベース(Access)...
-
ASP.NET(VB.NET)でADO.NETを使...
-
関数のパラメーターと戻り値に...
-
OracleDataReaderについて…
-
MDBをADO接続でINSERT・UPDATE...
-
VB6.0でアクセス2000...
-
VB2005でmdbに接続するには?
-
ListviewにDB内容を表示し方に...
-
VB 2010 Expressでのデータベー...
おすすめ情報