Microsoft Access Club Access超初心者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトル改行コードの削除
記事No83094
投稿日: 2017/03/31(Fri) 13:39
投稿者にわ
OS:Windows 7
Access Version:2010

NIWAというテーブルがあり、フィールド名はテストです。
この一列を一行でエクスポートしたいのですがどうすれば出来るのでしょうか?

テスト(フィールド名)
ABCSDD
ABCDBS
BCDEFG

というのを
ABCSDD ABCDBS BCDEFG みたいな感じにしたいです。
行は100行以上あると思います。
宜しくお願い致します。

タイトルRe: 改行コードの削除
記事No83095
投稿日: 2017/03/31(Fri) 14:40
投稿者AccessKid
> NIWAというテーブルがあり、フィールド名はテストです。
> この一列を一行でエクスポートしたいのですがどうすれば出来るのでしょうか?
> 
> テスト(フィールド名)
> ABCSDD
> ABCDBS
> BCDEFG
> 
> というのを
> ABCSDD ABCDBS BCDEFG みたいな感じにしたいです。
> 行は100行以上あると思います。
> 宜しくお願い致します。

エクスポートではありませんが、
ADOのGetString メソッドを使えばよいと思いますよ。

GetString メソッド
https://msdn.microsoft.com/ja-jp/library/cc364168.aspx

タイトルRe^2: 改行コードの削除
記事No83096
投稿日: 2017/03/31(Fri) 14:45
投稿者にわ
どんな風に使えば良いのでしょうか?

タイトルRe^3: 改行コードの削除
記事No83097
投稿日: 2017/03/31(Fri) 15:03
投稿者AccessKid
> どんな風に使えば良いのでしょうか?

1)VBAが必要。
2)レコードを出力結果の並び順になるように並べ替える、フィールドが必要。

となります。

タイトルRe^4: 改行コードの削除
記事No83099
投稿日: 2017/03/31(Fri) 21:21
投稿者AccessKid
> 1)VBAが必要。
> 2)レコードを出力結果の並び順になるように並べ替える、フィールドが必要。

Dim cn       As New ADODB.Connection
Dim rs       As New ADODB.RecordSet
Dim com      As New ADODB.Command
Dim rsString As String

Set cn = CurrentProject.Connection

rs.Open "SELECT テスト FROM NIWA ORDER BY 並び替えのフィールド;", cn

rsString = rs.GetString(adClipString _
                        , _
                        , _
                        , " ")

com.ActiveConnection = cn
com.CommandText = "INSERT INTO エクスポート先のテーブル名(フィールド名)" & _
                  "   VALUES('" & rsString & "');" 
com.Execute

rs.Close, cn.Close
Set rs  = Nothing
Set cn  = Nothing 
Set com = Nothing 

こんな感じではないですか?

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る