GridView1の選択の指定とダミーデータの追加について

質問

GridView1とTwxtBox1を用意し
GridView1に選択ボタンをつけ押すと、TextBox1にその行の１行目を表示するようにしたいのですが
★に何を入れたら、選択行を指定することができるのでしょうか？教えてください。

Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
TextBox1.Text = GridView1.Rows.Item(★).Cells(1).Text
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim conStr As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
Dim strSQL As String
strSQL = "SELECT 1CELL FROM tableA"
Using con As New SqlConnection(conStr)
Using cmd As NEw SqlCommand(strSQL, con)
Dim dr As SqlDataReader
con.Open()
dr = cmd.ExecuteReader(Data.CommandBehavior.CloseConnection)
GridView1.DataSource = dr
GridView1.DataBind()
dr.Close()
End Using
End Using
End Sub

また、GridView1に出ているデータに選択するデータがない場合の為に
データーベースにはなくても【-】というデータを常に表示できるようにしたいのですが
どのようにしたらいいのでしょうか？

【tableAの1CELL】
AAAAA
BBBBB
CCCCC
DDDDD
- ←データベースにはこのデータはないけれどGridView1には常に表示し、これを選択するとTextBox1に【-】が入るようにしたいのですが
よろしくお願いします。

回答No.3

oboroxx · ベストアンサー

こんな感じでしょうか。
ポイントは、"-"を追加した後にAcceptChangesを呼び出して、変更されたというマークを変更なしのマークに変えておく点です。

Imports System.Data
Imports System.Data.SqlClient

Partial Class NoUpdateAddedData
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim ds As New DataSet
Dim sda As New SqlDataAdapter

Dim connBldr As New SqlConnectionStringBuilder
connBldr.IntegratedSecurity = True
connBldr.DataSource = ".\SQLEXPRESS"
connBldr.InitialCatalog = "pubs"
'Dim conn As SqlConnection
Using conn = New SqlConnection(connBldr.ConnectionString)

Using cmd As New SqlCommand
cmd.Connection = conn
cmd.CommandText = "SELECT * FROM titles"
sda.SelectCommand = cmd

sda.Fill(ds, "Pubs")
Dim dr As DataRow = ds.Tables("Pubs").NewRow
dr(0) = "-"
ds.Tables("Pubs").Rows.Add(dr)

ds.Tables(0).AcceptChanges()
sda.Update(ds.Tables(0))
End Using

End Using

Me.GridView1.DataSource = ds.Tables(0)
Me.GridView1.DataBind()

End Sub
End Class

お礼

親切なご回答ありがとうございました。

回答No.2

oboroxx

補足を受けてなのですが、ちょっと確認をしたい事があります。

行の追加はありえるのでしょうか？
つまり、ユーザは削除か書きかえのみを行って、データの追加はしないのでしょうか？

補足

行の追加はありえるのでしょうか？

他のページで、変更・追加はできるのですが
今回作りたいページではそのデータを閲覧し、セレクトされた場所だけ
テキストボックスに番号をいれるというものなので
同じページでの行の追加はありません。

よろしくお願いします。

回答No.1

oboroxx

TextBox1.Text = GridView1.Rows.Item(★).Cells(1).Text
を
TextBox1.Text = GridView1.SelectedRow.Cells(1).Text
で良いかと思います。

また、SqlDataReaderを使っているようですが、SqlDataAdapterを使ってDataTableにデータを保存し、最後に-のデータを追加すればよいかと思います。

補足

GridView1.SelectedRow.Cells(1).Textでできました
ありがとうございます。

ですが、ダミー行のほうがいただいたヒントを元に
やろうとしてみたのですが、どうもうまくいかず、、、
よろしくお願いします。

下記のようなコードにて
１行追加することができるのですが

これだと
(1)ダミー行ではなく直接テーブルにデータを追加してしまう。
(2)テーブルが結合されている場合には使用できない
（複数のベーステーブルに対する動的なＳＱＬの生成はサポートされません）
ということになってしまします。

(1)テーブルにはデータは追加されないでGridView１にのみ追加される
(2)テーブルが結合されているものでも、表示されるだけなので使用できる
ようにするにはどのようにしたらいいのでしょうか？
よろしくお願いします。

Dim con As New SqlConnection()
con.ConnectionString = conStr
Dim selectCmd As New SqlCommand()
selectCmd.Connection = con
selectCmd.CommandText = strSQL
Dim ds As New SqlDataAdapter()
da.SelectCommand = selectCmd
Dim ds As New DataSet()
da.Fill(ds,"publishers")
Dim dt As DataTable = ds.Tables("publishers")
Dim newRow As DataRow = dt.NewRow()
newRow("sono1") = "000"
newRow("sono2") = "000"
dt.Rows.Add(newRow)
Dim cb As New SqlCommandBuilder(da)
da.Update(ds,"publishers")
GridView1.DataSource = ds
GridView1.DataBind()