【正文】
al RS As New Global PS As New If = adStateOpen And Not IsEmpty(adStateOpen) Then SQLStr, DBconnect, adOpenKeyset4. 執(zhí)行SQL語(yǔ)句 SQLStr5. 關(guān)閉數(shù)據(jù)庫(kù) VB使用ADO數(shù)據(jù)庫(kù)可以分為有源數(shù)據(jù)庫(kù)和無(wú)源數(shù)據(jù)庫(kù),即是否使用了DSN數(shù)據(jù)源,如下例:在連接數(shù)據(jù)庫(kù)前首先要在VB菜單中“工程”“引用”從中選擇 microsoft activeX Data objects library和 microsoft activeX Data objects recordset ,這是在連接數(shù)據(jù)前所必做的工作。server=JSZX311。pwd=。 amp。 39。 amp。 39。uid=sa。 = 30 select 用戶(hù)名 from login, conn, adOpenStatic, adLockReadOnly, adCmdTextDim i As StringFor t = 0 To Val() 1i = Trim((用戶(hù)名).Value) iNext t連接數(shù)據(jù)庫(kù)的方法很多很多,只要各位去勇敢的償試一下,就可以感覺(jué)數(shù)據(jù)庫(kù)的方法并不是很難,本人以前也很想做這方法的工作,只是學(xué)識(shí)不深,未能完成胸中大志,如今對(duì)這些方法的多少有一些了解,特意為那些初學(xué)者以供學(xué)習(xí)之用。如果“程序要移動(dòng)到其他機(jī)子上”,移動(dòng)到的機(jī)子上必須同樣安裝SQL SERVER 2000 數(shù)據(jù)庫(kù),而且服務(wù)器名稱(chēng)、數(shù)據(jù)庫(kù)名稱(chēng)必須和原服務(wù)器名稱(chēng)、數(shù)據(jù)庫(kù)名稱(chēng)相同,如果有數(shù)據(jù)庫(kù)密碼,必須保持一致。server=服務(wù)器名稱(chēng)。pwd=密碼。Persist Security Info=False。Initial Catalog=Science_File。 通過(guò)下列語(yǔ)句,即可連接到指定的數(shù)據(jù)庫(kù): dim odbcstr as String, adoc