锘??xml version="1.0" encoding="utf-8" standalone="yes"?>亚洲第一视频网站,国产精品二区三区四区,夜夜爽夜夜爽精品视频http://www.shnenglu.com/apple/archive/2009/04/12/79688.html鏄庣帇涓嶅姩鏄庣帇涓嶅姩Sun, 12 Apr 2009 06:58:00 GMThttp://www.shnenglu.com/apple/archive/2009/04/12/79688.htmlhttp://www.shnenglu.com/apple/comments/79688.htmlhttp://www.shnenglu.com/apple/archive/2009/04/12/79688.html#Feedback0http://www.shnenglu.com/apple/comments/commentRss/79688.htmlhttp://www.shnenglu.com/apple/services/trackbacks/79688.html鏈榪戝仛浜嗕釜璇劇▼璁捐錛屽浜嗕笅VB,浣滀笅鎬葷粨鍚с?br>鍋氳繖涓紼嬭璁＄殑榪囩▼涓富瑕佺殑闅懼害鏄疉CCESS鏁版嵁搴撶紪紼嬶紝鐢∕SFLEXGRID鎺т歡鏉ユ樉紺烘暟鎹簱鐨勬暟鎹?br>涓嶅緱涓嶈錛屽仛涓皬搴旂敤杞歡鐗瑰埆鏄暟鎹簱鐩稿綋閲嶈鐨勶紝鐪熻濂藉ソ璁捐瑙勫垝涓嬶紝鐢變簬鎴戞槸絎竴嬈″仛涓涓皬杞歡錛?br>寰堝涓滆タ閮芥病鎬庝箞鑰冭檻錛屾悶浜嗕笅闇姹傚垎鏋愶紝鏁版嵁搴撶殑璁捐涔熸槸鑳℃潵錛屾暣涓紑鍙戞枃妗ｄ篃娌″啓濂斤紝寰堟槸綺楃硻錛岀粨鏋滀竴涓浉褰撶畝鏄撶殑涓滆タ錛屽仛浜嗕竴涓槦鏈燂紝涓嶈繃浠庝腑涔熷鍒頒簡寰堝涓滆タ銆傛葷粨涓涓嬶細(xì)
1.瑕佸垎鏋愭竻妤氭暣涓郴緇熺殑榪愪綔嫻佺▼錛岃瀹氬悇涓儴鍒嗘槸濡備綍瀹炵幇錛屽弽姝ｅ氨鍏堝亣鎯充笅銆?br>2.鏁版嵁搴撶殑璁捐涓瀹氳窡涓婇潰鐨勫垎鏋愮鍚堬紝鏈夊埄浜庣紪鐮佺殑瀹炵幇
3.寰堝鏃跺欓亣鍒伴棶棰樿嚜宸辮濂藉ソ鍦版濊冧竴涓嬶紝涓嶈鎯充竴涓嬫垨鑰呴亣鍒伴檶鐢熺殑涓滆タ鏃跺氨鏀懼純鎬濊冿紝濡傛灉鏈夎嚜宸辯殑鎯蟲硶瑕佸幓灝濊瘯涓嬶紝鍦ㄨ紼嬭璁′腑錛岃鐢ㄥ埌澶嶅埗鏁版嵁琛紝浣嗕笉鐭ユ庝箞鎼烇紝鍒板鍘婚棶涔熸病浜哄府蹇欙紝嫻垂浜嗕竴涓櫄涓婄殑鏃墮棿錛岀粨鏋滅浜屽ぉ娓呮櫒鑷繁鍔ㄦ墜灝遍偅涓嚜鐒剁殑鎯蟲硶璇曚簡涓嬶紝灝辨垚鍔熷暒銆?br>4.鍦ㄨ繖涓紼嬭璁′腑錛屾垜閫変簡dao鐨勬柟寮忥紝娌℃湁閲囩敤ado浼兼湁鐐歸敊錛屽洜涓篸ao寰堝皯浜虹敤浼肩殑錛屼笂緗戞壘璧勬枡鏃舵瘮杈冨皯錛屼互鍚庡垯瀹氳鑰冭檻娓呮榪欎簺鏂歸潰銆?br>5.vb6.0鏄釜璁╂垜瑙夊緱鎸虹儲鐨勪笢瑗匡紝姣忔鎵撳紑涓伐紼嬮偅涔堝FORM灝遍棯闂棯鍑烘潵錛屼笉鍠滄榪欑偣錛屽懙鍛?br>
DAO鐨勮繛鎺ユ柟寮?br>

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path + "\admin.mdb")
Set rs = db.OpenRecordset("select * from table where  "'")
澶嶅埗鏁版嵁琛?br>鍏跺疄涔熸槸寰堢畝鍗曠殑錛屽鍒剁殑琛ㄥ拰琚鍒剁殑琛ㄦ槸鍩轟簬鍚屼釜MDB鏂囦歡鐨勶紝
If myrs5.RecordCount >= 1 Then
    While myrs5.EOF = False
    myrs4.AddNew
    myrs4.Fields("Ãû³Æ1") = myrs5.Fields("Ãû³Æ")
    myrs4.Fields("µ¥¼Û1") = myrs5.Fields("µ¥¼Û")
    myrs4.Fields("ÊýÁ¿1") = myrs5.Fields("ÊýÁ¿")
    myrs4.Fields("ÂëÊý1") = myrs5.Fields("ÂëÊý")
    myrs4.Fields("½ð¶î1") = myrs5.Fields("½ð¶î")
    myrs4.Fields("ÊýÁ¿2") = 0
    myrs5.MoveNext
    myrs4.Update
    Wend
    End If
    myrs5.Close

combo鎺т歡錛孧SFLEXGRID鎺т歡鐨勪嬌鐢紝鏁版嵁搴撴暟鎹樉紺哄湪MSFLEXGRID涓?br>
 If myrs3.RecordCount >= 1 Then
        While myrs3.EOF = False
        Combo1.AddItem (myrs3.Fields("Ãû³Æ1"))
        Combo2.AddItem (myrs3.Fields("ÂëÊý1"))
            MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
            MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
            MSFlexGrid1.Col = 0
            MSFlexGrid1.Text = myrs3.Fields("Ãû³Æ1")
            MSFlexGrid1.Col = 1
            MSFlexGrid1.Text = myrs3.Fields("µ¥¼Û1")
            MSFlexGrid1.Col = 2
            MSFlexGrid1.Text = myrs3.Fields("ÊýÁ¿3")
            MSFlexGrid1.Col = 3
            MSFlexGrid1.Text = myrs3.Fields("ÂëÊý1")
            MSFlexGrid1.Col = 4
            MSFlexGrid1.Text = myrs3.Fields("½ð¶î1")
            myrs3.MoveNext
        Wend
        myrs3.Close
End If

灝嗘暟鎹簱涓殑鏌愪釜琛ㄧ殑鏁版嵁娓呯┖
Dim sstr As String
Dim db As Database
 Set db = OpenDatabase(App.Path + "\shoeee1.mdb")
sstr = "delete * from shoesell"
db.Execute (sstr)
db.Close

鐧誨綍妗嗕腑鏍稿鐢ㄦ埛鍚嶇殑
 Set Myrs = Mydb.OpenRecordset(" select * from ¹table where username  ='" & Trim(txtUserName) & "'")

澶嶅埗浠ｇ爜榪囨潵鏈変貢鐮侊紝錛岋紝錛?

鏄庣帇涓嶅姩 2009-04-12 14:58 鍙戣〃璇勮
]]> 精品久久久久国产免费 | 国产产无码乱码精品久久鸭| 久久超乳爆乳中文字幕| 丁香五月综合久久激情| 久久久国产亚洲精品| 久久久久中文字幕| 久久精品国产亚洲AV久| aaa级精品久久久国产片| 久久人人爽人爽人人爽av | 久久久噜噜噜www成人网| 国产精品99久久不卡| 亚洲人成网亚洲欧洲无码久久| 国产精品美女久久久久网| 婷婷久久综合| 精品久久久无码中文字幕| 69SEX久久精品国产麻豆| 久久精品国产日本波多野结衣| 99久久精品无码一区二区毛片| 久久久久久久精品妇女99| 欧美久久一区二区三区| 草草久久久无码国产专区| 狠色狠色狠狠色综合久久| 久久成人国产精品| 成人国内精品久久久久一区| 色欲综合久久躁天天躁蜜桃| 亚洲一级Av无码毛片久久精品| 久久久久国产一区二区三区| 欧美综合天天夜夜久久| 精品一区二区久久久久久久网站| 欧美大香线蕉线伊人久久| 久久久久亚洲AV片无码下载蜜桃| 久久久精品国产| 伊人久久综合无码成人网| 久久久久女人精品毛片| 亚洲伊人久久精品影院| 久久精品人人做人人妻人人玩| 精品久久久久久久久午夜福利| 久久精品无码专区免费东京热| 99久久超碰中文字幕伊人| 国产美女久久久| 国产69精品久久久久9999|