범용 데이터베이스 연결 프로그램

저자：Eve Cole 업데이트 시간：2025-08-18 03:48:01

범용 데이터베이스 클라이언트는 범용 데이터베이스 연결 프로그램을 배웁니다. 이 데이터베이스 클라이언트는 데이터베이스 적용 범위와 볼 수있는 모든 데이터베이스를 지원하는 범용 데이터베이스 클라이언트라고 할 수 있습니다. 그렇다면 Universal Database Connection 프로그램을 알고 있습니까? The Foot New Technology Channel의 편집자가 당신을 더 많이 배우게하십시오!

소개 : 데이터베이스 작업을위한 다양한 유형의 데이터베이스 및 기능 연결

다음 프로그램은 거의 모든 MS 데이터베이스에 연결할 수있는 범용 데이터베이스 연결 프로그램이라고 할 수 있습니다. 연구에 사용하십시오 (이 프로그램은 "ASP 웹 페이지 제작 자습서" - 좋은 책에 있습니다) :

'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

함수 getMdbConnection (filename)

DIM 제공 업체, DBPATH

제공자 = "제공자 = microsoft.jet.oledb.4.0;"

dbpath = "data source ="& server.mappath (filename)

getMdbConnection = getConnection (제공자 및 dbpath)

엔드 기능

기능 getsecuredmdbConnection (파일 이름, 비밀번호)

DIM 제공 업체, DBPATH

제공자 = "제공자 = microsoft.jet.oledb.4.0;"

dbpath = "data source ="& server.mappath (filename)

getSecuredmdbConnection = getConnection (제공자 & dbpath & "; jet eledb : 데이터베이스 비밀번호 ="& 암호) 끝 기능

함수 getDBCConnection (filename)

Dim Driver, SourceType, DBPath

드라이버 = "드라이버 = {Microsoft Visual FoxPro 드라이버};"

sourcetype = "sourcetype = dbc;"

dbpath = "sourcedb ="& server.mappath (filename)

getDBCConnection 설정 = getConnection (Driver & SorceType & DBPath)

엔드 기능

함수 getDBFConnection (디렉토리)

Dim Driver, SourceType, DBPath

드라이버 = "드라이버 = {Microsoft Visual FoxPro 드라이버};"

sourcetype = "sourcetype = dbf;"

dbpath = "sourcedb ="& server.mappath (디렉토리)

getDBFConnection 설정 = getConnection (Driver & SorceType & DBPath)

엔드 기능

함수 getExcelConnection (filename)

Dim Driver, dbpath

드라이버 = "드라이버 = {Microsoft Excel Driver (*.xls)};"

dbpath = "dbq ="& server.mappath (filename)

getExcelConnection = getConnection (driver & "readonly = 0;"& dbpath) 끝 기능

함수 getTextConnection (디렉토리)

Dim Driver, dbpath

driver = "driver = {Microsoft 텍스트 드라이버 ( *.txt; *.csv)};"

dbpath = "dbq ="& server.mappath (디렉토리)

getTextConnection = getConnection (Driver & DBPath) 설정

엔드 기능

함수 getSqlServerConnection (컴퓨터, userID, 암호, DB)

Dim Params, Conn

getSqlServerConnection = 아무것도 설정하십시오

params = "제공자 = sqloledb.1"

params = params & "; data source ="& 컴퓨터

params = params & "; user id ="& userId

params = params & "; password ="& password

params = params & "; 초기 카탈로그 ="& db

set conn = server.createobject ( "adodb.connection")

conn.open 매개 변수

getsqlserverconnection = conn 세트

엔드 기능

함수 getmdbrecordset (filename, source)

getmdbrecordset = getmdbrs (filename, source, 2, "")

엔드 기능

함수 getMdbStaticRecordset (파일 이름, 소스)

getMdbStaticRecordset = getMdbrs (filename, source, 3, "")

엔드 기능

function getSecuredmdbrecordset (파일 이름, 소스, 비밀번호)

set getsecuredmdbrecordset = getMdbrs (filename, source, 2, password) 종료 함수

getsecuredmdbstaticrecordset (filename, source, password)

set getSecuredmdbstaticrecordset = getMdbrs (filename, source, 3, password) 끝 기능

함수 getDBFrecordset (디렉토리, SQL)

GetDBFrecordset = getOtherrs ( "DBF", 디렉토리, SQL, 2)

엔드 기능

함수 getDBFStaticRecordset (디렉토리, SQL)

