ｍｄｂのあるフィールドの空文字orｎｕｌｌの確認方法 (ID:29769)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

お二人のご回答ありがとう御座います。

KHE00221さまの方法で試しますと
「ソースファイルが見つかりません」
ソースファイルへのパス
variants.pas
と出ます。なぜでしょう？

Mr.XRAYさま「クエリー内で処理するなら」は私にはまだ
知識不足で理解できません。

ちなみにmdbの作成コードをアップします（VBA）

Sub 新規mdb作成() 'ADO
    'Microsoft ActiveX Data Objects 2.X Library 参照設定
    'Microsoft ADO Ext. 2.1 for DDL and Security 参照設定
    Dim myCat As New ADOX.Catalog
    Dim myCon As ADODB.Connection
    Dim myPathName As String
    Dim Tb As New Table
    Dim Idx As New ADOX.Index
    Dim i As Long
    
    myPathName = ThisWorkbook.Path & "\newdb受注書.mdb" '作成するファイル名を指定
    If Dir(myPathName) <> "" Then Kill myPathName  '同名のmdbファイルがある場合は削除する
    
    myCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPathName
    Set myCon = myCat.ActiveConnection
    'Debug.Print myCon.ConnectionString
    'If Dir(mypathName) <> "" Then MsgBox "db受注書ファイルが作成されました"
    
    Set Tb.ParentCatalog = myCat
    With Tb
        .Name = "受注書"
        .Columns.Append "受注No", adWChar, 7
        .Columns.Append "受注先会社名", adWChar, 25
        .Columns.Append "受注先担当者", adWChar, 15
        .Columns.Append "工事名称", adWChar, 50
        .Columns.Append "建物用途", adWChar, 15
        .Columns.Append "作成者", adWChar, 12
        .Columns.Append "受注日", adWChar, 10
        ---中省略---
        .Columns.Append "値入", adWChar, 10
        .Columns.Append "補足事項", adWChar, 255
    End With
    
        For i = 2 To 27
        '空文字列の許可
        Tb.Columns(i).Properties("Jet OLEDB:Allow Zero Length").Value = True
        '「値要求なし」
        'Tb.Columns(i).Properties("Nullable").Value = True
        Next i
    
    myCat.Tables.Append Tb
        
    With Idx 'インデックスの作成
        .Name = "IdxName"
        .IndexNulls = adIndexNullsIgnore   'Nullを許容しない
        .Columns.Append "受注No"             '列名の指定
        .PrimaryKey = True                   '主キーに設定
        .Unique = True                       '重複無しに設定
    End With
    Tb.Indexes.Append Idx
      
    myCon.Close
    
    Set myCon = Nothing  'オブジェクトの解放
    Set myCat = Nothing
    
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る