(1): 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:
Dim cn Jako Nowy SqlConnection (My.Settings.Conn_DB) cn. Otwierać () Ćmić SqlAttr Jako Nowy SqlDataAdapter Ćmić ds Jako Nowy DataSet Ćmić sqlcmd Jako Nowy SqlCommand Z sqlcmd . Związek = cn .CommandType = CommandType.StoredProcedure .CommandText = sql Końcówka Z SqlAttr.SelectCommand = sqlcmd Ciemnawy DtAttr Jako DataTable = ds. Tables.Add ("Atrybut") 'Wypełniać the Schemat SqlAttr.FillSchema (DtAttr, SchemaType.Mapped)
(1): 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
Ciemnawy cn Jako Nowy SqlConnection (My.Settings.Conn_DB) cn. Otwarty () 'DataAdapter otwierać the związek w ten sposób związek potrzebować. Ciemnawy SqlAttr Jako Nowy SqlDataAdapter Ciemnawy ds Jako Nowy DataSet Ciemnawy sqlcmd Jako Nowy SqlCommand Z sqlcmd . Związek = cn .CommandType = CommandType.StoredProcedure .CommandText = sql Końcówka Z SqlAttr.SelectCommand = sqlcmd SqlAttr.Fill (ds)