常連

###前提・実現したいこと
DataGridViewにテーブルレコードを表示したい。

###該当のソースコード
Imports System.Data.OleDb

Public Class Form1

End Class

Public Class FormSelectAllGrid
    Inherits System.Windows.Forms.Form


    '------------------------------------------------------------
    ' tbl1から全レコードを取得しデータグリッドに表示する
    '------------------------------------------------------------
    Private Sub FormSelectAllGrid_Load _
        (ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load

        Dim con As New OleDbConnection()
        Dim cmd As New OleDbCommand()
        Dim da As New OleDbDataAdapter()
        Dim ds As DataSet = New DataSet()
        Dim DataGrid As New DataGrid
        Dim datatable As New DataTable


        Try
            ' テーブルスタイルを生成する
            Dim dgStyle As DataGridTableStyle = _
            New DataGridTableStyle()
            dgStyle.MappingName = "tbl1"

            ' 列スタイルを生成し、プロパティを設定する
            Dim col(2) As DataGridTextBoxColumn

            ' 1列目
            col(0) = New DataGridTextBoxColumn()
            '表示名  
            col(0).HeaderText = "列1"
            col(0).MappingName = "列1
            '幅     
            col(0).Width = 60
            '中央揃え
            col(0).Alignment = HorizontalAlignment.Center
          
          ・   
          ・ 
          ・

            '30列目： 
            col(29) = New DataGridTextBoxColumn()
            col(29).HeaderText = "列30"
            col(29).MappingName = "列30"
            col(29).Width = 150

            col(29).Alignment = HorizontalAlignment.Left



            'テーブルスタイルに追加する
            dgStyle.GridColumnStyles.AddRange(col)



            ' テーブルスタイルをグリッドに追加する
            DataGrid.TableStyles.Clear()
            DataGrid.TableStyles.Add(dgStyle)

           ' DB接続文字列の設定
            con.ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
            Application.StartupPath & "C:￥joho_2.mdb"


            ' コネクションの設定
            cmd.Connection = con

            ' SQL文の設定
            cmd.CommandText = _
            "SELECT 列1,・・・・,列30 & _
            "FROM tbl1 ORDER BY 列1"

            ' データを取得する 
            da.SelectCommand = cmd
            ds.Clear()
            da.Fill(ds, "tbl1")

            ' データをバインドする
            DataGrid.SetDataBinding(ds, "tbl1")

 Catch ex As Exception
            ' 例外が発生した時の処理
            MessageBox.Show(ex.ToString, "例外発生")

        End Try

    End Sub

End Class




###試したこと
http://park5.wakwak.com/~weblab/selectAllGrid.html
こちらのサンプルを参考にしました。

###補足情報(言語/FW/ツール等のバージョンなど)
Visual Studio2008
ADO.net
データソースはAccess

上記のコードでは、DataGridViewに表示されず
たくさん調べたのですが、どこが悪いのかすらわからず
行き詰まってしまいました。

大変恐縮ですが、どなたかご教授いただけないでしょうか。
宜しくお願い致します。

DataGridViewにテーブルを表示させたい

### 前提・実現したいこと

Recordsetを新規作成し、Fieldを追加、Fieldに初期値を追加したい

### 発生している問題・エラーメッセージ

```
実行時エラー '3001':引数が間違った型、許容範囲外、または競合しています。
```

### 該当のソースコード

```VBA
Sub Main()
    Dim adoRs As New ADODB.Recordset
    With adoRs
        With .Fields
            .Append "処理日", adDate, , , Now
            .Append "列1", adVarChar, 255, , "倉庫"
        End With
        .Open
    End With
End Sub
```

### 試したこと

型がダメかと思い、```.Append "処理日", adVarChar, , , Format(Now, "yyyy/mm/dd hh:nn:ss")```にしたり、
```.Append "処理日", adDate, , , Now```を無視して次の行を実行したが、同じエラー
FieldValueを無しにした```.Append "処理日", adDate```ならOK

### 参照設定
Microsoft ActiveX Data Objects 6.1 Library

ADODB.Recordset で Recordset.Fields.Append の 初期値(FieldValue)が設定できない

ADODB.Recordsetを使用して複数ファイルを取得時にソートしたいです。
DefinedSizeで100000を指定しましたところ、ソートがうまくできませんでした。
 ⇒adoR.Fields.Append "F_Name", 200, 100000
DefinedSize の上限は255ぽいです。
数百というファイルを処理するときにこれでは処理できません。
解決策を教えて頂けないでしょうか

■質問追記
⇒adoR.Fields.Append "F_Name", 201 を指定しても同様にダメでした。
⇒前提としまして、このPGMはサブPGMです。親側から複数回実行されます。
 arg3は親からの引数でシーケンス番号(1,2・・)を表しています。
つまり、親で\input\シーケンス番号を作成しておいて、子でsndからファイルを
取得して\input\シーケンス番号に格納します。つまりsndでファイルを昇順で取得
することができれば、格納先のシーケンス番号にも若番が入っていきます。

※※※※ソースを張りなおします※※※※
Dim fso,filefullpath

Set fso = createObject("Scripting.FileSystemObject")
filefullpath =  fso.getParentFolderName(WScript.ScriptFullName)

Dim objfso, mySH,objFolder

 Set mySH = CreateObject("WScript.Shell")
 Set objfso = CreateObject("Scripting.FileSystemObject")

'取得元ディレクトリ
Set objFolder = objfso.GetFolder(filefullpath & "\snd")

'格納先ディレクトリ
Dim inpass : inpass = filefullpath &"\input\"& arg3 &"\"

Dim p: p = 0

Dim adoR
Dim FilN

'ソートの準備
Set adoR = CreateObject("ADODB.Recordset")
    adoR.Fields.Append "F_Name", 201
    adoR.Open

For Each FilN In objFolder.Files
    adoR.AddNew
    adoR.Fields(0) = FilN
    adoR.Update
Next

'ファイルパスで昇順
adoR.Sort = "F_Name ASC"
adoR.MoveFirst
 
Do Until adoR.EOF
  If p < arg1 then
    objfso.MoveFile adoR.Fields(0) , inpass
    p = p + 1
    adoR.MoveNext
  end if  
Loop

adoR.Close: Set adoR = Nothing

vbscriptでファイル名をソートしたい

Entity Frameworkの初心者です。サンプルのプログラムをVisualStudio2019で作成しました。
手順は以下の通りです。

①　Visual StudioでWindowsフォームアプリケーション（.Net Framework)を作成。
②　プロジェクト⇒NuGetパッケージの管理から「Entity Framework v6.4.4」を選択してインストール
③　プロジェクト⇒新しい項目の追加から「サービスベースのデータベース」を追加。
④　サーバーエクスプローラーで作成したデータベースに「SampleTable」を作成。
⑤　プロジェクト⇒新しい項目の追加から「ADO.NET Data entity model」を追加。
- 「データベースからEF Designer」を選択して作成。
- ③で作成したデータベースを接続して作成。

