1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
Public, котор делят (ByVal ConnectionStr как шнур, ByVal SQL как шнур, ByVal TableName как шнур) Тусклое соединение как новое SqlClient.SqlConnection Тусклое dsSQL как новый DataSet (TableName) connection.ConnectionString = ConnectionStr Попытка соединение. Раскройте () Затемните daSQL как новое SqlClient.SqlDataAdapter (SQL, соединение) daSQL.FillSchema (dsSQL, SchemaType.Source, TableName) daSQL.MissingSchemaAction = MissingSchemaAction.AddWithKey daSQL.Fill (dsSQL, TableName) Задвижка ex как исключение MsgBox (ex.ToString) Окончательно соединение. Закройте () Закончите попытку Возвратите dsSQL Закончите функцию