/
aprogrammer
/
dotnet-docs
Обзор
Документация
Войти
/
aprogrammer
/
dotnet-docs
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
samples/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks DataSet.Merge/VB/source.vb
43 строки
1 KB
Genevieve Warren
SFI - ROPC work - VB snippets part 1 (#42691)
24 сен 2024, 21:39
Не верифицирован
24 сен 2024, 21:39
7f6485e
Код
Авторство
О чём код?
Option Explicit On Option Strict On Imports System.Data Imports System.Data.SqlClient Module Module1 Sub Main() Dim connectionString As String = GetConnectionString() ConnectToData(connectionString) End Sub Private Sub ConnectToData( ByVal connectionString As String) ' <Snippet1> Using connection As SqlConnection = New SqlConnection( connectionString) Dim adapter As New SqlDataAdapter( "SELECT CustomerID, CompanyName FROM Customers", connection) connection.Open() Dim customers As New DataSet() adapter.FillSchema(customers, SchemaType.Source, "Customers") adapter.Fill(customers, "Customers") Dim orders As New DataSet() orders.ReadXml("Orders.xml", XmlReadMode.ReadSchema) orders.AcceptChanges() customers.Merge(orders, True, MissingSchemaAction.AddWithKey) End Using ' </Snippet1> End Sub Private Function GetConnectionString() As String Throw New NotImplementedException() End Function End Module