Thema:

Kommentar:
: Wer kann mir Bei der Lösung des Problems behilflich sein. : Public Sub AS400_SQL_Run() : 'Verwendung von ADO dabei muss der richtige Verweis gemacht werden : Dim MyConn As ADODB.Connection : Dim dbRS As New ADODB.Recordset : Dim ConnStr As String : Dim SQL As String, fieldsView As String, Filename As String : Filename = "vtrdat_t/onlindp" 'Welche Relation : fieldsView = "*" 'Projektionsliste FELDER : 'String für Anmeldeprozedur implementieren : ConnStr = "Provider =IBMDA400; Data Source=" & IBMA400 & "; Password=" & pwd & "; User ID=" & user : Set MyConn = New ADODB.Connection : 'Anmeldung : ''strConnect = _T("Driver={Client Access ODBC Driver (32-bit)};System=myAS400;" : '' "Uid=myUsername;Pwd=myPassword;") : : : : : With MyConn : .ConnectionString = ConnStr : .CommandTimeout = 60 : .CursorLocation = adUseClient : .Open : End With : : 'String für SQL-Query implementieren : SQL = "Select " & fieldsView & " from " & Filename & " " : : 'Funktion adoopen_fwdonly füllt: : ' (dbRS Recordset aus) : adoopen_fwdonly MyConn, SQL, dbRS : : While Not dbRS.EOF : Call getRS(dbRS, Me, lstView) : Wend : End Sub : Public Function adoopen_fwdonly(dbcon As ADODB.Connection, dbSql As String, ByRef dbSet) As String : Set dbSet = New ADODB.Recordset : 'On Error GoTo ErrHandler : : dbSet.CursorType = adOpenForwardOnly : dbSet.LockType = adLockReadOnly : 'dbSet.CursorLocation = adUseClient : dbSet.CacheSize = 1000 : ' HIER BEKOMM ICH DEN FEHLER: CWBDB0036 : dbSet.Open dbSql, dbcon, , , adCmdText : ''dbSql: Select * from vtrdat_t/onlindp : ''dbcon: Provider=IBMDA400.DataSource.1;Password=USERPASSWORT;User ID=USERNAME;Data Source=IP;Transport Product=Client Access;SSL=DEFAULT : ''adCmdText=1 : Exit Function : ErrHandler: : End Function

Optionale Link URL:   
Link Titel:                  
Optionale Image URL: