'Beginnen mit einlesen der Datensätze vom SQL Server
  'Einlesen der Daten für Fertigung
  Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
 
Set Conn = New ADODB.Connection
Conn.Provider = "MSDASQl"
Conn.Open "Driver=sql server; Server=s2kapau5001; Database=apauprod", _
          "ias", "ias"
 
Conn.CursorLocation = adUseClient
'MsgBox ("verbindung zu s2kapau5001 OK")
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.Open "SELECT IASINVSTOCK.MATERIAL,IASMATBASIC.MATTYPE," & _
  "IASINVSTOCK.AVAILSTOCK, IASINVSTOCK.QUNIT FROM IASINVSTOCK INNER JOIN" & _
  "IASMATBASIC ON (IASINVSTOCK.CLIENT = IASMATBASIC.CLIENT) AND (" & _
  "IASINVSTOCK.COMPANY = IASMATBASIC.COMPANY) AND (IASINVSTOCK.MATERIAL =" & _
  "IASMATBASIC.MATERIAL) WHERE (((IASMATBASIC.MATTYPE)='FERT') AND ((" & _
  "IASINVSTOCK.CLIENT)='00') AND ((IASINVSTOCK.COMPANY)='02'))GROUP BY" & _
  "IASINVSTOCK.MATERIAL, IASMATBASIC.MATTYPE, IASINVSTOCK.AVAILSTOCK," & _
  "IASINVSTOCK.QUNIT, IASINVSTOCK.CLIENT, IASINVSTOCK.COMPANY ", Conn, _
  adOpenKeyset, adLockReadOnly
 
 
    If RS.RecordCount > 0 Then
  While Not RS.EOF
    List_Fert.AddItem , RS(0) & vbTab & RS(2) & vbTab & RS(3) & vbTab & RS(1)
 
 
    RS.MoveNext
  Wend
End If
 
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)