|
よけいなコードが入っていました。
>'===============================================================
>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
いろいろ載ってました。
|
|