Thema Datum  Von Nutzer Rating
Antwort
01.02.2023 08:24:58 Peter
NotSolved
07.02.2023 18:48:25 Fire
NotSolved
08.02.2023 07:17:36 Peter
NotSolved
Blau VBA+SQL
 08.02.2023 19:34:14 Fire
NotSolved

Ansicht des Beitrags:
Von:
Fire		 Datum:
08.02.2023 19:34:14		 Views:
336		 Rating:
     
Antwort:
  Ja
Thema:
VBA+SQL

Versuch das hier mal gibt aber keine Garantie ;-)

Sub btn_StatusSetzen_Klicken()

Dim db_Status As Boolean
Const adOpenForwardOnly As Long = 0
Const adCmdText As Long = 1
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sConnect As String
Dim sSQL As String
Dim x As Integer

Dim diag As Object

Set diag = DialogSheets("ReklaDialog")

If db_Status = False Then
sSQL = "SELECT * FROM sani.dbo.AuftragStatusZuordnung, Rechnungsposition"
sConnect = "DSN=sani97;" & _
"UID=sani_user;" & _
"PWD=sani97;" & _
"IFSN=sani97sql;" & _
"DB=sani97;" & _
"applicationname=REKLA-EXCEL"

db.Open sConnect
db_Status = True

rs.Open sSQL, sConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

With rs
    If Not rs.EOF And rs.RecordCount > 0 Then
        Do Until rs.EOF = True
            If rs.Fields("RechnungNr").Value <> 0 And rs.Fields("AuftragNr").Value <> 0 Then
                x = 1
                Exit Do
            Else
                rs.MoveNext
            End If
        Loop
    End If
    rs.Close
End With
End If

If x = 1 Then
'Code here for when x is set to 1
End If

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
01.02.2023 08:24:58 Peter
NotSolved
07.02.2023 18:48:25 Fire
NotSolved
08.02.2023 07:17:36 Peter
NotSolved
Blau VBA+SQL
 08.02.2023 19:34:14 Fire
NotSolved