Excel VBA質問箱 IV

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

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


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

70478 / 76807

←次へ　｜　前へ→


	【10836】訂正と追伸

ichinose - 04/2/15(日) 23:38 -


	引用なし

	パスワード

よけいなコードが入っていました。

>'===============================================================
>Function create_tbl(tblnm As String, nmarray, tparray, attarray) As Long
>'tblnmというテーブルを作成し、最初の列に主キーを設定する
>'Input:tblnm----テーブル名
>'　　　nmarray----列の名前の配列
>'　　　tparray----列のタイプの配列
>'　　　attarray---列のオートナンバーか否かの配列　Trueオートナンバー、falseオートナンバーでない
>　　On Error GoTo err_create_tbl
'　　Dim RS As ADODB.Recordset 削除
>　　Dim tbl As ADOX.Table
>　　Dim col As ADOX.Column
'　　Dim kky As ADOX.Key 削除
>　　create_tbl = 0
>　　Set tbl = New ADOX.Table
>　　tbl.name = tblnm
>　　jdx = 0
>　　For idx = LBound(nmarray) To UBound(nmarray)
>　　　 Set col = New ADOX.Column
>　　　 With col
>　　　　　.name = nmarray(idx)
>　　　　　.type = tparray(idx)
>　　　　　Set .ParentCatalog = cat
>　　　　　.Properties("AutoIncrement") = attarray(idx)
>　　　　　.DefinedSize = 100
>　　　　　End With
>　　　 tbl.Columns.Append col
>　　　 Set col = Nothing
>　　　 Next idx
>　　cat.Tables.Append tbl
'　　Set kky = New ADOX.Key 削除
>　　cat.Tables(tblnm).Keys.Append nmarray(LBound(nmarray)), adKeyPrimary, nmarray(LBound(nmarray))
>　　Set tbl = Nothing
>　　Set col = Nothing
>　　On Error GoTo 0
>ret_create_tbl:
>　　Exit Function
>err_create_tbl:
>　 MsgBox Error(Err.Number)
>　 create_tbl = Err.Number
>　 Resume ret_create_tbl
>End Function

それから、ADOの本家情報から
http://www.microsoft.com/japan/msdn/data/techmat/ado/dao2ado.asp
いろいろ載ってました。

0 hits

▼

【10759】CSVから直接MDBを作成したい kawata 04/2/12(木) 15:10