在vb中[microsoft][ODBC驱动程序管理器]未发现数据源名称并且为指定默认驱动程序
VB \u8fd0\u884c\u4e2d\u51fa\u73b0 [Microsoft][ODBC\u9a71\u52a8\u7a0b\u5e8f\u7ba1\u7406\u5668]\u672a\u53d1\u73b0\u6570\u636e\u6e90\u540d\u79f0\u5e76\u4e14\u672a\u6307\u5b9a\u9ed8\u8ba4\u9a71\u52a8\u7a0b\u5e8f\u9996\u5148\u68c0\u67e5\u4f60\u7684ODBC\u6570\u636e\u6e90\u662f\u5426\u8bbe\u7f6e\u5b8c\u6210\uff0c\u7136\u540e\u662f\u4f60\u7684\u4ee3\u7801\u4e2d\u7f3a\u5c11\u6570\u636e\u6e90\u7684\u94fe\u63a5\u4fe1\u606f
Dim cnn As New ADODB.Connection \u2019\u8bbe\u7f6e\u5230\u6570\u636e\u6e90\u7684\u94fe\u63a5\u4fe1\u606f
Dim rst As New ADODB.Recordset \u2018\u8bbe\u7f6e\u8bb0\u5f55\u6e90
Dim s As String
s = "dsn=\uff08ODBC\u6570\u636e\u6e90\u4e2d\u7684\u7528\u6237\u6570\u636e\u6e90\u540d\u79f0\uff09;uid=\uff08\u7528\u6237\u540d\uff09;pwd=\uff08\u5bc6\u7801\uff09"
'\u4f8b\u5982 s = "dsn = \u56fe\u4e66\u7ba1\u7406;uid = ;pwd = "
cnn.Open s
rs.Open "select * from \u5bc6\u7801 where \u64cd\u4f5c\u5458\u540d\u79f0= '" & Trim(txtuser.Text) & "'and \u5bc6\u7801='" & Trim(txtpwd.Text) & "'and \u64cd\u4f5c\u5458\u7ea7\u522b='\u7cfb\u7edf\u7ba1\u7406\u5458'", cnn, adOpenKeyset, adLockOptimistic
\u8fd9\u6837\u7684\u8bdd\u5e94\u8be5\u5c31\u6ca1\u95ee\u9898\u4e86
\u53ef\u4ee5\u8bbe\u7f6e\u4e00\u914d\u7f6e\u6587\u4ef6\uff0c\u5b58\u6709\u6570\u636e\u5e93\u6587\u4ef6\u4f4d\u7f6e\u4fe1\u606f\uff0c\u7a0b\u5e8f\u542f\u52a8\u65f6\uff0c\u7528\u4e00\u516c\u5171\u53d8\u91cf\u8bfb\u53d6\uff0c\u5728ADO\u6216\u5176\u4ed6\u6570\u636e\u63a7\u4ef6\u8bbe\u7f6e\u65f6\u8c03\u7528\u5373\u53ef\u3002
打开控制面板 - 性能和维护 - 管理工具 - 数据源 (ODBC)，按照向导创建一个SQLSERVER的数据源，指向你对应的数据库即可绛旓細濡傛灉鏄簿绠鐗鐨鎹㈡垚浼佷笟鐗堢殑 濡傛灉鏄紒涓氱増鐨勪笅杞絊P6瀹夎锛寰蒋瀹樻柟缃戠珯涓婃湁杩欎釜琛ヤ竵
绛旓細鍦╒B绐椾綋涓缓绔嬮氱敤瀵硅瘽妗嗙殑鏂规硶鍜屾搷浣滄楠ゅ涓嬶細1銆佺涓姝ワ紝鍦ㄢ滃伐绋嬧濊彍鍗曚腑閫夋嫨鈥滈儴浠垛濋夐」锛岃涓嬪浘锛岀劧鍚庤繘鍏ヤ笅涓姝ャ2銆佺浜屾锛屽畬鎴愪笂杩版楠ゅ悗锛屽崟鍑烩滄帶浠垛濇寜閽紝鍕鹃夆滄帶浠垛濆垪琛ㄤ腑鐨勨microsoft common dialog control6.0鈥濊繖涓椤癸紝鐒跺悗鍗曞嚮鈥滅‘瀹氣濓紝浠ヤ娇閫氱敤瀵硅瘽妗嗘帶浠舵坊鍔犲埌宸ュ叿鏍忎腑锛...
绛旓細鏂规硶鏄: 鈥滃伐绋嬧濃斺滈儴浠垛濊彍鍗曢夐」,閫変腑鈥Microsoft ADO Data Control 6.0(OLE DB)鍚庯紝鎸夆滅‘瀹氣濓紝姝ゆ椂ADO鏁版嵁鎺т欢渚垮嚭鐜板湪宸ュ叿绠变腑銆備娇鐢ˋDO 瀵硅薄妯″瀷璁块棶鏁版嵁搴撱備负浜嗚兘澶熷湪绋嬪簭涓娇鐢ˋDO瀵硅薄缂栫▼锛屽湪杩炴帴鏁版嵁搴撳墠锛岄渶瑕佸湪Visual Basic 6.0鑿滃崟 鈥滃伐绋嬧濃斺滃紩鐢ㄢ濅腑閫夋嫨Microsoft ActiveX Data ...
绛旓細Controls-2 6.0鐨勮瘽锛岀綉涓婃悳绱笅杞 VSFLEX3.OCX 鏀惧埌c:\windows\system32\涓嬶紝娉ㄥ唽鍚庡氨鍙敤浜
绛旓細1銆佸湪宸ョ▼涓紩鐢Microsoft Excel绫诲瀷搴擄細浠嶾"宸ョ▼\"鑿滃崟涓夋嫨\"寮曠敤\"鏍;閫夋嫨MicrosoftExcel 9.0 Object Library(EXCEL2000)锛岀劧鍚庨夋嫨\"纭畾\"銆傝〃绀哄湪宸ョ▼涓寮曠敤EXCEL绫诲瀷搴撱2銆佸湪閫氱敤瀵硅薄鐨澹版槑杩囩▼涓畾涔塃XCEL瀵硅薄锛欴im xlApp AsExcel.Application Dim xlBook As Excel.WorkBook Dim xlSheet ...
绛旓細鎶寰蒋鐨鏁版嵁搴撳紩鎿庨噸瑁呬竴閬嶏紝瑕佷笅杞2.8鐗堟湰鐨勩
绛旓細1銆侀鍏堬紝鍦‥xcel琛ㄦ牸涓緭鍏ュ鍥惧唴瀹癸紝浠ユ柟渚鍦╒BA涓繘琛岃鍙栧拰澶勭悊鎿嶄綔銆2銆佽繘鍏BA鐜锛屽彲浠ユ寜閿洏涓婄殑鈥淎lt+F11鈥濊繘鍏ャ傚彸鍑烩Microsoft Excel瀵硅薄鈥濓紝浠庡叾鍙抽敭鑿滃崟涓夋嫨鈥滄彃鍏モ-鈥滅敤鎴风獥浣撯濋」銆3銆佹帴鐫鍚戠獥浣撲腑鎷栧姩涓涓滄爣绛锯濆拰涓涓滄寜閽濓紝鍙冲嚮鈥滄寜閽濓紝浠庡叾鎵╁睍鑿滃崟涓夋嫨鈥滃睘鎬р濋」銆...
绛旓細1銆佽皟鐢‥xcel瀵硅薄鎵撳紑EXCEL鏂囦欢鍚庯紝璇诲彇鏂囦欢鍐呭\x0d\x0a***\x0d\x0a鍦╒B涓瑕佹兂璋冪敤Excel锛岄渶瑕佹墦寮VB缂栫▼鐜鈥滃伐绋嬧濊彍鍗曚腑鐨勨滃紩鐢ㄢ濋」鐩紝骞堕夊彇椤圭洰涓殑鈥MicrosoftExcel 11.0 object library鈥濋」銆傜敱浜庝綘鐨凟xcel鐗堟湰涓嶅悓锛屾墍浠ヨ繖涓夐」鐨勭増鏈彿涔熸槸涓嶅悓鐨勩俓x0d\x0a \x0d\x0a鍥犱负...
绛旓細DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "cADODB"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Const SQL1 = "Provider=Microsoft.Jet....
绛旓細鎵炬壘鏈夋病鏈塡Program Files\Microsoft Office\OFFICE10\msword.olb锛屽鏋滄病鏈夛紝閭ｈ繕鏄疧ffice瑁呯殑鏈夐棶棰橈紝濡傛灉鏈夛紝鍙互鍦╒B閲岄潰寮曠敤鐨勫湴鏂规寜鈥渂rowse鈥濓紝閫夋嫨杩欎釜鏂囦欢灏卞彲浠ヤ簡
