锘??xml version="1.0" encoding="utf-8" standalone="yes"?>久久婷婷色香五月综合激情,久久亚洲国产中v天仙www,精品精品国产自在久久高清http://m.shnenglu.com/apple/archive/2009/04/12/79688.html鏄庣帇涓嶅姩鏄庣帇涓嶅姩Sun, 12 Apr 2009 06:58:00 GMThttp://m.shnenglu.com/apple/archive/2009/04/12/79688.htmlhttp://m.shnenglu.com/apple/comments/79688.htmlhttp://m.shnenglu.com/apple/archive/2009/04/12/79688.html#Feedback0http://m.shnenglu.com/apple/comments/commentRss/79688.htmlhttp://m.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 鍙戣〃璇勮
]]> 久久精品国产亚洲av水果派| 久久久久久久尹人综合网亚洲| 国内精品久久久久久久亚洲| 久久久艹| 丰满少妇人妻久久久久久| 久久黄视频| 久久国产色AV免费观看| 日批日出水久久亚洲精品tv| 国产精品久久久久久久久鸭| 欧美日韩精品久久久久| 国产三级久久久精品麻豆三级| 亚洲AⅤ优女AV综合久久久| 精品蜜臀久久久久99网站| 色婷婷噜噜久久国产精品12p| 国产精品久久久久jk制服| 久久精品国产2020| 欧美无乱码久久久免费午夜一区二区三区中文字幕 | 久久国内免费视频| 亚洲va中文字幕无码久久不卡| 国产高潮久久免费观看| 国产精品一区二区久久不卡| 国产精品久久久久久久app| 国产69精品久久久久99| 久久本道伊人久久| 国产成人久久精品一区二区三区| 久久精品中文字幕一区| 亚洲第一永久AV网站久久精品男人的天堂AV | 久久精品久久久久观看99水蜜桃| 精品久久久久久无码国产| 热久久国产精品| 久久伊人精品青青草原高清| 99国产欧美久久久精品蜜芽| 亚洲国产精品久久电影欧美| 久久人人爽人人爽人人片AV不| 波多野结衣久久一区二区| 国产精品久久婷婷六月丁香| 伊人久久大香线蕉亚洲五月天| 无码超乳爆乳中文字幕久久 | 国产成人无码精品久久久久免费 | 亚洲国产日韩欧美久久| 久久这里只有精品首页|