Gridview Problemi - Baskı Önizleme

Gridview Problemi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Gridview Problemi (/konu-gridview-problemi.html)

Gridview Problemi - basicnet - 28/01/2012

 Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='vt.mdb'")

 Dim dvr As New OleDbDataAdapter("SELECT * from tablo1 where no='" & txtara.Text & "' ", baglanti)

 Dim dsr As New DataSet

 dvr.Fill(dsr, "tablo")



 TextBox1.DataBindings.Add("text", dsr, "tablo.1")

 TextBox2.DataBindings.Add("text", dsr, "tablo.2")

 TextBox3.DataBindings.Add("text", dsr, "tablo.3")

 TextBox4.DataBindings.Add("text", dsr, "tablo.4")

 TextBox5.DataBindings.Add("text", dsr, "tablo.5")

 TextBox6.DataBindings.Add("text", dsr, "tablo.6")

 TextBox7.DataBindings.Add("text", dsr, "tablo.7")

vb.nette textboxa girilen sayıya göre yaptığım Access dosyasının içindeki 1 2 3 4 5 6 7 alanlarını textboxlar içine aktarmak istiyorum bunu bu şekilden başka ne türde yapabilirim databindingins sürekil hata veriyor arka arkaya arama yapınca

Cvp: ufak bir soru - ayhan2122 - 29/01/2012

Gridview kullanmanı öneririm. Ama veri çekmek istiyorum dersen



        If IsNumeric(TxtAra.Text) Then

        Else

            TxtAra.Text = 0

        End If

        Dim Sql As String = "SELECT * FROM Tablo1 WHERE([0]=" & TxtAra.Text & ")"

        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='vt1.mdb'")

        Dim cmd As New OleDbCommand(sql, con)

        If con.State = ConnectionState.Closed Then con.Open()

        Dim tbl As OleDbDataReader = cmd.ExecuteReader()



        While tbl.Read = True

            TextBox1.Text = IIf(IsDBNull(tbl.Item("1")), "", tbl.Item("1"))

            TextBox2.Text = IIf(IsDBNull(tbl.Item("2")), "", tbl.Item("2"))

            TextBox3.Text = IIf(IsDBNull(tbl.Item("3")), "", tbl.Item("3"))

            TextBox4.Text = IIf(IsDBNull(tbl.Item("4")), "", tbl.Item("4"))

            TextBox5.Text = IIf(IsDBNull(tbl.Item("5")), "", tbl.Item("5"))

            TextBox6.Text = IIf(IsDBNull(tbl.Item("6")), "", tbl.Item("6"))

            TextBox7.Text = IIf(IsDBNull(tbl.Item("7")), "", tbl.Item("7"))

        End While

        tbl.Close()

Cvp: Gridview Problemi - basicnet - 29/01/2012

aradağım tamda bu sanırım teşekkürler.

datagrid göstermek istemiyorum o olmadan yapmak istiyorum