浣跨敤姝ラ锛?/p>
1.
鍒涘缓浜嬪姟瀵硅薄锛岄粯璁や负
SQLCA
锛屽彲浠ヨ嚜宸卞畾涔変竴涓叏灞�浜嬪姟鍙橀噺锛?/p>
2.
鎸囧畾璇ヤ簨鍔″璞＄殑灞炴�э紝
杩炴帴鍒版暟鎹簱锛?/p>
锛堜竴鑸湪
Application
鐨?/p>
Open
浜嬩欢涓鐞嗭級
锛?/p>
濡傦細
// RollCall
鐨勮繛鎺ュ畾涔?/p>
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=RollCall;UID=;PWD=',PBCatalogOwner='dba'"
Connect using sqlca;
if sqlca.sqlcode <> 0 then
//
鏄剧ず閿欒锛屽鐞嗛敊璇?/p>
end if
3.
缂栬緫鏌愮獥鍙ｏ紝涓�鑸湪杩欎釜绐楀彛鐨?/p>
Open
浜嬩欢涓鏁版嵁绐楁帶浠惰缃簨鍔′俊鎭紝濡?/p>
Windows
鐨?/p>
Open
浜嬩欢涓啓鍏ワ細
dw_1.settransobject(sqlca)
鍗宠〃绀哄皢
dw_1
鐨勬暟鎹搷浣滃拰
sqlca
杩欎釜浜嬪姟瀵硅薄鑱旂郴璧锋潵銆?/p>
4.
妫�绱㈡暟鎹細
dw_1.retrieve(
鍙傛暟
1,
鍙傛暟
2,
鈥炩�?/p>
.)
锛?/p>
5.
瀵规绱㈠嚭鏉ョ殑鏁版嵁锛堟斁鍦ㄧ紦鍐插尯涓級杩涜缂栬緫锛岄�氳繃鐩存帴缂栬緫锛?/p>
Setitem,dw_1.object
瀵硅薄
寮曠敤绛夋搷浣滐紝缂栬緫鏁版嵁锛?/p>
6.
缂栬緫瀹屾垚锛屽皢璇ユ暟鎹獥涓殑淇敼杩囩殑鏁版嵁淇濆瓨锛屾槸鍚︿慨鏀圭敱
PB
鑷繁鍒ゆ柇锛屽彲浠ラ�氳繃
dw_1.GetItemStatus
鍑芥暟寰楀埌姣忚銆佹瘡鍒楃殑淇敼鐘舵�佺敤鏉ヤ綔鐗规畩鐨勫垽鏂�?/p>
涓�鑸殑淇濆瓨鑴氭湰濡備笅锛?/p>
if dw_1.update(true,false) = 1 then
commit ;
//
鎻愪氦浜嬪姟
//
瀹屾暣鐨勮娉曞簲褰撴槸
Commit using sqlca;
//
瀵逛簬榛樿浜嬪姟
sqlca
锛屽彲浠ョ渷鐣?/p>
using sqlca
瀛愬彞銆?/p>
dw_1.resetupdate() //
澶嶄綅淇敼鐘舵�佷负浠庢湭淇敼杩?/p>
else
RollBack;
//
鍥炴粴浜嬪姟锛屽苟鎻愮ず閿欒淇℃伅
Messagebox(
鈥橀敊璇�?/p>
,
鈥樹繚瀛樻暟鎹椂鍙戠敓閿欒锛?/p>
~r~r
鈥?/p>
+&
sqlca.sqlerrtext,Stopsign!)
end if
7.
褰撲笉闇�瑕佸啀浣跨敤璇ヤ簨鍔℃椂锛岃寰楁柇寮�锛堜竴鑸湪
Application
鐨?/p>
Close
浜嬩欢涓鐞嗭級
锛?/p>
Disconnect Using Sqlca;
瀵规暟鎹獥鎿嶄綔鐨勫父鐢ㄨ剼鏈?/p>
1.
鎻掑叆琛?/p>
dw_1.insertrow(2) //
鍦ㄧ浜岃鍓嶆彃鍏ヤ竴鏉℃柊琛?/p>
2.
杩藉姞琛?/p>
dw_1.insertrow(0) //
鍦ㄥ熬閮ㄨ拷鍔犱竴琛?/p>
3.
鍒犻櫎琛?/p>
dw_1.Deleterow(2) //
鍒犻櫎绗簩琛?/p>
4.
杩囨护
dw_1.setfilter(
鈥?/p>
emp_name like
鈥滃垬
%
鈥?/p>
鈥?/p>
) //
鍑℃槸闆囧憳濮撳垬鐨?/p>