次のボタンを使用してデータベースにアクセスする

Question

次のボタンを押すとデータベースの行をスクロールするコードがありますが、最後の行にヒットしたらエラーが表示されます。その最後の行が私にループを維持するようだと私は次のボタンを押すと終了しない？何か案は？ 私は、formloadに=〜-1の変数を持っています。

コード：

Private Sub searchclickbinds() 
    If con.State = ConnectionState.Closed Then con.Open() 
    'create data adapters 
    sql = "Select * from tbl" 
    da = New OleDbDataAdapter(sql, con) 
    da.Fill(ds, "tbl") 
    RecCnt = ds.Tables("tbl").Rows.Count 'how many records in ds 

    TxtCI.Text = ds.Tables("tbl").Rows(inc).Item(0) 

    Dim word 
    word = ds.Tables("tbl").Rows(inc).Item(15) 

    con.Close() 
End Sub 

発信者：

Private Sub BtnNext_Click(sender As Object, e As EventArgs) Handles BtnNext.Click 
    If inc <> RecCnt - 1 Then 
     inc = inc + 1 
     nclick() 
    End If 

End Sub 

Formload：

Private Sub main_Load(sender As Object, e As EventArgs) Handles Me.Load 
    inc = -1 
End Sub 

Answer 1

これは氏jmcilhinneyが他のいくつかのノートや観察と一緒に（コメント欄に記載したものです）：

' form level vars we need: 
Private bsSample As BindingSource 
Private dtSample As DataTable 
Private ACEConnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0...YOUR CONN STRING..." 

は、次にデータをロード：

Dim sql = "SELECT Id, Name, Descr, ValueA, Fish, Bird, Color, Active FROM Sample" 

Using dbcon As New OleDbConnection(ACEConnStr) 
    Using cmd As New OleDbCommand(sql, dbcon) 

     dbcon.Open() 

     dtSample = New DataTable 
     dtSample.Load(cmd.ExecuteReader) 

    End Using 
End Using 

1. あなただけの1台で作業している場合は、テーブルを格納するデータセットを必要としません。
2. 示されているように、特にローカルでのみ使用している場合は、テーブルを埋めるためにDataAdapterは必要ありません。あなたは簡単にテーブルに変更を加えること（DTまたはのBindingSourceなど）フォームレベル1にしたいことがあります。myDa.Update(dtSample)
3. あなたはDataTableを通してデータを追加したり、DataGridViewでデータを表示することを計画している場合、それが指定することができますSQLではカラム順ではなくSELECT *
4. これはAccessではあまり真実ではありませんが、Connectionオブジェクトを開いて使用してから処分する必要があります。 1つの紛失con.Closeステートメントは、さまざまなエラーを引き起こす可能性があります。ブロックを使用して、リソースを解放するために最後のものを閉じて処理します。あなたはすべての顧客のDataTableを持っている場合

も注意してください、あなたは＃30が、前の質問ごとに削除する前に存在しているかどうかを確認するためにを使用することができることを。バインディング：

' initialize BS from DT 
bsSample = New BindingSource(dtSample, Nothing) 

tbName.DataBindings.Add("Text", bsSample, "Name") 
tbDescr.DataBindings.Add("Text", bsSample, "Descr") 
chkActive.DataBindings.Add("Checked", bsSample, "Active") 

最初の行はBindingSourceを初期化します。最後の部分は "マッピング"を設定します。たとえば、テキストプロパティtbNameは、bsSampleソースからの "名前" DBデータを表示するように設定されています。 CheckBoxにはCheckedプロパティとしてActiveデータ（bool）が表示されます。

BindingSourceには、使用できるすべてのメソッドとプロパティがあります。あなたの[次へ]ボタン：ユーザーがコントロールに変わり

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click 
    bsSample.MoveNext() 

    btnNext.Enabled = (bsSample.Count - 1 > bsSample.Position) 
    ' To Do: add similar code for btnPrev 
End Sub 

注DataTableではなく、データベースに適用されます。ユーザーがこの方法を編集できるようにしたくない場合は、簡単な方法はDataViewを使用することです：

Dim dv = New DataView(dtSample) 
dv.AllowEdit = False 
bsSample = New BindingSource(dv, Nothing) 

また、フィールドごとにソースへの更新を無効にすることができます

tbName.DataBindings.Add("Text", bsSample, "Name", False, DataSourceUpdateMode.Never) 

を

は、おそらく最も簡単なのは次のとおりです。

dgv.ReadOnly = True 
dgv.DataSource = dtSample 

がフォームにDataGridViewのをドロップし、あなたにDataSourceを設定してください。それが使い方が簡単です。あまりにも多くの人が不必要にそれを恐れています。

これは、DataAdapterを通じてDataTableの任意の数の行を一度に追加、削除、更新することです。これを行うように設定するには、数行のコードが必要ですが、驚くほど少ない数です。