⑥　フォームにボタンを２つ配置し、それぞれの押下イベントで以下のように記述しました。

ボタン１
```ここに言語を入力
private void Button1_Click(object sender, EventArgs e)
{
    try
    {
        using (var context = new Database1Entities())
        {
            context.SampleTable.Add(new SampleTable
            {
                Name = "Daisuke",
                Id = 18
            });
            context.SaveChanges();
         }

     }
     catch(Exception ex)
     {
         String sMsg = ex.Message;
     }
}
```
ボタン２
```ここに言語を入力
private void Button1_Click(object sender, EventArgs e)
{
    try
    {
        using (var context = new Database1Entities())
        {
            foreach(var sample in context.SampleTable)
            {
                String Name = sample.Name;
            }
         }
     }
     catch(Exception ex)
     {
         String sMsg = ex.Message;
     }
}
```
App.configは以下のようになっています。
```ここに言語を入力
<?xml version="1.0" encoding="utf-8"?>
<configuration>
  <configSections>
    
    <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
  </configSections>
  <startup>
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
  </startup>
  <entityFramework>
    <providers>
      <provider invariantName="System.Data.SqlClient" type="System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer" />
    </providers>
  </entityFramework>
  <connectionStrings>
    <add name="Database1Entities" connectionString="metadata=res://*/SampleModel.csdl|res://*/SampleModel.ssdl|res://*/SampleModel.msl;provider=System.Data.SqlClient;provider connection string=&quot;data source=(LocalDB)\MSSQLLocalDB;attachdbfilename=|DataDirectory|\Database1.mdf;integrated security=True;MultipleActiveResultSets=True;App=EntityFramework&quot;" providerName="System.Data.EntityClient" />
  </connectionStrings>
</configuration>
```

まず、ボタン１を押すとExceptionは発生しないのに、データベースにデータが
入っていません。
次に、ボタン２を押すと、１件データが入っています。これはボタン１にcontextオブジェクトに設定したデータと思われます。

一旦、アプリを再起動してボタン２を押すと、当然データは入っていません。
手入力でデータベースにデータを設定して、ボタン２を押すとデータベースの
内容が読み込まれていました。

なぜ、更新できないのでしょうか？

ADO.NET Entity Frameworkでデータの追加が出来ない

お世話になります。

ADO.NETの接続型と非接続型の違いについて質問があります。

接続先のDB：AzureのSQL Database

