연결부분

dim dbconn
Set dbconn= Server.CreateObject("ADODB.Connection")
dbconn.CursorLocation = 3
dbconn.Provider = "MSDAORA"
dbconn.Provider = "OraOLEDB.Oracle" '변경
dbconn.Open "접속자", "접속자", "접속자"

코드부분

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "misuser.테이블명",dbconn,1,2,2
rs.addnew

rs.fields("필드") =값
rs.fields("필드") = 값

rs.update
rs.close

Set Rs = nothing

셀렉트 부분

Set St1 = Server.CreateObject("ADODB.recordset")
St1.Open 셀렉트쿼리 , dbconn,1,2,1

If Not St1.EOF Then

sDB_TEST= St1.fields("필드")
End If
St1.Close
Set St1 = Nothing

+ Recent posts