ADO.NET ve Visual Basic .NET kullanarak program aracılığıyla SQL Server veritabanı oluşturma

  • Makale

Bu makalede, program aracılığıyla bir Microsoft SQL Server veritabanı oluşturmak için ADO.NET ve Visual Basic .NET'in nasıl kullanılacağı açıklanmaktadır.

Özgün ürün sürümü: ADO.NET, Visual Basic .NET
Özgün KB numarası: 305079

Özet

Programcıların genellikle program aracılığıyla veritabanı oluşturması gerekir. Bu makalede, program aracılığıyla SQL Server veritabanı oluşturmak için ADO.NET ve Visual Basic .NET'in nasıl kullanılacağı açıklanmaktadır.

Örneği oluşturma adımları

  1. Yeni bir Visual Basic .NET Windows Uygulaması projesi oluşturun. Form1 varsayılan olarak projeye eklenir.

  2. Form1'e bir Komut düğmesi yerleştirin ve özelliğini btnCreateDatabase olarak ve Text özelliğini olarak Create DatabasedeğiştirinName.

  3. Aşağıdaki kod satırını kopyalayıp Form1'in "genel bildirim" bölümüne yapıştırın:

    Imports System.Data.SqlClient

  4. "Windows Form Tasarım Aracı oluşturulan kod" bölgesinden sonra aşağıdaki kodu kopyalayıp yapıştırın:

    Private Sub btnCreateDatabase_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnCreateDatabase.Click
Dim str As String

Dim myConn As SqlConnection = New SqlConnection("Server=(local)\netsdk;" & _
"uid=sa;pwd=;database=master")

str = "CREATE DATABASE MyDatabase ON PRIMARY " & _
"(NAME = MyDatabase_Data, " & _
" FILENAME = 'D:\MyFolder\MyDatabaseData.mdf', " & _
" SIZE = 2MB, " & _
" MAXSIZE = 10MB, " & _
" FILEGROWTH = 10%)" & _
" LOG ON " & _
"(NAME = MyDatabase_Log, " & _
" FILENAME = 'D:\MyFolder\MyDatabaseLog.ldf', " & _
" SIZE = 1MB, " & _
" MAXSIZE = 5MB, " & _
" FILEGROWTH = 10%)"

Dim myCommand As SqlCommand = New SqlCommand(str, myConn)

Try
myConn.Open()
myCommand.ExecuteNonQuery()
MessageBox.Show("Database is created successfully", _
"MyProgram", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.ToString())
Finally
If (myConn.State = ConnectionState.Open) Then
myConn.Close()
End If
End Try

End Sub

  5. bağlantı dizesi SQL Server işaret etmek için değiştirin ve Veritabanı bağımsız değişkeninin Ana veya boş olarak ayarlandığından emin olun.

  6. Projeyi çalıştırmak için F5 veya CTRL+F5 tuşlarına basın ve ardından Veritabanı Oluştur'a tıklayın.

Ek notlar

  • Bu kod belirli özelliklere sahip özel bir veritabanı oluşturur.

  • Oluşturulan .mdf ve .ldf dosyalarını barındıracak klasör, kodu çalıştırmadan önce zaten var olmalıdır, aksi takdirde bir özel durum oluşturulur.

  • SQL Server Model veritabanına benzer ve varsayılan konumda bir veritabanı oluşturmak istiyorsanız koddaki str değişkenini değiştirin:

    str = "CREATE DATABASE MyDatabase"

Başvurular