Public Podzielony Funkcja GetData (ByVal ConnectionStr Sznurek, ByVal SQL Jako Sznurek, ByVal TableName Sznurek)
Ciemnawy związek Jako Nowy SqlClient.SqlConnection
Ciemnawy dsSQL Jako Nowy DataSet (TableName)
connection.ConnectionString = ConnectionStr
Próba
związek. Otwierać ()
Ćmić daSQL Jako Nowy SqlClient.SqlDataAdapter (SQL, związek)
daSQL.FillSchema (dsSQL, SchemaType.Source, TableName)
daSQL.MissingSchemaAction = MissingSchemaAction.AddWithKey
daSQL.Fill (dsSQL, TableName)
Chwyt wyjątek Jako Wyjątek
MsgBox (ex.ToString)
W końcu
związek. Zamykać ()
Kończyć Próba
Wracać dsSQL
Kończyć Funkcja
|