###私の今の解釈
・接続型
明示的にcloseするまでDBとの接続状態は続く。
明示的にcloseするか、アプリケーションが自体が終了すれば、接続は切れる。

・非接続型
クエリを発行する度に接続と切断をする。したがって、毎回自動的に接続は切れる。


そこで、本当にその解釈が正しいか、検証してみたところ、以下の結果になりました。

###検証結果
・接続型で接続
①あえてcloseせず放っておいても、10分くらいすると接続が切れた。
②明示的にcloseしたとしても、すぐには接続は切れない。（10分くらいすると切れる）

・非接続型で接続
③クエリの処理が終了したとしても、すぐには接続は切れない。（10分くらいすると切れる）つまり②の場合と同じ動き。

推測していた動きと違うのは
・接続型でCloseしていなくても、しばらくしたら接続が切れた。
・非接続型でもすぐに切れるわけではなかった。
ということです。
これは、何故なのでしょうか？

接続型はバッチ処理のような連続でクエリを処理をする際に使い、それ以外の時はなるべくサーバーに負荷をかけないよう非接続型で接続する。というような使い分けで考えていたのですが、
上記の結果だけ見ると、あえて使い分ける意味があまりないように感じてしまいます。


以下、一応試したコードを示します。（例外処理などは省いています）
```
'VB.NET
'接続型の処理----------------------
Using connection As New SqlConnection([DBへの接続情報])
    connection.Open()
    Dim command As SqlCommand = connection.CreateCommand()    
    command.Connection = connection
    command.CommandText = [適当なselect文]
    Dim reader As SqlDataReader = command.ExecuteReader()
    ・
    ・selectした結果を読む処理
    ・
    connection.Close() 'あえてcloseしない時はこれをコメントした
End Using
'----------------------

'非接続型の処理--------------------
 Dim conn As New SqlConnection()
 Dim command As New SqlCommand()
 Dim adapter As New SqlDataAdapter()
 Dim ds As New DataSet()
 conn.ConnectionString = [DBへの接続情報]
 command.Connection = conn
 command.CommandText =  [適当なselect文]
 adapter.SelectCommand = command
 adapter.Fill(ds)
    ・
    ・selectした結果を読む処理
    ・
'----------------------
```
どちらもselect結果を取得することは出来ています。



また、すぐに接続が切れるわけではない。という部分は、コネクションプールか何かが関係しているのでしょうか？

以上、駄文で申し訳ありませんが、何か分かる方がおりましたら、よろしくお願いいたします。


###2017.1.13追記
肝心なところが抜けていました。
接続が切れている、切れていないをどう確認したかというと、Microsoft SQL Server Management Studio上で、
sys.dm_exec_sessions と sys.dm_exec_connectionsを参照して確認しました。

また、sys.dm_exec_sessionsにはSTATUSというカラムがあり、ここは主にrunningかsleepingのどちら
かになります。
もしかしたら、これが接続が切れている切れていないという意味なのか？とも思い、検証してみました。

そうしたところ、
接続型では、上記コードの
Dim reader As SqlDataReader = command.ExecuteReader()

非接続型では
adapter.Fill(ds)
を処理している間のみrunnigになるということが分かりました。

接続型ではconnection.Close()をしてもしていなくても処理が終了すれば、sleepingになるので、ここの値の意味が、接続が切れている切れていないではないようです。（結果的に蛇足です。すみません）

また、もう一つ分かったことがあります。
昨日の質問内容で、接続型でも非接続型でもすぐには接続は切れずに、しばらくすると切れると書きました。
これは、やはりコネクションプールの設定のようです。
接続文字列でPooling=Falseとして繋げたら、接続型でも非接続型でも、処理が終了したらすぐに切断されました。

なのでまとめると、DBとの接続が切断（解除？）されたというのは、コネクションの接続のこととは、また違う部分の話なのではないのかな。と推測しています。

私が昨日から目で確認していたものは、「コネクションが接続された。切断された。」という話で、ここまでは接続型でも非接続型でも仕組みは変わらないのではないかと思っています。

接続型と非接続型の違いは、コネクションを繋げた後の実際にデータにアクセスする時の動作のことかと思っているのですが、ここら辺について詳しい方いたら教えていただきたいと思います。

長文失礼いたしました。よろしくお願いいたします。

接続型と非接続型の違い

はじめまして。
VB.NetでSQL Serverに接続するプログラムを作成しています。
その際、SQLServerにConnectionした後Closeという処理を2回行って
SQL Server Management Studioの利用状況モニターを見るとセッションが2つ存在します。
ただし少し（数十秒）たつと、そのセッションは2つとも消えます。
SQL Server Management Studioのセッションはすぐには消えないのでしょうか？利用状況モニターがリアルタイムで表示していないからでしょうか？それともすぐに消える設定が何かあるのでしょうか？

