锘??xml version="1.0" encoding="utf-8" standalone="yes"?>久久婷婷色香五月综合激情,久久亚洲国产中v天仙www,精品精品国产自在久久高清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鏈榪戝仛浜?jiǎn)涓瘎〃嬭璁″Q屽浜?jiǎn)涓媀B,浣滀笅鎬葷粨鍚с?br>鍋氳繖涓紼嬭璁＄殑榪囩▼涓富瑕佺殑闅懼害鏄疉CCESS鏁版嵁搴撶紪紼嬶紝鐢∕SFLEXGRID鎺т歡鏉ユ樉紺烘暟鎹簱鐨勬暟鎹?br>涓嶅緱涓嶈錛屽仛涓皬搴旂敤杞歡鐗瑰埆鏄暟鎹簱鐩稿綋閲嶈鐨勶紝鐪熻濂藉ソ璁捐瑙勫垝涓嬶紝鐢變簬鎴戞槸絎竴嬈″仛涓涓皬杞歡錛?br>寰堝涓滆タ閮芥病鎬庝箞鑰冭檻錛屾悶浜?jiǎn)涓嬮渶姹傚垎鏋愶紝鏁版嵁搴撶殑璁捐涔熸槸鑳℃潵錛屾暣涓紑鍙戞枃妗ｄ篃娌″啓濂斤紝寰堟槸綺楃硻錛岀粨鏋滀竴涓浉褰撶畝鏄撶殑涓滆タ錛屽仛浜?jiǎn)涓涓槦鏈燂紝涓嶈繃浠庝腑涔熷鍒頒簡(jiǎn)寰堝涓滆タ銆傛葷粨涓涓嬶細(xì)
1.瑕佸垎鏋愭竻妤氭暣涓郴緇熺殑榪愪綔嫻佺▼錛岃瀹氬悇涓儴鍒嗘槸濡備綍瀹炵幇錛屽弽姝ｅ氨鍏堝亣鎯充笅銆?br>2.鏁版嵁搴撶殑璁捐涓瀹氳窡涓婇潰鐨勫垎鏋愮鍚堬紝鏈夊埄浜庣紪鐮佺殑瀹炵幇
3.寰堝鏃跺欓亣鍒伴棶棰樿嚜宸辮濂藉ソ鍦版濊冧竴涓嬶紝涓嶈鎯充竴涓嬫垨鑰呴亣鍒伴檶鐢熺殑涓滆タ鏃跺氨鏀懼純鎬濊冿紝濡傛灉鏈夎嚜宸辯殑鎯蟲硶瑕佸幓灝濊瘯涓嬶紝鍦ㄨ紼嬭璁′腑錛岃鐢ㄥ埌澶嶅埗鏁版嵁琛紝浣嗕笉鐭ユ庝箞鎼烇紝鍒板鍘婚棶涔熸病浜哄府蹇欙紝嫻垂浜?jiǎn)涓涓櫄涓婄殑鏃墮棿錛岀粨鏋滅浜屽ぉ娓呮櫒鑷繁鍔ㄦ墜灝遍偅涓嚜鐒剁殑鎯蟲硶璇曚簡(jiǎn)涓嬶紝灝辨垚鍔熷暒銆?br>4.鍦ㄨ繖涓紼嬭璁′腑錛屾垜閫変簡(jiǎn)dao鐨勬柟寮忥紝娌℃湁閲囩敤ado浼兼湁鐐歸敊錛屽洜涓篸ao寰堝皯浜虹敤浼肩殑錛屼笂緗戞壘璧勬枡鏃舵瘮杈冨皯錛屼互鍚庡垯瀹氳鑰冭檻娓呮榪欎簺鏂歸潰銆?br>5.vb6.0鏄釜璁╂垜瑙夊緱鎸虹儲(chǔ)鐨勪笢瑗匡紝姣忔鎵撳紑涓伐紼嬮偅涔堝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 鍙戣〃璇勮
]]> 天天躁日日躁狠狠久久 | 久久AⅤ人妻少妇嫩草影院| 情人伊人久久综合亚洲| 国产高潮久久免费观看| 无码人妻久久一区二区三区蜜桃| 国产成人无码精品久久久性色| 久久天天躁狠狠躁夜夜网站| 亚洲成色999久久网站| 久久99这里只有精品国产| 精品久久久久久国产91| 欧美日韩精品久久久久| 久久男人Av资源网站无码软件| 久久精品国产亚洲综合色| 精品国产青草久久久久福利| 女人香蕉久久**毛片精品| 精品一二三区久久aaa片| 九九久久精品国产| 国产精品99久久99久久久| 亚洲日本va午夜中文字幕久久| …久久精品99久久香蕉国产| 久久夜色精品国产亚洲| 久久午夜综合久久| 久久精品国产福利国产琪琪| 久久综合中文字幕| 国产精品青草久久久久婷婷| 亚洲AV日韩精品久久久久久| 香蕉久久夜色精品国产尤物| 久久久久99精品成人片三人毛片 | 国产成人综合久久精品红| 精品无码久久久久久国产| 一本大道久久a久久精品综合| 久久国产亚洲高清观看| 亚洲国产精品18久久久久久| 综合久久给合久久狠狠狠97色| 日韩久久久久中文字幕人妻| 久久精品夜色噜噜亚洲A∨| 成人精品一区二区久久| 国产精品美女久久久免费| 国产成人久久精品麻豆一区 | 久久久久久免费视频| 久久亚洲AV无码精品色午夜|