投稿日 | : 2006/08/01(Tue) 16:33 |
投稿者 | : 黒麹 |
Eメール | : |
URL | : |
タイトル | : Re: VBのADOでAddNewの処理を行いたい |
こんな感じで使っています。お役に立てれば。
Option Explicit
'テーブル作成
'CREATE TABLE testm
'(
' "キー" int NOT NULL,
' "データ1" int,
' "データ2" int,
' "データ3" int,
' CONSTRAINT testm_pkey PRIMARY KEY (キー)
')
Private Sub Command1_Click()
Dim strCon As String
Dim strSql As String
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
' Windows版 PostgreSQL 8.1.3 付属のODBCドライバを使用
' 8.1.4 にはUnicode対応のドライバは添付されていないようです。
'
' サーバー名:localhost
' データベース名:dbtest
' UID、Pass等環境に合わせて変更してください。
'
' strCon = "DRIVER={PostgreSQL ANSI};DATABASE=dbtest;SERVER=localhost;PORT=5432;UID=postgres"
' strCon = "DRIVER={PostgreSQL Unicode};DATABASE=dbtest;SERVER=localhost;PORT=5432;UID=postgres"
strCon = "DRIVER={PostgreSQL Japan};DATABASE=dbtest;SERVER=localhost;PORT=5432;UID=postgres"
Cn.Open strCon
'有り得ないレコードを抽出し、0行のレコードセットを生成する。
strSql = "select * from testm where キー = -1;"
Rs.Open strSql, Cn, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs!キー = 1
Rs!データ1 = 1
Rs!データ2 = 2
Rs!データ3 = 3
Rs.Update
Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub