濮阳杆衣贸易有限公司

主頁(yè) > 知識(shí)庫(kù) > asp中COM組件中如何連接數(shù)據(jù)庫(kù)的代碼

asp中COM組件中如何連接數(shù)據(jù)庫(kù)的代碼
熱門(mén)標(biāo)簽：外呼回?fù)芟到y(tǒng)圖片 常用地圖標(biāo)注范圍點(diǎn) 為什么外呼系統(tǒng)需要預(yù)存話費(fèi)呢 咸陽(yáng)銷(xiāo)售外呼系統(tǒng) 寧夏怎么申請(qǐng)400電話 企數(shù)外呼系統(tǒng)能用多久 蘭州智能語(yǔ)音電銷(xiāo)機(jī)器人功能 辦理400電話一年多少錢(qián) 離線電子地圖標(biāo)注軟件注冊(cè)
VB- 工程 -引用 - ADO 2.0 ,建一個(gè)類(lèi)DB，工程名設(shè)為 SQLCONN
以下是偶程序中的部分代碼，大家有空可以試試
Option Explicit
Public strError As String
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Public Property Get ErrorString() As String
ErrorString = strError
End Property

Public Function Conn_Open(strSQLServerName, strSQLDBUserName, strSQLDBPassword, strSQLDBName)
Dim strCon As String
Set Conn = New ADODB.Connection
On Error GoTo errHandler:
strCon = "Provider=SQLOLEDB;Server="  strSQLServerName  ";User ID="  strSQLDBUserName  ";Password="  strSQLDBPassword  ";Database="  strSQLDBName  ";"
Conn.Open strCon
errHandler:
strError = "錯(cuò)誤源："  Err.Source  vbCrLf  "描述："  Err.Description
Exit Function
End Function

Function GetRootID(ByVal ClassID)
Dim query
query = "select class_ID,RootID from tblCategory where class_id='"  ClassID  "'" 
Set Rs = Conn.Execute(query)
If Not (Rs.EOF And Rs.BOF) Then
GetRootID = Rs("RootID")
Else
GetRootID = ClassID
End If
Rs.Close
Set Rs = Nothing
End Function

編譯后，在ASP中這樣用

function GetRootID(byval id) ' 獲取根類(lèi)ID號(hào)
set S_DB = server.CreateObject( "SQLCONN.DB")
S_DB.Conn_Open strSQLServerName,strSQLDBUserName,strSQLDBPassword,strSQLDBName
GetRootID = S_DB.GetRootID(id)
Set S_DB=nothing
end function
您可能感興趣的文章:
  • C++ COM編程之什么是組件？
  • PHP調(diào)用VC編寫(xiě)的COM組件實(shí)例
  • c#創(chuàng)建vc可調(diào)用的com組件方法分享
  • C# 無(wú)需COM組件創(chuàng)建快捷方式的實(shí)現(xiàn)代碼
  • 用JavaScript編寫(xiě)COM組件的步驟
  • 在jsp程序中使用com組件
  • C++中COM組件初始化方法實(shí)例分析

標(biāo)簽：泰州 家電維修 麗江 溫州 昆明 咸陽(yáng) 鐵嶺 昌都

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp中COM組件中如何連接數(shù)據(jù)庫(kù)的代碼》，本文關(guān)鍵詞  asp,中,COM,組件,如何,連接,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp中COM組件中如何連接數(shù)據(jù)庫(kù)的代碼》相關(guān)的同類(lèi)信息！
  • 本頁(yè)收集關(guān)于asp中COM組件中如何連接數(shù)據(jù)庫(kù)的代碼的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    海安县| 五寨县| 汤原县| 云南省| 曲水县| 锦屏县| 古丈县| 丽水市| 屯门区| 泌阳县| 敖汉旗| 阳西县| 土默特右旗| 勃利县| 清水县| 平遥县| 吉水县| 大理市| 齐齐哈尔市| 瑞安市| 新沂市| 仙桃市| 丹凤县| 辉南县| 永清县| 泽普县| 蒲江县| 鹤山市| 方山县| 岚皋县| 余江县| 舒兰市| 石柱| 天门市| 宝坻区| 镇雄县| 沂南县| 班玛县| 武乡县| 威远县| 凤庆县|