VB- 공사 -인용 하 다. - ADO 2.0 ,클래스 DB 를 만 들 고 프로젝트 이름 은 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 = "오류 원본:" & 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) ' 루트 ID 번호 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
