Public geteilte Funktion GetData (ByVal ConnectionStr als Schnur, ByVal SQL als Schnur, ByVal TableName als Schnur)
Schwacher Anschluss als neues SqlClient.SqlConnection
Schwaches dsSQL als neuer Datensatz (TableName)
connection.ConnectionString = ConnectionStr
Versuch
Anschluss. Öffnen ()
daSQL als neues SqlClient.SqlDataAdapter (SQL, Anschluss) verdunkeln
daSQL.FillSchema (dsSQL, SchemaType.Source, TableName)
daSQL.MissingSchemaAction = MissingSchemaAction.AddWithKey
daSQL.Fill (dsSQL, TableName)
Fang ex als Ausnahme
MsgBox (ex.ToString)
Schließlich
Anschluss. Schließen ()
Versuch beenden
dsSQL zurückbringen
Funktion beenden
|