锘??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 鍙戣〃璇勮
]]> 久久精品99久久香蕉国产色戒| 手机看片久久高清国产日韩| 久久久久亚洲av无码专区导航 | 国产精品99精品久久免费| 久久99精品久久久久婷婷| 久久福利青草精品资源站免费| 91久久九九无码成人网站| 国产精品久久久久蜜芽| 久久被窝电影亚洲爽爽爽| 欧美国产精品久久高清| 精品精品国产自在久久高清| 一级做a爰片久久毛片免费陪| 久久免费高清视频| 亚洲女久久久噜噜噜熟女| 久久久久亚洲AV无码专区桃色| 久久久久se色偷偷亚洲精品av| 亚洲国产精品久久久久婷婷老年| 久久大香萑太香蕉av| 久久精品无码av| 97超级碰碰碰碰久久久久| 亚洲AV日韩精品久久久久| 亚洲国产综合久久天堂| 99久久精品免费看国产免费| 久久久久久午夜成人影院| 色婷婷综合久久久中文字幕| 亚洲人AV永久一区二区三区久久| 久久99精品免费一区二区| 久久精品一区二区| 国内精品久久国产大陆| 精品久久久久久成人AV| 97久久精品人妻人人搡人人玩| 99久久无色码中文字幕人妻| 中文字幕热久久久久久久| 蜜桃麻豆WWW久久囤产精品| 99久久做夜夜爱天天做精品| 性做久久久久久久久浪潮| 亚洲欧美一级久久精品| 久久综合亚洲色HEZYO社区| 久久人人爽人人爽人人片AV高清| 欧美日韩精品久久久久| 午夜不卡久久精品无码免费|