ODBC og MSDASQL
Jeg bruger form wizard i vb 6.0 til at oprette en form med ODBC adgang til tabel i db på anden maskineJeg kan godt få adgang til tabellen under "guiden" hvor jeg angiver DSN, userid, psw men når jeg siger run til projektet får jeg en fejl:
'run time error '-2147217900 (80040e14)':
Tandem ODBC Driver NonStop SQL ODBC server message (32062) : The table or view "SQL KATALOG/BRUGERID/TABELNAVN" does not exist
altså path til tabel består af sqlkatalog+brugerid+tabelnavn ??? mystisk... når jeg debugger kan jeg se at PROVIDER bliver sat lig med MSDASQL men MSDASQL er tom, betyder det noget.
Håber der er en af Jer der har tålmodighed til at hjælpe en "næsten begynder"
mvh Flemming
Koden er her:
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=UMU;uid=ums.user;pwd=SENA2R;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select A_NUMBER_HASH,CALL_CATEGORY,ANSDATE,ANSWERTM,UNIQUE_IND,CYCLE_SEQ_NBR,IN_SERVICE_CODE,SERVICE_FEATURE_CODE,CHARGED_PARTICIPANT,EXPRESS_CHARGE_FLAG,SERVICE_CHARGE_FLAG,ADVICE_CHARGE_FLAG,PERS_CHARGE_FLAG,CANCEL_CHARGE_FLAG,SWITCH_PRICE_GIVEN,SERVICE_CHARGE,ADVICE_CHARGE,PERS_CHARGE,CANCEL_CHARGE,SWITCH_PRICE,DIFF_SWITCH_PRICE,PRICE_CORRECTION,DURATION_CORRECTION,CANCEL_DATE,CANCEL_TIME,CALL_OPERATOR_ID,CDOP_KEY from NUSERDISK58UMVFILE1_UMSDCQ4J", db, adOpenStatic, adLockOptimistic
Dim oText As TextBox
'Bind the text boxes to the data provider
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next
mbDataChanged = False
End Sub
