扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
VB中表格控件有很多,如MSFlexGrid,DataGrid,MSHFlexGrid等等
十多年的路北网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同,自动调整路北建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联公司从事“路北网站设计”,“路北网站推广”以来,每个客户项目都认真落实执行。
使用的多的是微软的FlexGrid控件。
通过菜单"Project" - "Components" - 勾上"Microsoft FlexGrid Control 6.0"进行选择。这个是包含在VS6 SP6安装包内的。
接收数据时,使用一个 Label 显示就行了。而且跳过一些数据再显示,例如一秒钟才显示一个数据。
你应该把精力放到领导(或者用户)的意图上,不要纠结技术上的 ListBox。
Dim mycon As New SqlConnection(connstrs)
Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"
Dim cmd As New SqlCommand(sqlStr, mycon)
Dim reader = cmd.ExecuteReader()
Dim i As Integer = 1
While reader.Read()
Dim txt As New TextBox()
txt.Name = "txt" + i
txt.Size = New Size(100, 20) '文本框大小
txt.Location = New Point(50, i * 20 + 20)'left:50 top:随便写的,自己看着调
txt.Text = reader.GetValue(0).ToString()
Me.Controls.Add(txt) 'Me 可以改为你要添加上去的对象
End While
'未经过运行,自己调试看看能否OK
//用ADO.net中的Connection进行OLE连接到Access文件,连接字符串例子:
connstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=DB文件路径;Jet OLEDB:Database password=密码"
//再发送Command命令SQL,
Select * from Student_Perfomance where Stu_No='取到的学号'
//再用DataReader取出数据,设置到窗体的控件上。
到底要怎么显示,某一列的数据可能是多条记录,如果显示在textbox中,是显示到一行里呢,还是每条记录显示一样呢。我给你做了个例子,你参考一下吧:(用的微软企业库连接数据库的)
Dim myCommond = myDatabase.GetSqlStringCommand("SELECT title FROM article")
Dim myDatareader = myDatabase.ExecuteReader(myCommond)
While myDatareader.Read
textbox1.Text = myDatareader("title") vbCrLf
End While
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流