锘??xml version="1.0" encoding="utf-8" standalone="yes"?>
1.瑕佸垎鏋愭竻妤氭暣涓郴緇熺殑榪愪綔嫻佺▼錛岃瀹氬悇涓儴鍒嗘槸濡備綍瀹炵幇錛屽弽姝e氨鍏堝亣鎯充笅銆?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
"'")
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
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) & "'")