1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
Public Gedeelde Functie GetData (ByVal ConnectionStr als Koord, ByVal SQL als Koord, ByVal TableName als Koord) Schemerige verbinding als Nieuwe SqlClient.SqlConnection Schemerige dsSQL als Nieuwe Dataset (TableName) connection.ConnectionString = ConnectionStr Probeer verbinding. Open () Schemerige daSQL als Nieuwe SqlClient.SqlDataAdapter (SQL, verbinding) daSQL.FillSchema (dsSQL, SchemaType.Source, TableName) daSQL.MissingSchemaAction = MissingSchemaAction.AddWithKey daSQL.Fill (dsSQL, TableName) Vangst ex als Uitzondering MsgBox (ex.ToString) Tot slot verbinding. Sluit () Het eind probeert Terugkeer dsSQL De Functie van het eind