MSFlexGridでデータの追加の方法は?
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
よろしくお願いします。