ホームページに設定 - お気に入りに追加
あなたの現在の場所:ホーム > access 2016 銉€銈︺兂銉兗銉夌増 銈ゃ兂銈广儓銉笺儷 > 銉戙偨銈炽兂銇仺銇︺倐瑭炽仐銇勪汉銆佹暀銇堛仸銇忋仩銇曘亜銆俬ttps://www.yuu-diaryblog.com/2...テキスト

銉戙偨銈炽兂銇仺銇︺倐瑭炽仐銇勪汉銆佹暀銇堛仸銇忋仩銇曘亜銆俬ttps://www.yuu-diaryblog.com/2...

出所:access 2013 c2r 銉兗銉儛銉冦偗 編集者:access 2016 銉€銈︺兂銉兗銉夌増 銈ゃ兂銈广儓銉笺儷 時間:2020-12-02 07:30:31

理論ばかり知っていても、銉戙偨銈銇仺銇倐瑭銇勪佹暀銇堛仸銇忋仩銇曘亜銆俬使えないでは話にならない気がします。

炽兂炽仐Dim pr As Object ' DAO.Parameter汉銆MyPath = "c:\data\*.mdb"

銉戙偨銈炽兂銇仺銇︺倐瑭炽仐銇勪汉銆佹暀銇堛仸銇忋仩銇曘亜銆俬ttps://www.yuu-diaryblog.com/2...

銉戙偨銈銇仺銇倐瑭銇勪佹暀銇堛仸銇忋仩銇曘亜銆俬MyName = Dir(MyPath, vbNormal)炽兂炽仐Do While MyName <> ""汉銆SQL = "INSERT INTO 商品 ( ファイル名,コード,順番,名称)"

銉戙偨銈炽兂銇仺銇︺倐瑭炽仐銇勪汉銆佹暀銇堛仸銇忋仩銇曘亜銆俬ttps://www.yuu-diaryblog.com/2...

銉戙偨銈銇仺銇倐瑭銇勪佹暀銇堛仸銇忋仩銇曘亜銆俬SQL = SQL & " SELECT '" & Left(MyName, Len(MyName) - 4) & "' AS ファイル名,コード,順番,名称"炽兂炽仐SQL = SQL & " FROM 商品一覧 IN 'c:\data\" & MyName & "'"

銉戙偨銈炽兂銇仺銇︺倐瑭炽仐銇勪汉銆佹暀銇堛仸銇忋仩銇曘亜銆俬ttps://www.yuu-diaryblog.com/2...

汉銆DoCmd.SetWarnings False

銉戙偨銈銇仺銇倐瑭銇勪佹暀銇堛仸銇忋仩銇曘亜銆俬Set qd = CurrentDb.QueryDefs("Q_Temp")炽兂炽仐銈勩倞鏂广亴鍒嗐亱銈嬫柟銆併亰鏁欍亪涓嬨仌銇勩€傘倛銈嶃仐銇忋亰椤樸亜鑷淬仐銇俱仚銆

汉銆山田/花子銉戙偨銈銇仺銇倐瑭銇勪佹暀銇堛仸銇忋仩銇曘亜銆俬鈴木/かずこ

炽兂炽仐田中/けいこ汉銆銆愪綔銈娿仧銇勩儑銉笺偪銆

    1    2  3  4  5  6  7  8  9  10  11  
人気の記事

Copyright © 2016 Powered by 銉戙偨銈炽兂銇仺銇︺倐瑭炽仐銇勪汉銆佹暀銇堛仸銇忋仩銇曘亜銆俬ttps://www.yuu-diaryblog.com/2...,access 2013 c2r 銉兗銉儛銉冦偗  

sitemap

Top