2013-04-26 66 views
0

我正在制作一个vb.net crud web应用程序。我不想使用任何网格,而是想从sql数据库中取出记录到文本框中。到目前为止,我已经成功地在按下sql数据库中的按钮的文本框中显示一条记录。现在我的问题是我们可以设计一个下一个和上一个按钮,它将显示来自sql数据库的下一个或前一个记录。如果任何机构可以共享代码来做到这一点,那将是非常好的。Vb.net下一个和上一个按钮代码

下面是我的代码在文本框中获取单个记录

Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    Dim myConn As SqlConnection = New  SqlConnection("Server=.\SQLEXPRESS;AttachDbFilename=D:\MyFolder\MyDatabaseData.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") 

    Dim dt As New DataTable 
    Dim a As Integer 
    a = 2 

    Try 
     myConn.Open() 

     Dim SelectCommand As New SqlClient.SqlCommand("SELECT names FROM enames", myConn) 

     txtOEID.Text = CStr(SelectCommand.ExecuteScalar()) 
     MsgBox("data is selected and show in the textbox and the connection is also closing") 
     myConn.Close() 


    Catch ex As Exception 
     MsgBox(ex.ToString()) 
      End Try 

End Sub 

回答

0

您可以使用where子句。例如在你的表中你有:id(整数),last_name(char),first_name(char)。 你所要做的就是用选择命令“玩”。 您的选择将会像:"select * from aTable where id between first_index and last_index"。 first_index和last_index是您想要获取的记录的限制,而在按钮操作中,您必须增加/减少索引。

另一种解决方案可以是将您获得的值复制到列表中。

祝你好运。

+0

真的很感激,因为你的诀窍现在正在为一个文本框工作,所以我想通过首先在数据库中添加一个“专业”颜色来增强此应用程序,然后还想在另一个文本框中选择专业值。如何才能做到这一点? – Zeeshan 2013-04-27 04:24:29

0

如果你已经拥有的数据表,可以用数据行继续从上表

Dim dr As Datarow 

dr = dt.rows(currentRowIndex) 
txtName = dr.item("name") 
txtProf = dr.item("profession") 

etc 

希望它能帮助!

相关问题