初歩的な質問ですみません。
よろしくお願いします。

SQL Serverのセッションが残る件について（Management Studioの利用状況モニターにて）

microsoftのadoのfilterに関する解説には

'--------
AND と OR の間に優先順位はありません。 句はかっこでグループにまとめることができます。 ただし、次のコード スニペットのように 、OR で結合された句をグループ化し 、AND を使用してグループを別の句に結合することはできません。
(LastName = 'Smith' OR LastName = 'Jones') AND FirstName = 'John'

この場合は、フィルターを次のように構成します。
(LastName = 'Smith' AND FirstName = 'John') OR (LastName = 'Jones' AND FirstName = 'John')
'--------

と記載がありますが、現実にデータベースから絞り込みを行いたい場合そんな簡単なケースは多くなく、
あるフィールドから複数要素、別のフィールドから複数要素で絞り込みたいケースが多いです。

excel vba でいうところのrange.filterであればfilterの2段構えで先にLastNameをフィルタリングしてからFirstNameのフィルタリングが可能で、accessを立ち上げてGUI上で行なうと簡単にできるのですが、これをvbaでrecordsetを操作してやろうとしても後者のfilterが優先されてしまい、うまくいきません。

上述のmicrosoftの解説の通りの式にしようとすると分配展開が多くなりすぎてformulastringの上限を軽く超えてしまいます。
excel vbaのrange.filterでは絞り込み要素にarray指定ができるので、それと似たような方法がないかと探していますがたどり着きません。

どなたかレクチャーいただけますでしょうか。

adodb.recordset.filterにおいて「一つのフィールドで複数の値」の絞り込みを「複数のフィールド」で行いたい場合の処理について

社内で使用するデータベースを利用したアプリケーションを自作しています。

例としては、日々の販売データがAccess2010に蓄積されていて、それを集計して表示するようなイメージです。

この際、Access2010に接続して、データをセットして受け取る方法に、次のようなコードを使用しています。

```lang-＜Visual Basic 2010＞
        Dim dbini As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Access2010のaccdbをフルパスで記入];"
        Dim reader As System.Data.OleDb.OleDbDataReader
        Dim command As System.Data.OleDb.OleDbCommand
        Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(dbinf)
        cn.Open()

        Dim sql1 As String = "[SELECT文]"

        command = cn.CreateCommand
        command.CommandText = sql1
        reader = command.ExecuteReader()

        If reader.HasRows = True Then
            While reader.Read()
                ' レコードが取得できた時の処理

            End While
        Else
            ' レコードが取得できなかった時の処理
        End If

        ''データベースからのデータ書き込み終了
        reader.Close()
        cn.Close()
```

データが正常に取れるので、最初は余り気にしていなかったのですが、要求に応えて機能を増やしていった結果、ボタンが増えたり、プログラムが複雑化するにつれ、Accessからデータを引き出す度、上記のコードが必要になって、少々面倒に思えてきました。

そこで上記のSQL問い合わせコードをModuleなどに起き、各機能からSQL文を引き渡して、レコードの結果を得る事ができないか？ と考えています。

しかし、いろいろGoogleで調べた所では、ADODB.Recordsetのような、データベースから得られた結果セットをそのまま保存して引き渡す機能を見つける事ができず、頓挫しています。

配列にして引き渡すにも、readerを使う方法では、レコード数が得られないため、配列を再定義できず、予め同じレコード数が帰ってくると判っていなければできないようです。

異なるフィールド数やレコード数が出るSQLを引き渡しても、結果セットを得られるなにか良い方法がありましたら教えてください。

実は、元々業務アプリはExcelVBAで作成していまして、Excelを立ち上げ、シートは一切使用せず、Auto_Openでフォームを立ち上げて処理をするというヘンな作業を行っていました。
これが少々複雑かつ、いちいちEXCEL起動するのが面倒という事になり、Visual Basic 2010へ移植を図っています。

参考になるかどうかですが、Accessと接続する場合はこのようなコードでした。

```lang-＜Excel VBA＞
Public myConn As New ADODB.Connection
Public myRS As New ADODB.Recordset

 myConn.Open ConnectionString:= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Access2010のaccdbをフルパスで記入];"

 Dim sql1 As String = "[SELECT文]"

  myRS.Open Source:=sql1, ActiveConnection:=myConn

  Do Until myRS.EOF = True
    myRS.MoveNext
  Loop


```
ExcelVBAでは、あまり複雑な事をやろうとは思わなかったので、Accessのデータが必要な場所場所に記述していました。

よろしくお願いいたします。

htsignさま、ご回答ありがとうございました。
ベストアンサーにさせていただきました。