min function kan ikke opdatere DB

prøv dette

    DSNXAL1 = "dsn=xxx;uid=xxxx;pwd=xxxx;"
    Set ConnXal1 = Server.CreateObject("ADODB.Connection")
    ConnXal1.Open DSNXAL1, 1, 3

så får jeg denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e4d'

[Oracle][ODBC][Ora]ORA-01017: ugyldigt brugernavn/adgangskode; logon afvist

/OracleConnXal1.asp, line 9

jeg står af på oracle databaser ;)
beklager :)

bare i orden... eller andre der har forslag?

Hej,
Jeh går ud fra at du har testet dit brugerid/password må netop denne database fra en alminde lige sqlplus client, Ellers vil det være et godt tidpunkt at gøre det på nu. Hvis du har prøvet mange gange at logge på uden succes kan din db bruger nemlig blive låst.

jo det kunne godt være det der er problemet. kigger lige på det..

ORA-01017: ugyldigt brugernavn/adgangskode er jo ret sigende.

Sørg for at den bruger du benytter har adgang til databasen - og at du kan logge ind med det username/password med f.eks. sqlplus.

mit login bliver afvist når jeg vil skrive til databasen, men når jeg kun skal læse fra den virker det fint. Hvad kan det være..???

Jeg antager at det ikke er et objekt/tabel du selv ejer ??
Log da ind som brugeren der ejer objektet og grant update og insert til din bruger

Jeg har før kunne srive til databasen og jeg kan stadig manuelt indsætte rækker i enterprise manageren.

Før brugte jeg denne kode:

<%

dim oracleconnobj, oraclerstobj

Function OpenoracleConn()

Set oracleconnobj = Server.CreateObject("ADODB.Connection")

oracleConnObj.Open "dsn=xxx;uid=xxx;pwd=xxx;"



End Function

Function Openoracle(sRSSource)
   
        OpenoracleConn()
   
    Set oracleRstObj = Server.CreateObject("ADODB.Recordset")
    oracleRstObj.Open sRSSource, oracleConnObj, 1,&H0002
    RSCounter = oracleRstObj.RecordCount
    Set Openoracle = oracleRstObj
   
    Set oracleRstObj = Nothing
   
End Function

Sub CloseoracleConn()
    oracleConnObj.Close
End Sub

%>

... med ovenstående kode kunne jeg bare ikke lave distinct og sum forespørgsler til oracle, så jeg ville prøve en anden måde. Jeg lavede den så om til koden nedenfor. Med den nye kode kan jeg sagtens lave distinct og sum forespørgsler, men nu kan jeg bare ikke skrive til DB'en

den ny kode:

<%
dim ConnXal1

Function Xal1Conn()

 
    DSNXAL1 = "dsn=xxx;uid=xxx;pwd=xxx;"
    Set ConnXal1 = Server.CreateObject("ADODB.Connection")
    ConnXal1.Open DSNXAL1, 1,&H0002

End Function

Function Xal1(sRSSource)

    Xal1Conn()
   
    strSQL = sRSSource
   
    Set Xal1 = ConnXal1.Execute(strSQL)

End Function

Sub CloseXal1()
    ConnXal1.Close
    Set ConnXal1 = Nothing
End Sub
%>

jeg prøver at indsætte en ny række således:

set rs = xal1("select * from users")
rs.addnew()
rs("navn") = "test"
rs.update()
set rs = nothing

og så er det jeg får fejlen..

Generelt savner jeg at du Dim'er dine variable med en tilhørende type, men det er jo en smagssag. Men jeg vil anbefale dig at ændre din Xal1 function til dette:


Public Function Xal1(ByVal SQLQuery As String, oRecordset As ADODB.Recordset)                            As Boolean

    Xal1 = False
    On Error Goto Leave

    Set oRecordset = New ADODB.Recordset
    Set oRecordset.ActiveConnection = ConnXal1
    oRecordset.CursorLocation = adUseClient
    oRecordset.CursorType = adOpenStatic
    oRecordset.LockType = adLockOptimistic
   
    oRecordset.open SQLQuery
    'disconnect the recordset
    Set oRecordset.ActiveConnection = Nothing
   
    Xal1 = True

Leave:

End Function

Og så kalde med:

Xal(rs, "select * from users")

olet -->>


jeg får denne fejl når jeg afprøver din function...??

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/test4.asp, line 15

Public Function Xal2(ByVal SQLQuery As String, oRecordset As ADODB.Recordset)
------------------------------------^

sorry, mit eksempel er VB, du skal lige tilrette til VB Script

hvordan gør jeg det?

Jeg begynder at se en vis tendens her. Du bør nok lige standse op og læse lidt omkring ASP, VBS og ADO, inden du går videre. Ikke ment negativt, men jeg tror at du har brug for lidt mere basisviden. En gylden regel her på Eksperten er vel formentlig at man FORSØGER at komme videre selv og ikke bare spørger løs ....

lukketid?

så må det da være lukketid...!

ja..