vb.net中制作二级联动combobox 省 市
环境VS2005下vb.net窗体控件combobox1,combobox2数据库:CityDB数据表:CityTable字段:Privence,City在窗体装载后co...
环境VS2005下vb.net
窗体控件combobox1,combobox2
数据库:CityDB
数据表:CityTable
字 段:Privence,City
在窗体装载后combobox1表示Privence
combobox2表示City
combobox1中选择一个Privence后,
combobox2中会自动显示该Privence中的City
初学者,要有代码,看得懂再追加100分
谢谢 展开
窗体控件combobox1,combobox2
数据库:CityDB
数据表:CityTable
字 段:Privence,City
在窗体装载后combobox1表示Privence
combobox2表示City
combobox1中选择一个Privence后,
combobox2中会自动显示该Privence中的City
初学者,要有代码,看得懂再追加100分
谢谢 展开
2个回答
展开全部
imports system.data
imports system.data.oledb '假设数据库是ACESS
private sub from_load(...........)
dim myconnection as new oledbconnection _
("provider=microsoft.jet.oledb.4.0;data source=(路径+)CityDB.mdb")
dim mydataser as new dataset()
dim myadapter as oledbdataadapter
myconnection.open()
myadapter=new oledbdataadapter("select * from CityTable",nyconnection)
myadapter.fill(mydataset,"CityTable")
combobox1.datasource=mydataset
combobox1.displaymember="CityTable.Privence "
combobox2.datasource=mydataset
combobox2.displaymember="CityTable.City"
myconnection.close()
end sub
imports system.data.oledb '假设数据库是ACESS
private sub from_load(...........)
dim myconnection as new oledbconnection _
("provider=microsoft.jet.oledb.4.0;data source=(路径+)CityDB.mdb")
dim mydataser as new dataset()
dim myadapter as oledbdataadapter
myconnection.open()
myadapter=new oledbdataadapter("select * from CityTable",nyconnection)
myadapter.fill(mydataset,"CityTable")
combobox1.datasource=mydataset
combobox1.displaymember="CityTable.Privence "
combobox2.datasource=mydataset
combobox2.displaymember="CityTable.City"
myconnection.close()
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询