データーベースにIndexを設定している場合、既に登録されてあるデータは
キーが重複するので登録できない。
Sub 一覧データをアップロード()
'項目一覧のデータをサーバに追加登録する。
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sqldb As String
Dim res As Integer
Dim i As Long
res = MsgBox("sien.mdbに" & vbCrLf & _
"項目一覧データを全登録します。", vbOKCancel, "MDBにデータ登録")
If res = vbCancel Then Exit Sub
db.Open "provider=microsoft.jet.oledb.4.0;" _
& "data source=sien.mdb"
rs.Open "koumoku", db, adOpenStatic, adLockPessimistic
i = 6
Do
rs.AddNew
rs!koumoku_bangou = Range("a" & i).Value
rs!koumoku_na = Range("b" & i).Value
rs!kigen = Range("c" & i).Value
rs!tantou_busyo = Range("d" & i).Value
rs!tantou_sya = Range("e" & i).Value
rs!memo = Range("f" & i).Value
rs!flg = Range("g" & i).Value
rs.Update
i = i + 1
Loop Until Range("a" & i).Value = ""
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub