Datacombo Vb

Datacombo Vb

Datacombo Vb

', blogTag:'', blogUrl:'blog/static/263026392011931621450', isPublished:1, istop:false, type:0, modifyTime:1317575242083, publishTime:1317575181450, permalink:'blog/static/263026392011931621450', commentCount:0, mainCommentCount:0, recommendCount:0, bsrk:-100, publisherId:0, recomBlogHome:false, attachmentsFileIds:[], vote:{}, groupInfo:{}, friendstatus:'none', followstatus:'unFollow', pubSucc:'', visitorProvince:'未设置', visitorCity:'未设置', postAddInfo:{"postAdSetting":{"title":"maoren","linkUrl":"http://g.163.com/a?CID=11814&Values=3664728618&Redirect=http://johnniewalker.163.com/yuluwenxingdong/?10580 ","imageUrl":"http://img1.126.net/channel2/010799_290260b_1221.swf","expireDay":"5","modifyTime":"1324458847453","flashUrl":"http://img1.126.net/channel2/010799_290260b_1221.swf"},"isAdShow":true,"postAdContent":{"special":[{"title":"武书连:2012年大学排名新鲜出炉","url":"http://wushulianvip.blog.163.com/blog/static/167901482201111210232726/"},{"title":"盛大林:'限'字成年度汉字令人唏嘘","url":"http://sheng.dalin.blog.163.com/blog/static/127099945201111220647871/"},{"title":"陈希我:教学生写文学不如教写论文","url":"http://zgzjcxw.blog.163.com/blog/static/1219571072011112210653310/"}],"blog":[{"title":"实拍华西村山寨天安门","pic":"http://img3.cache.netease.com/cnews/2011/12/22/20111222083122ae65e.jpg","url":"http://blog.163.com/"},{"title":"'金哨'陆俊没吹'黑哨'也得蹲监狱","url":"http://konglvshi.blog.163.com/blog/static/160285372011112110435372/"},{"title":"叶檀:房价如果急速下跌50%很可怕","url":"http://yetanblog.blog.163.com/blog/static/7566974020111122159058/"},{"title":"何亚福:富商生'八胞胎'犯了什么罪","url":"http://heyafu67.blog.163.com/blog/static/107334342201111226615787/"},{"title":"易中天:沙漠遇车祸被农民救了一命","url":"http://yztvip.blog.163.com/blog/static/16562480320111121430835/"},{"title":"柴静:一个北京城管眼中的暴力执法","url":"http://chaijingguancha.blog.163.com/blog/static/12622223420111121443088/"}]}}, mset:'000', mcon:'', srk:-100, remindgoodnightblog:false, isBlackVisitor:false, isShowYodaoAd:false, hostIntro:'', hmcon:'0' } {list a as x} {if !!x} Private Sub ReadData() Dim i As Integer con.ConnectionString = ("Provider = Microsoft.JET.OLEDB.4.0;Data Source= D:\Only Me\Authors.mdb") Try cmdOle = con.CreateCommand cmdOle.CommandText = "SELECT * FROM Authors " da.SelectCommand = cmdOle da.Fill(dsOle, "Authors") dtOle = dsOle.Tables("Authors") For i = 0 To dtOle.Rows.Count - 1 cmbAuthor.Items.Add(dtOle.Rows(i).Item(1)) Next Catch ex As Exception MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly, "Koneksi Error !!") End Try con.Close() End Sub