2011-04-01から1ヶ月間の記事一覧
Const adInteger = 3 Const adDate = 7 Const adFldIsNullable = 32 Const adVarChar = 200 Dim rs Dim fs Dim fsFolder Dim fsFile Set rs = CreateObject("ADODB.Recordset") rs.Fields.Append "myname", adVarChar, 300, adFldIsNullable rs.Fields.Appen…
Dim cnString As String Dim tdf As TableDef cnString = "FILEDSN=n:\Test1.dsn" For Each tdf In db.TableDefs '''If tdf.Attributes = dbAttachedODBC Then If tbDef.Attributes And (dbAttachedTable Or dbAttachedODBC) Then tdf.Connect = cnString td…