Excel VBA質問箱 IV

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

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


70409 / 76738 ←次へ | 前へ→

【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
いろいろ載ってました。

1 hits

【10759】CSVから直接MDBを作成したい kawata 04/2/12(木) 15:10 質問
【10787】Re:CSVから直接MDBを作成したい ichinose 04/2/13(金) 21:23 回答
【10789】Re:CSVから直接MDBを作成したい kawata 04/2/13(金) 23:32 お礼
【10835】Re:CSVから直接MDBを作成したい 別解 ichinose 04/2/15(日) 23:29 回答
【10836】訂正と追伸 ichinose 04/2/15(日) 23:38 発言
【10842】Re:訂正と追伸 kawata 04/2/16(月) 10:23 お礼
【10844】Re:訂正と追伸 ichinose 04/2/16(月) 11:01 発言
【10845】Re:訂正と追伸 kawata 04/2/16(月) 11:13 お礼
【10857】Re:訂正と追伸 kawata 04/2/16(月) 15:04 お礼
【10837】Re:CSVから直接MDBを作成したい 別解 kawata 04/2/16(月) 8:29 お礼
【10843】Re:CSVから直接MDBを作成したい 別解 kawata 04/2/16(月) 10:56 回答

70409 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free