VB.NET, Kod ile Sql Server VeriTabanı Oluşturma ?

 
   
          Dim constr As String = "Server=.; Integrated Security=SSPI" 
          Dim constr2 As String = "Server=.; Database=aydin; Integrated Security=SSPI" 
   
          Dim conn As SqlConnection = New SqlConnection(constr) 
          Dim conn2 As SqlConnection = New SqlConnection(constr2) 
   
          Dim dap As SqlDataAdapter = New SqlDataAdapter 
          Dim cmd As SqlCommand = New SqlCommand 
          Dim ds As DataSet = New DataSet 
   
          Dim komut As String 
   
          Try 
              conn.Open() 
   
              cmd.Connection = conn 
              Dim sql_vtkontrol As String = "SELECT * FROM sysdatabases WHERE name= 'aydin' " 
              cmd.CommandText = sql_vtkontrol 
              cmd.ExecuteNonQuery() 
              dap.SelectCommand = cmd 
              dap.Fill(ds, "sysdatabases") 
   
              If ds.Tables("sysdatabases").Rows.Count = 0 Then 
                  MsgBox("Veritabanı YOK") 
   
                  komut = "CREATE DATABASE aydin " 
                  komut &= "CREATE TABLE [dbo].[tbl_resimler] ([numara] [decimal](18, 0) IDENTITY (1, 1) NOT NULL ,[emlakresimno] [decimal](18, 0) NOT NULL ,[resimadresi] [varchar] (7001) COLLATE Turkish_CI_AS NULL);" 
   
                  cmd.CommandText = komut 
                  cmd.ExecuteNonQuery() 
   
                  conn.Close() 
              Else 
   
                  MsgBox("Veritabanı VAR") 
   
                  conn2.Open() 
   
                  cmd.Connection = conn2 
   
                  komut = "if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tbl_resimler]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)" & _ 
                  "DROP TABLE [dbo].[tbl_resimler]" 
                  komut &= "CREATE TABLE [dbo].[tbl_resimler] ([numara] [decimal](18, 0) IDENTITY (1, 1) NOT NULL ,[emlakresimno] [decimal](18, 0) NOT NULL ,[resimadresi] [varchar] (7001) COLLATE Turkish_CI_AS NULL)" 
   
                  cmd.CommandText = komut 
                  cmd.ExecuteNonQuery() 
   
                  conn2.Close() 
              End If 
   
          Catch ex As Exception 
              MsgBox(ex.Message) 
   
          Finally 
              conn.Close() 
          End Try 
   
  

 
      Dim constr_vtyok As String = "Server=.; Integrated Security=SSPI" 
      Dim conn_vtyok As SqlConnection = New SqlConnection(constr_vtyok) 
   
      Dim constr_vtvar As String = "Server=.; Database=aydin; Integrated Security=SSPI" 
      Dim conn_vtvar As SqlConnection = New SqlConnection(constr_vtvar) 
   
      Dim cmd_vt As SqlCommand = New SqlCommand 'database kontrolu 
      Dim dap_vt As SqlDataAdapter = New SqlDataAdapter 'database kontrolu 
   
      Dim cmd_tablo As SqlCommand = New SqlCommand 'tablo kontrolu 
      Dim dap_tablo As SqlDataAdapter = New SqlDataAdapter 'tablo kontrolu 
   
      Dim ds As DataSet = New DataSet 
   
      Dim komut_vtolustur As String 'database olustur 
      Dim komut_tabloolustur As String 'tablo olustur databaseden sonra 
   
   
   
      Private Sub btnolustur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnolustur.Click 
          Try 
              conn_vtyok.Open() 
   
              cmd_vt.Connection = conn_vtyok 
              Dim sql_vtkontrol As String = "SELECT name FROM sysdatabases WHERE name='aydin'" 
              cmd_vt.CommandText = sql_vtkontrol 
              cmd_vt.ExecuteNonQuery() 
              dap_vt.SelectCommand = cmd_vt 
              dap_vt.Fill(ds, "sysdatabases") 
   
              If ds.Tables("sysdatabases").Rows.Count = 0 Then 
                  MsgBox("VERİTABANI YOK") 
   
                  'VT OLUŞTURULUYOR 
                  komut_vtolustur = "CREATE DATABASE aydin;" 
                  cmd_vt.CommandText = komut_vtolustur 
                  cmd_vt.ExecuteNonQuery() 
                  '----------------------- 
                  'TABLO OLUŞTURULUYOR 
                  conn_vtvar.Open() 
                  cmd_vt.Connection = conn_vtvar 
                  komut_tabloolustur = "CREATE TABLE [dbo].[tbl_adlar] ([numara] [decimal](18, 0) IDENTITY (1, 1) NOT NULL ,[adi] [varchar](20, 0)  NULL ,[soyadi] [varchar] (20) NULL);" 
                  cmd_vt.CommandText = komut_tabloolustur 
                  cmd_vt.ExecuteNonQuery() 
                  '----------------------- 
                  conn_vtyok.Close() 
                  conn_vtvar.Close() 
   
              Else 
                  MsgBox("VERİTABANI VAR") 
   
                  conn_vtvar.Open() 
   
                  cmd_tablo.Connection = conn_vtvar 
                  Dim sql_tablokontrol As String = "SELECT name FROM sysobjects WHERE name='tbl_adlar'" 
                  cmd_tablo.CommandText = sql_tablokontrol 
                  cmd_tablo.ExecuteNonQuery() 
                  dap_tablo.SelectCommand = cmd_tablo 
                  dap_tablo.Fill(ds, "sysobjects") 
   
                  If ds.Tables("sysobjects").Rows.Count = 0 Then 
                      MsgBox("TABLO YOK") 
   
                      'TABLO OLUŞTURULUYOR 
                      komut_tabloolustur = "CREATE TABLE [dbo].[tbl_adlar] ([numara] [decimal](18, 0) IDENTITY (1, 1) NOT NULL ,[adi] [varchar](20)  NULL ,[soyadi] [varchar] (20) NULL);" 
                      cmd_tablo.CommandText = komut_tabloolustur 
                      cmd_tablo.ExecuteNonQuery() 
                      '----------------------- 
   
                  Else 
                      MsgBox("TABLO VAR") 
   
                  End If 
   
                  conn_vtvar.Close() 
              End If 
   
   
          Catch ex As Exception 
              MsgBox(ex.Message) 
          Finally 
              conn_vtyok.Close() 
              conn_vtvar.Close() 
          End Try 
      End Sub