GetDBFStaticRecordset = GetOtherRS ( "DBF", 디렉토리, SQL, 3)

엔드 기능

함수 getDBcrecordset (filename, sql)

getDBcrecordset = getotherrs ( "dbc", filename, sql, 2)

엔드 기능

함수 getDBCStaticRecordset (Filename, SQL)

GetDBCStaticRecordset = GetOtherRS ( "DBC", Filename, SQL, 3)

엔드 기능

함수 getExcelRecordset (filename, sql)

getExcelRecordset = getOtherrs ( "Excel", Filename, SQL, 2)

엔드 기능

함수 getExcelStaticRecordset (Filename, SQL)

getExcelStaticRecordset = getOtherrs ( "Excel", Filename, SQL, 3)

엔드 기능

함수 getTextRecordset (디렉토리, SQL)

getTextRecordset = getOtherrs ( "텍스트", 디렉토리, SQL, 2)

엔드 기능

함수 getTextStaticRecordset (디렉토리, SQL)

getTextStaticRecordset = getOtherrs ( "텍스트", 디렉토리, SQL, 3)

엔드 기능

함수 getsqlServerRecordset (Conn, Source)

희미한 Rs

set rs = server.createobject ( "adodb.recordset")

Rs. Open Source, Conn, 2, 2

getsqlserverrecordset = rs 세트

엔드 기능

함수 getSqlServerStaticRecordset (Conn, Source)

희미한 Rs

set rs = server.createobject ( "adodb.recordset")

Rs. Open Source, Conn, 3, 2

getsqlserverstaticrecordset = rs 세트

엔드 기능

함수 getConnection (param)

Dim Conn

다음에 오류가 재개됩니다

GetConnection = 아무것도 설정하십시오

set conn = server.createobject ( "adodb.connection")

err.number <> 0 인 경우 기능을 종료하십시오

conn.open param

err.number <> 0 인 경우 기능을 종료하십시오

GetConnection = Conn을 설정하십시오

엔드 기능

함수 getmdbrs (파일 이름, 소스, 커서, 비밀번호)

Dim Conn, Rs

다음에 오류가 재개됩니다

getmdbrs = 아무것도 설정하지 않습니다

LEN (비밀번호) = 0이면

set conn = getMdbConnection (filename)

또 다른

set conn = getsecuredmdbConnection (파일 이름, 비밀번호)

끝 If

Conn이 아무것도 없다면 종료 기능을 종료하십시오

set rs = server.createobject ( "adodb.recordset")

err.number <> 0 인 경우 기능을 종료하십시오

Rs. Open Source, Conn, Cursor, 2

err.number <> 0 인 경우 기능을 종료하십시오

getmdbrs = rs를 설정하십시오

엔드 기능

기능 getotherrs (데이터 유형, 경로, SQL, 커서)

Dim Conn, Rs

다음에 오류가 재개됩니다

getotherrs = 아무것도 설정하십시오

사례 데이터 유형을 선택하십시오

"DBF"사례

conn = getdbfconnection (경로)

사례 "DBC"

conn = getdbcconnection (경로)

"Excel"사례

conn = getExcelConnection (경로)

사례 "텍스트"

conn = getTextConnection (경로)

종료 선택

Conn이 아무것도 없다면 종료 기능을 종료하십시오

set rs = server.createobject ( "adodb.recordset")

err.number <> 0 인 경우 기능을 종료하십시오

Rs. Open SQL, Conn, Cursor, 2

err.number <> 0 인 경우 기능을 종료하십시오

getotherrs = rs를 설정하십시오

엔드 기능

함수 getSqlServerrs (컴퓨터, userID, 암호, DB, 소스, 커서)

Dim Conn, Rs

다음에 오류가 재개됩니다

getsqlserverrs = 아무것도 설정하지 않습니다

set conn = getsqlserverconnection (컴퓨터, userID, 암호, DB)

Conn이 아무것도 없다면 종료 기능을 종료하십시오

set rs = server.createobject ( "adodb.recordset")

err.number <> 0 인 경우 기능을 종료하십시오

Rs. Open Source, Conn, Cursor, 2

err.number <> 0 인 경우 기능을 종료하십시오

getsqlserverrs = rs 세트

엔드 기능

위의 것은 Universal Database Connection 프로그램에 대한 자세한 소개입니다. 더 많은 콘텐츠를 보려면 잘못된 신기술 채널에 계속주의를 기울이십시오!