Oledb - crear base de datos mediante programación

Simple ejemplo en vb.net , que crea una base de datos sql server 2005 usando OLEDB

Controles

• Un DatagridView
  
• Un Button
  
• 3 textbox

Código fuente

Option Explicit On Imports System.Data.OleDb Public Class Form1 Private Sub Button1_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim cn As New OleDbConnection( _ "Provider=SQLOLEDB.1;" & _ "Integrated Security=SSPI; " & _ "Persist Security Info=False;" & _ "User ID=usuario;" & _ "Initial Catalog=base_prueba;" & _ "Data Source=(local)\SQLEXPRESS") ' Insertar registros en la tabla Try Dim Sql As String = "INSERT INTO " & _ "Contactos(Nombre,Apellido,Email) " & _ "Values('" & TextBox1.Text & "','" & _ TextBox2.Text & "','" & _ TextBox3.Text & "')" cn.Open() ' abre la conexión Dim cdo As New OleDbCommand(Sql, cn) cdo.ExecuteNonQuery() 'visualizar el registro Dim da As New OleDbDataAdapter("SELECT * From contactos", cn) Dim ds As New DataSet da.Fill(ds, "contactos") With DataGridView1 .DataSource = ds.Tables("contactos") .Refresh() End With Catch ex As Exception MsgBox(ex.Message.ToString) Finally ' si la conexión está abierta la cierra If cn.State = ConnectionState.Open Then cn.Close() End If End Try End Sub Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = "Insertar registro" TextBox1.Text = "Nombre" TextBox2.Text = "Apellido" TextBox3.Text = "Email" ' inicializa la conexión Dim cn As New OleDbConnection( _ "Provider=SQLOLEDB.1;" & _ "Integrated Security=SSPI; " & _ "Persist Security Info=False;" & _ "User ID=usuario;" & _ "Initial Catalog=;" & _ "Data Source=(local)\SQLEXPRESS") Try 'Comando para crear la base de datos sql : base_prueba Dim SQL As String = _ "IF EXISTS (" & _ "SELECT * " & _ "FROM master..sysdatabases " & _ "WHERE Name = 'base_prueba')" & vbCrLf & _ "DROP DATABASE base_prueba" & vbCrLf & _ "CREATE DATABASE base_prueba" ' Abrir la conexión cn.Open() ' Inicializa el comando para ejecutar el sQL Dim cdo As New OleDbCommand(SQL, cn) ' crear la bd cdo.ExecuteNonQuery() ' crear una tabla con tres campos SQL = "USE base_prueba" & vbCrLf & _ "CREATE TABLE Contactos (" & _ "Nombre NVarChar(30) NOT NULL," & _ "Apellido NVarChar(15) NOT NULL," & _ "Email NVarChar(50))" cdo.CommandText = SQL cdo.ExecuteNonQuery() ' ejecutar MsgBox("Se creo la base de datos prueba_bd con la tabla", _ MsgBoxStyle.Information) ' error Catch ex As Exception MsgBox(ex.Message.ToString) Finally If cn.State = ConnectionState.Open Then cn.Close() ' cierra la conexión End If End Try End Sub End Class