如何从数据库表中获取数据到TextBoxes [英] How to get the data from database table to TextBoxes

问题描述

如何在TextBoxes中显示数据库表中的特定行数据。

解决方案

这可能帮助 [ ^ ]。

试试这个

首先创建连接以连接到您的数据库我，在你的项目名称中添加一个类myCon

放下面的代码

公共共享函数con（）如同SqlClient.SqlConnection 
 Dim Connects As New SqlClient.SqlConnection（Data Source = CBSITS6 \ SQLEXPRESS; Initial Catalog = New; Integrated Security = True; Pooling = False）
 Connects.Open（）
返回连接
 
结束功能

这里用你的连接字符串更改

并获取文本框中的数据使用以下功能在哪里ev你想要的

 Public Sub Display（）
 Dim sd As New SqlClient.SqlDataAdapter（Select * from TableName，myCon.con（））
 Dim dt As New DataTable 
 sd.Fill（dt）
如果dt.Rows.Count> 0然后
 txtAddress.Text = dt.Rows（0）.Item（Address）。ToString（）
 End if 
 End Sub 

这里Tablename是一个表，将其更改为yours.txtAddress是textBox

愿你UnderStand这个。

玩得开心..更多信息... Bing它是

Public Sub Display（）

Dim sd As New SqlClient.SqlDataAdapter（Select * from TableName，myCon.con（））

Dim dt As New DataTable

sd.Fill（dt）

如果dt.Rows.Count> 0然后

txtAddress.Text = dt.Rows（0）.Item（Address）。ToString（）

结束如果

结束子

How to display particular row data in database table in TextBoxes.

解决方案

This may help[^].

Try This
Create a Connection First to Connect to Your DataBase As Per me, Add a Class to your Project name it myCon
Put the Following Code

Public Shared Function con() As SqlClient.SqlConnection
        Dim Connects As New SqlClient.SqlConnection("Data Source=CBSITS6\SQLEXPRESS;Initial Catalog=New;Integrated Security=True;Pooling=False")
        Connects.Open()
        Return Connects

    End Function

Here Change the Connection String with Yours
And to Fetch the Data in your Text Box Use the Following Function where event you want

Public Sub Display()
        Dim sd As New SqlClient.SqlDataAdapter("Select * from TableName", myCon.con())
        Dim dt As New DataTable
        sd.Fill(dt)
        If dt.Rows.Count > 0 Then
            txtAddress.Text = dt.Rows(0).Item("Address").ToString()
        End If
    End Sub

here Tablename is a table,change it to yours.txtAddress is the textBox
May you UnderStand this.
Have Fun..more Info...Bing it''

Public Sub Display()
Dim sd As New SqlClient.SqlDataAdapter("Select * from TableName", myCon.con())
Dim dt As New DataTable
sd.Fill(dt)
If dt.Rows.Count > 0 Then
txtAddress.Text = dt.Rows(0).Item("Address").ToString()
End If
End Sub

这篇关于如何从数据库表中获取数据到TextBoxes的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！