您的位置：程序门 -> .net技术 -> vb.net

紧急求教

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

紧急求教[已结贴,结贴人:jdlyd]

发表于：2007-04-18 14:02:30 楼主

在windows窗口中怎么显示数据库表的内容

发表于：2007-04-18 14:18:301楼得分:0

用datagrid呀,绑定下

发表于：2007-04-18 14:24:332楼得分:0

那具体怎么做？可以教一下吗？因为我还是新手

发表于：2007-04-18 14:28:313楼得分:0

如果您用的是2005的话，只要在窗体中加入一个datagridview控件，然后请看这一段。

public class form1

dim conn as data.oledb.oledbconnection
dim da as data.oledb.oledbdataadapter
dim ds as data.dataset

private sub form1_load（byval sender as object, byval e as system.eventargs) handles me.load
conn = new oledb.oledbconnection（ "provider=microsoft.jet.oledb.4.0;data source=d:\data.mdb ")
conn.open（)
da = new oledb.oledbdataadapter（ "select * from 表1 ", conn)
ds = new data.dataset
da.fill（ds)
conn.close（)
datagridview1.datasource = ds.tables（0)
end sub

end class

其实用于显示的就是

datagridview1.datasource = ds.tables（0)

这一句了。

发表于：2007-04-18 14:35:254楼得分:0

看看微软的示例:duwamish和petshop

发表于：2007-04-18 14:51:415楼得分:0

我用的是03版的和 sqlserver的数据库表已经连好了就是不能显示表中的数值……？？

发表于：2007-04-18 14:54:586楼得分:0

请把代码帖一下吧。

发表于：2007-04-18 14:58:107楼得分:0

private sub button1_click（byval sender as system.object, byval e as system.eventargs) handles button1.click
dim conn as new sqlclient.sqlconnection

conn.connectionstring = "server=（local);uid=sa;database=ts "
conn.open（)
dim com as new sqlclient.sqlcommand（ "insert into b（bookname,shortname,barcode,bookconcern,author,price,kind,atime)values（ ' " & textbox1.text & " ', ' " & textbox2.text & " ', ' " & textbox3.text & " ', ' " & textbox4.text & " ', ' " & textbox5.text & " ', ' " & textbox6.text & " ', ' " & textbox7.text & " ', ' " & label1.text & " ') ", conn)
com.ＥＸＥＣutenonquery（)

conn.close（)

end sub

发表于：2007-04-18 15:06:328楼得分:0

您这是追加数据啊，要显示得进行查询，然后在窗体上加一个datagrid控件，将datatable绑定到datagrid上，就可以显示了。

发表于：2007-04-18 15:11:119楼得分:0

你把你的查询语句做好了,放在da = new oledb.oledbdataadapter（ "select * from 表1 ", conn)这句中,代替其中的sql语句就行了

发表于：2007-04-18 15:18:2210楼得分:20

private sub form1_load（byval sender as object, byval e as system.eventargs) handles me.load
dim conn as new sqlclient.sqlconnection
conn.connectionstring = "server=（local);uid=sa;database=ts "
conn.open（)

dim dg as datagrid = new datagrid
with dg
.left = 6
.top = 6
.width = 200
.height = 400
end with
me.controls.add（dg)

dim da as sqlclient.sqldataadapter = new sqlclient.sqldataadapter（ "select * from b ", conn)
dim ds as dataset = new dataset
da.fill（ds)
dg.datasource = ds.tables（0)

end sub

发表于：2007-04-18 15:19:3011楼得分:0

我说ls的ls，人家明明用的是sql server好不好~

发表于：2007-04-18 16:32:4412楼得分:0

magicbacon 大虾大恩大德感激涕零啊还想请教下怎么让添加的内容马上能显示呢

发表于：2007-04-18 16:53:1113楼得分:0

添加完之后再写一次dg.datasource = ds.tables（0)试试，我用的2005中的datagridview是添加后自动就显示了。

发表于：2007-04-18 16:53:4514楼得分:0

“大恩大德”，您要下死我么，呵呵。

发表于：2007-04-18 17:01:5515楼得分:0

好象不行啊我是用按钮点击添加的添加的内容要重新运行才能显示出来
我能加你的q吗我的550769551

发表于：2007-04-18 17:03:5016楼得分:0

不能，我不能用qq。我在看看吧。

发表于：2007-04-18 17:10:5817楼得分:0

我是新来的我想问问在这边加分有什么用还有怎么加分给别人自己有分数扣吗

发表于：2007-04-18 17:14:2518楼得分:0

试试看datagrid的refresh方法。

重新绑定应该也是可以的啊，用

datagrid1.datasource= " "
datagrid.databinder（)

两句看看。我这儿没有2003，不能试了。

发表于：2007-04-18 17:18:3719楼得分:0

看见我的四个三角没，这就是分堆出来的。除了这个之外倒也没什么用，呵呵。您的分数是一开始有200分，然后每次登录会加一定的分。
加分就是在帖子的上方点“管理”，然后再要加分的回复后填入分数，然后在一个textbox中填入您的登录密码，再点击“给分”就行了。然后这个帖子就结了，呵呵。

发表于：2007-04-18 17:23:2620楼得分:0

哦这样啊你真是个热心人啊哈哈谢谢啊那个我再试试研究下了已经很感谢了啊

其他资讯