Programación: Crear base de datos sql server por código

Aqui les dejo el codigo para crear una base de datos en sql server desde visual .net

Se necesitara un formulario como este:



Código:

Option Explicit On
Imports System.Data.OleDb

Public Class Form1
Dim conexion As New OleDbConnection
Dim comando As New OleDbCommand
Dim adaptador As New OleDbDataAdapter
Dim dset As DataSet

'insertar datos
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
conexion = New OleDbConnection("Provider=SQLOLEDB.1;Integrated Security=SSPI; Persist Security Info=False;User ID=usuario;Initial Catalog=base_ejemplo;Data Source=(local)SQLEXPRESS" )
conexion.Open()
comando = New OleDbCommand("INSERT INTO info(nombre,apellido,apellido2) Values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')", conexion)
comando.ExecuteNonQuery()
adaptador = New OleDbDataAdapter("SELECT * From info", conexion)
dset = New DataSet
adaptador.Fill(dset, "info" )
DataGridView1.DataSource = dset.Tables("info" )
DataGridView1.Refresh()
Catch ex As Exception
MsgBox(ex.Message.ToString)
Finally
If conexion.State = ConnectionState.Open Then
conexion.Close()
End If
End Try
End Sub

'crear base de datos
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
conexion = New OleDbConnection("Provider=SQLOLEDB.1;Integrated Security=SSPI; Persist Security Info=False;User ID=usuario;Initial Catalog=;Data Source=(local)SQLEXPRESS" )
conexion.Open()
comando = New OleDbCommand("IF EXISTS (SELECT * FROM master..sysdatabases WHERE Name = 'base_ejemplo')" & vbCrLf & "DROP DATABASE base_ejemplo" & vbCrLf & "CREATE DATABASE base_ejemplo", conexion)
comando.ExecuteNonQuery()
comando.CommandText = "USE base_ejemplo" & vbCrLf & "CREATE TABLE info (nombre NVarChar(50) NOT NULL,apellido NVarChar(50) NOT NULL,apellido2 NVarChar(50))"
comando.ExecuteNonQuery()
MsgBox("base de datos creada", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message.ToString)
Finally
If conexion.State = ConnectionState.Open Then
conexion.Close()
End If
End Try
End Sub

'cargar datos
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
conexion = New OleDbConnection("Provider=SQLOLEDB.1;Integrated Security=SSPI; Persist Security Info=False;User ID=usuario;Initial Catalog=base_ejemplo;Data Source=(local)SQLEXPRESS" )
conexion.Open()
adaptador = New OleDbDataAdapter("SELECT * From info", conexion)
dset = New DataSet
adaptador.Fill(dset, "info" )
DataGridView1.DataSource = dset.Tables("info" )
DataGridView1.Refresh()
Catch ex As Exception
Finally
If conexion.State = ConnectionState.Open Then
conexion.Close()
End If
End Try
End Sub
End Class

codigo http://stibenamm.hostzi.com/docs/db.rar