florian86
Goto Top

Der Vorgang ist für ein geschlossenes Objekt nicht zugelassen

Hallo Zusammen,

ich möchte mit VBA auf meine Datenbank zugreifen aber leider bekomme ich immer den selben Fehler.
Kann mir evtl. jemand weiterhelfen?


Public conn As ADODB.Connection
Sub sql()

            Dim conn As New ADODB.Connection
            Dim record As New ADODB.Recordset
            Dim xsel As String
           
    
            xsel = "begin " & _  
                    "declare @lager nchar(10) " & _  
                    "declare @number int " & _  
                    "set @number = 23752 " & _  
                        "select @lager = dbo.speditionen.warehouse from dbo.speditionen where dbo.speditionen.number =  @number " & _  
                            "if @lager = 'x' " & _  
                                "begin " & _  
                                "select [dbo].warehouse.warehouse " & _  
                                "from dbo.warehouse " & _  
                                "where dbo.warehouse.number_warehouse = @number " & _  
                                "End " & _  
                            "Else " & _  
                                "begin " & _  
                                "Print '###e' " & _  
                                "End " & _  
                    "End "  

            
                    conn.Open "dsn=PalKonto;Uid=XXX;Pwd=XXX"  
                    
                    record.Open xsel, conn
                       
                                
                                If record.EOF = False Then
                                    
                                    MsgBox "Daten vorhanden"  
                                
                                End If
                                
                    
                    record.Close
                    conn.Close
                    Set conn = Nothing
                    Set record = Nothing


End Sub



Grüße Florian
screenshot_3
screenshot_2

Content-Key: 3927614940

Url: https://administrator.de/contentid/3927614940

Ausgedruckt am: 29.03.2024 um 01:03 Uhr

Mitglied: Florian86
Lösung Florian86 14.09.2022 um 07:52:47 Uhr
Goto Top
Habe es jetzt nicht mit einer DSN sondern mit der Providerangabe gelöst...

connectionstring = "Provider=SQLOLEDB;Data Source=XXX; Initial Catalog=PalKonto;Integrated Security=SSPI;"
conn.Open connectionstring