重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net控件数据绑定 vbnet控件位置

VB.NET中怎样为listview绑定数据

'从数据库中读取数据插入到listview中.

在彭泽等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供网站建设、成都网站制作 网站设计制作定制开发,公司网站建设,企业网站建设,品牌网站制作,营销型网站,成都外贸网站建设公司,彭泽网站建设费用合理。

'注意:要显示网格,必须将listview中的view设置为details,然后再将gridline设置为true .

'设完之后,用鼠标只能点击listview中的第一个角落,点击其他的地方不起作用,需要设置

'listview中的FullRowSelect属性才可以.这样就可以选中一行了.

Dim MyCmd As SqlClient.SqlCommand

Dim MyCnn As New SqlClient.SqlConnection

Dim myDrd As SqlClient.SqlDataReader

MyCnn.ConnectionString = "Server=localhost;user id=sa;password=;database=NHSP"

Dim t As String = "select * from BA_USER"

'如果要用该控件查询,则只需要改变"select * from BA_USER where 条件"就可以了

MyCmd = New SqlClient.SqlCommand(t, MyCnn)

MyCnn.Open()

myDrd = MyCmd.ExecuteReader

Dim iHead As Integer

Dim head(5) As String

'head(0) = "a"

'head(1) = "b"

Me.lvw.Columns.Clear()

For iHead = 0 To myDrd.FieldCount - 1

Me.lvw.Columns.Add(myDrd.GetName(iHead), 100, HorizontalAlignment.Center)

Next

'加入listview列数据()

Me.lvw.Items.Clear()

Dim iRow As Long = 0

Dim iRowHead As Int16

Do While myDrd.Read

Me.lvw.Items.Add(myDrd(0))

For iRowHead = 1 To myDrd.FieldCount - 1

If (myDrd(iRowHead) Is System.DBNull.Value = False) Then

Me.lvw.Items(iRow).SubItems.Add(CStr(myDrd(iRowHead)))

Else

Me.lvw.Items(iRow).SubItems.Add("")

End If

Next

iRow = iRow + 1

Loop

MyCnn.Close()

MyCnn.Dispose()

vb.net的DataGridView数据绑定

在配置文件app.config中加入

appSettings

add key="LotDBConnection" value="DATA SOURCE=数据库连接;PASSWORD=密码;PERSIST SECURITY INFO=True;USER ID=登录名"/

/appSettings

//m_SqlPath 存放SQL语句的XML文件

Dim sqlHelper As New SQLHelper("LotDBConnection")

Dim sqlRead As New ResourceHelper

Dim ht As New Hashtable

Dim strSQL As String

Try

'设置SQL文参数

ht.Clear()

ht.Add(ColumnName.USER_ID.ToString, Trim(Me.txtUserID.Text))

ht.Add(ColumnName.USER_NAME.ToString, Trim(Me.txtUserName.Text))

'数据查询

strSQL = sqlRead.GetSQLSentence("GetUserList", m_SqlPath, ht)

ds = sqlHelper.ExecuteDataSet(strSQL)

If ds.Tables(0).Rows.Count = 0 Then

MessageBox .Show ("数据不存在");

Else

'数据绑定

dgvUserMeisai.DataSource = ds.Tables(0)

End If

Catch ex As Exception

MessageBox .Show (ex.Message );

Finally

sqlHelper = Nothing

sqlRead = Nothing

ht = Nothing

End Try

关于VB.net 编程时数据绑定的问题

呵呵,貌似SqlDataAdapter是数据适配器而不是一种控件···

DataAdapter对象在DataSet与数据之间起桥梁作用

具体的可以看下面的代码,楼主看了应该就会明白他的作用了:

string strConn="uid=账号;pwd=密码;database=数据库;server=服务器";//SQL Server链接字符串

SqlConnection ConnSql=new SqlConnection (strConn); //Sql链接类的实例化

ConnSql.Open ();//打开数据库

string strSQL="SELECT * FROM 表名1 "; //要执行的SQL语句

SqlDataAdapter da=new SqlDataAdapter(strSQL,ConnSql); //创建DataAdapter数据适配器实例

DataSet ds=new DataSet();//创建DataSet实例

da.Fill(ds,"自定义虚拟表名");//使用DataAdapter的Fill方法(填充),调用SELECT命令

ConnSql.Close ();//关闭数据库


文章名称:vb.net控件数据绑定 vbnet控件位置
标题来源:http://cqcxhl.com/article/dddcoge.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP