Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6071 / 76735

←次へ　｜　前へ→


	【76266】Excel VBA ODBを使った時のinsertについて

ゆうぞう - 14/10/22(水) 18:39 -


	引用なし

	パスワード

現在Excel VBAでータ登録・更新・参照を行うフォームを作っています。
データはDBは使わず、Excel内の1シートに記載されています。
フォームから登録する際には、"Microsoft.Jet.OLEDB.4.0"を使用してSQL文を実行しています。

[DBオープン関数]
Public Sub OpenDB()

　　Dim DBName As String
　　DBName = ThisWorkbook.name

　　' Connection生成
　　Set dbCon = New ADODB.Connection
　　With dbCon
　　　　.Provider = "Microsoft.Jet.OLEDB.4.0"
　　　　.Properties(cnsExtProp) = "Excel 8.0"
　　　　.Open ThisWorkbook.Path & "\" & DBName
　　End With
End Sub

[SQL実行関数]
Public Sub ExecuteSQL(ByVal sql As String)
　　dbCon.Execute (sql)
End Sub

◎質問事項
上記関数を使って1件Insert文でレコードを追加した際、データ最終行＋１ではなく、かなり下のほうにレコードが追加される場合があります。
現在は、追加後にソートをして事なきを得ていますが、なぜこのようなことが起きるのでしょうか？
ご存知の方がいれば教えてください。
＃可能であればソートはしたくないので。

0 hits

▼

【76266】Excel VBA ODBを使った時のinsertについて ゆうぞう 14/10/22(水) 18:39