VB的问题主要SQL数据库分少了您说
vb+sql\u6570\u636e\u5e93\u6bd4vb+sql\u6570\u636e\u5e93\u5feb\u5417\u54c8\u54c8 \u767d\u9a6c\u8ddf\u767d\u9a6c\u8c01\u767d
\u6570\u636e\u91cf\u5927\u7684\u65f6\u5019\uff0cSQL\u6bd4ACCESS\u8981\u5feb\u3002
\u65b0\u5efa\u8868\u7684\u8bdd\uff0c\u548c\u67e5\u8be2\u901f\u5ea61W\u6761\u57fa\u672c\u6ca1\u4ec0\u4e48\u592a\u5927\u5dee\u522b\u5427
select t1.*, t2.\u603b\u91d1\u989d into \u65b0\u8868--\u5c31\u5728\u8fd9\u52a0into \u65b0\u8868 \u5373\u53effrom (select * from \u4e1a\u52a1\u603b\u8868 where \u5e8f\u53f7 in (select min (\u5e8f\u53f7) from \u4e1a\u52a1\u603b\u8868 as a, (select \u4e1a\u52a1\u7f16\u53f7, max (\u91d1\u989d) as \u6700\u5927\u91d1\u989d from \u4e1a\u52a1\u603b\u8868 group by \u4e1a\u52a1\u7f16\u53f7) as b where a.\u4e1a\u52a1\u7f16\u53f7 = b.\u4e1a\u52a1\u7f16\u53f7 and a.\u91d1\u989d = b.\u6700\u5927\u91d1\u989d group by b.\u4e1a\u52a1\u7f16\u53f7, b.\u6700\u5927\u91d1\u989d)) as t1,(select \u4e1a\u52a1\u7f16\u53f7,sum(\u91d1\u989d) as \u603b\u91d1\u989d from \u4e1a\u52a1\u603b\u8868 group by \u4e1a\u52a1\u7f16\u53f7) as t2 where t1.\u4e1a\u52a1\u7f16\u53f7 = t2.\u4e1a\u52a1\u7f16\u53f7
数据集打开后可以再排序。用rs.sort="排序字段"的方式可以实现再排序
你两种方法的区别在於使用了两种数据库连接方式，第一种为DAO方式，第二种为ado方式。现在一般使用第二种ado方式。
我回答第1题和第2题吧
dim strSQL as String '就是一个文本变量
引用请按我的2中的方法 打开 rs.open ……
1、strSQL = "select * from 详细信息 order by 引索 ASC"
2、db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + Ways + ";Persist Security Info=False"
strSQL = "select * from 详细信息 order by 引索 ASC"
rs.CursorLocation = adUseClient
rs.Open strSQL, db, adOpenDynamic, adLockPessimistic
我的代码经测试，是可以正常使用的！
分析原因：可以是Rs.CursorType = adOpenStatic有问题，此为静态的！
4、答案是肯定的！
不知道回答是否满意！
Rs.Open "select * from [详细信息] order by [引索] asc", dB
确保表名正确,字段名正确
关闭打开着的数据库
绛旓細浣犲啓璐村嚭鏉ョ殑浠ｇ爜鐪嬩笉鍑轰粈楹闂锛屼綘鍙互灏嗙▼搴忓拰鏁版嵁搴涓璧峰彂缁欐垜锛屾垜甯綘鐪嬩竴涓嬨傛暟鎹泦鎵撳紑鍚庡彲浠ュ啀鎺掑簭銆傜敤rs.sort="鎺掑簭瀛楁"鐨勬柟寮忓彲浠ュ疄鐜板啀鎺掑簭 浣犱袱绉嶆柟娉曠殑鍖哄埆鍦ㄦ柤浣跨敤浜嗕袱绉嶆暟鎹簱杩炴帴鏂瑰紡锛岀涓绉嶄负DAO鏂瑰紡锛岀浜岀涓篴do鏂瑰紡銆傜幇鍦ㄤ竴鑸娇鐢ㄧ浜岀ado鏂瑰紡銆
绛旓細鏈功涓撲负甯屾湜閫氳繃VisualBasic 6.0寮鍙SQL Server 2000鏁版嵁搴搴旂敤绋嬪簭鐨勫涔犺呰璁°傚叏涔﹀垎涓轰笁涓儴鍒嗭紝绗竴閮ㄥ垎锛屽嵆鏁版嵁搴撳熀纭锛岃缁嗚瑙ｄ簡鏁版嵁搴撶郴缁熺殑鍩烘湰姒傚康銆佽璁＄悊璁哄拰鏂规硶锛屽寘鎷琒QL Server 2000鏁版嵁搴撶殑鍒涘缓浠ュ強Transact-SQL璇█鐨勫叆闂ㄧ煡璇嗐傜浜岄儴鍒嗭紝VisualBasic绋嬪簭璁捐鍩虹锛屾兜鐩栦簡VisualBasic鐨勫叏...
绛旓細鈥淧ublic conn1 As SqlConnection = New SqlConnection _("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")鈥濓紝vb灏卞凡缁忔垚鍔熻繛鎺sql鏁版嵁搴浜嗐3銆佷唬鐮佽瑙ｏ細澹版槑鍏抽敭瀛桺ublic锛堝洜涓烘槸鍏ㄥ眬鍙橀噺锛屾墍浠ョ敤Public 鏉ュ０鏄庯級銆4銆佽繛鎺ュ弬鏁般5銆佸鏋SQL 鏁版嵁搴灏卞湪鏈...
绛旓細Dim mrc As ADODB.Recordset 涓嶇煡閬撹繛鎺ヤ笂浜嗕箞銆傚畬鏁寸殑搴旇鏄細Dim objcn As New ADODB.Connection Dim student As New ADODB.Recordset Set objcn = New Connection With objcn .Provider = "SQLOLEDB".ConnectionString = "uid=sa;pwd=123;Data source=127.0.0.1;initial catalog=student".Ope...
绛旓細鍏堢湅涓嬮潰鐨勪唬鐮,鍙互鎴愬姛鐨勬墦寮鏁版嵁搴.Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"杩欏彞浠ｇ爜鎵撳紑浜咲鐩樹腑鐨凪ain.mdb杩欎釜鏁版嵁搴.Connection.Open鏂规硶鐨勭涓涓弬鏁版槸杩炴帴浠ｇ爜,瀹冨皢浼犻掔粰绯荤粺鐨勬暟鎹簱寮曟搸.鍓嶅崐閮ㄥ垎"Provider= Microsoft.Jet.OLEDB.4.0",瀹冭〃绀轰簡鏁版嵁搴撶殑绫诲瀷...
绛旓細涓や釜鍦版柟浣犳敞鎰忔鏌ヤ竴涓嬶細1銆乀ext1.text鐨勫唴瀹规槸涓嶆槸涓ユ牸鍦颁笌缂栧彿鐨勪竴鏍凤紝鐢变簬杞欢鐨勫叧绯伙紝寤鸿Text1.Text鏈淇濋櫓鏀圭敤 trim(Text1.text)2銆佷綘鐨勮鏁拌繖涓瓧娈碉紝鎴戞鐤戞槸涓涓暟鍊煎瀷鐨勫瓧娈碉紝鑰屽鏋 day(Now)鏄3鐨勮瘽锛屼綘瀹為檯涓婃槸鐢'3'鍘绘浛鎹紝杩欏彲鑳戒粈涔堝鑷鏁版嵁绫诲瀷涓嶄竴鑷寸憺鎷掔粷鏇挎崲 ...
绛旓細Dim sSql As String sSql = " SELECT* FROM Table WHERE MainID='" & MainID & "'" & _" UNION " & _" SELECT MainID, Name, VipID, Sex, Birth, MPhone, Phone, Addr, BDate, CardID, BCoID, BPosID, UmType, UmDiscount, UpdateTime,State, CASE WHEN State=0 THEN '鏈...
绛旓細Rs.Open鍙傛暟璇存槑 鍦ˋSP涓粡甯哥敤Rs.Open sql,conn,1,1杩欐牱鐨勬柟寮忔墦寮鏁版嵁搴,浣嗕粛鏈変竴閮ㄥ垎鍚岃涓嶇煡閬撹繖鏄槢鎰忔,鐜版暣鐞嗗涓:Rs.Open璇硶濡備笅:rs.Open Source,ActiveConnection,CursorType,LockType Source涓簊ql璇彞,ActiveConnection涓烘暟鎹簱杩炴帴,CursorType鏄父鏍,LockType鏄暟鎹攣瀹氱被鍨.CursorType 甯搁噺 ...
绛旓細Con.Provider="sqloledb" 鍒嗗埆琛ㄧずaess涓嶴qlServer鐨勮繛鎺ユ敮鎸! B. 渚嬪,鍙互鎸変互涓嬫柟寮忓垎鍒缃甋QLServer涓嶢ess鐨勮繛鎺ュ瓧绗︿覆淇℃伅 Con.="driver={SQLServer};server=SV1;uid=sa;pwd=;database=pubs" Con.="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:.MDB" 璇锋敞鎰廇ess鏁版嵁搴涓嶴qlServer鏁版嵁搴撲笉鍚岀殑杩炴帴鏂瑰紡...
绛旓細1銆鏁版嵁搴瀵硅薄杩炴帴琚叧闂簡锛岃繖鑲畾浼氭姤閿欑殑锛屽綋鐒朵篃涓嶈兘杈撳嚭浠讳綍缁撴灉鐨勶紝杩欐椂鍙渶娉ㄦ剰鈥滃厛浣跨敤銆佸悗鍏抽棴鈥濆氨琛屼簡锛岃В鍐宠繖鏍鐨勯棶棰灏辨槸鏆傛椂鍏堜笉瑕佸叧闂暟鎹簱杩炴帴灏辫浜嗐2銆佽繑鍥炶褰曚负绌烘椂锛屼篃浼氭姤閿欍傚涓嬮潰鐨勪唬鐮 sql = select * from dbcn where 鐘舵='0'Set rs = conn.Execute(sql)If Not ...
