Imports System
Imports SysData = System.Data
Imports SDSqlC = System.Data.SqlClient
Public ds_Master As New SysData.DataSet()
  Public Sub Master_SQLDaten()
    Dim sdq as String
    'Dataset Kunden
     sdq = "select KID,Nachname,Vorname,Nachname  from Kunden order by KID," & _
       "Nachname"
    ds_Master = SelectSqlSrvRows(ds_Master, "Kunden", CNSTR_REPORT, sdq)
 
    'Dataset Verkauf
    sdq = "select KID,ArtNr,Bezeichnung  from Verkauf order by KID, ArtNr"
    ds_Master = SelectSqlSrvRows(ds_Master, "Verkauf", CNSTR_REPORT, sdq)
 
 
  End Sub
 
Public Function SelectSqlSrvRows(ByVal ds As SysData.DataSet, ByVal TableName _
  As String, _
    ByVal ConnectionString As String, ByVal Query As String) As SysData.DataSet
    ' Funktion um Daten vom SQL in ein DataSet-Table zu laden
 
    Dim scn As New SDSqlC.SqlConnection(ConnectionString)
    Dim sda As New SDSqlC.SqlDataAdapter()
    Dim cmd_Sel As New SDSqlC.SqlCommand()
 
    cmd_Sel.CommandText = Query
    cmd_Sel.Connection = scn
 
    Try
 
      sda.SelectCommand = cmd_Sel
      sda.SelectCommand.CommandTimeout = 300
			sda.Fill(ds, TableName)
 
      Console.WriteLine("Die Select-Abfrage *" & Query & "* war erfogreich!")
      Return ds
 
    Catch ex As Exception
 
      Console.WriteLine("Achtung, die Select-Abfrage *" & Query & "* war nicht" & _
        "erfogreich!")
 
    End Try
 
  End Function