CREAR UNA BASE DE DATOS Y UNA TABLA DE SQL SERVER POR CODIGO

Bueno, lo primero este codigo sirve para desarrollar aplicaciones de .net para escritorio osea la ase de datos se va ha crear en la carpeta predeterminada de sql y se va ha ejecutar con pasword y user predeterminados ok

Ademas cuando generen la aplicacion de instalacion el framework instala la herramienta basica ok

' La conexión a usar, indicando la base master
Dim cnn As New SqlClient.SqlConnection( "Server=(local)\SQLEXPRESS"& "; " & _
"database=master; integrated security=yes")
' La orden T-SQL para crear la tabla
Dim s As String = "CREATE DATABASE " & NombreDB
Dim cmd As New SqlClient.SqlCommand(s, cnn)
Try
' Abrimos la conexión y ejecutamos el comando
cnn.Open()
cmd.ExecuteNonQuery()
Msgbox("Base de datos creada correctamente")
cnn.Close()
Catch ex As Exception
Msgbox("Error al crear la base de datos")
cnn.Close()
End Try

ya la creamos pues

Entonces manejamos la forma de crear una tabla en nuestra base de datos de la siguiente forma:


Dim conexion As New SqlConnection()
conexion.ConnectionString = "Server=(local)\SQLEXPRESS; " & "database=NOMBREDB; integrated security=yes;"
' Crea la sentencia SQL
Dim sentencia As String
sentencia = "CREATE TABLE PERSONA(id integer, nombre varchar(50) constraint...... ETC "
' Crea el comando SQL
Dim comando As New SqlCommand(sentencia, conexion)
Dim resultados As Integer
' Conecta con la Base de Datos
conexion.Open()
' Ejecuta la sentencia SQL (NonQuery ya que es una ' ' ' inserción). Sólo devuelve el número de filas afectadas
resultados = comando.ExecuteNonQuery()
' Desconecta de la Base de Datos
conexion.Close()

trabajamos de igual manera para las consultas de insertar, update y delete

Para insertar seria lo siguiente:


Dim conexion As New SqlConnection()
conexion.ConnectionString = "Server=(local)\SQLEXPRESS; " & "database=NOMBREDB; integrated security=yes;"
' Crea la sentencia SQL
Dim sentencia As String
sentencia = "INSERT INTO PERSONA VALUES (" & VALOR1& ",'" & VALOR2 & "')"
' Crea el comando SQL
Dim comando As New SqlCommand(sentencia, conexion)
Dim resultados As Integer
' Conecta con la Base de Datos
conexion.Open()
' Ejecuta la sentencia SQL (NonQuery ya que es una ' ' ' inserción). Sólo devuelve el número de filas afectadas
resultados = comando.ExecuteNonQuery()
' Desconecta de la Base de Datos
conexion.Close()

CODIGO PARA INGRESAR MODIFICAR Y ELIMINAR EN TABLAS DE ORACLE LOCAL O CLIENTE CON HERRAMIENTA DE CONECCION OLEDBCONNECTION

'Empezamos definiendo la cadena de coneccion:

'LOCAL:
cadena = "Provider=MSDAORA.1;User ID=" & user & ";password= " & password & ";database=" & database;

'CLIENTE:
cadena =
"Provider=OraOLEDB.Oracle;User ID=" & user & "HOST= 172.31.14.11" & "SERVER= DEDICATED " & ";password= " & password & ";database=" & database;

'Funcion para Ingresar
Function INGRESAR() as boolean

try

myConnectionDANIEL = New OleDbConnection(cadena)myConnectionDANIEL.Open()

Dim sentencia As String

sentencia = "Insert into CIUDADPRUEBA values ( " & valor1 & " , '" & valor2 & "' , '" & valor3 & "' , " & valor4 & ")"

myCommandDANIEL = New OleDbCommand(sentencia)myCommandDANIEL.Connection = myConnectionDANIEL

Dim r As Integer = 0

'Ejecutar la consulta SQL

r = myCommandDANIEL.ExecuteNonQuery

'Para guardar los datos se utiliza commit y se ejecuta la instruccion

myCommandDANIEL = New OleDbCommand("commit", myConnectionDANIEL)

drDANIEL = myCommandDANIEL.ExecuteReader

myConnectionDANIEL.Close()

return true

catch ex as Exception
MsgBox("PROBLEMAS EN CARGAR CIUDAD", MsgBoxStyle.Critical)

return false

end try

End Function

'Funcion Para Buscar y Cargar Datos a las variables globales para que me sirve para saber que datos tiene y cuales voy a modificar

Primero defino variables globales

Public Valor2 As Date

Public Valor1 As String

Public Valor3 As Integer

'Funcion que resive la llave primaria de la tabla con la que se va ha buscar

Function BuscarCargar(Byval ID as Integer) Boolean

myConnectionDANIEL = New OleDbConnection(cadena)
myConnectionDANIEL.Open()

'Se Aplica en el Command la instruccion directa
myCommandDANIEL = New OleDbCommand("select * from CIUDADPRUEBA WHERE ID = " & Me.MaskedTextBox2.Text, myConnectionDANIEL)
drDANIEL = myCommandDANIEL.ExecuteReader()
Dim existeId As Boolean = False

'Recorrer dr y extraer los datos
While drDANIEL.Read

If ID = drDANIEL(0) Then
drDANIEL(0) ' ID de la tabla
Valor1 = drDANIEL(1)
Valor2 = drDANIEL(2)
Valor3 = drDANIEL(3)
End If

End While
myConnectionDANIEL.Close()

End Function

'Funcion para Modificar

Function MODIFICAR() As Boolean

try

myConnectionDANIEL = New OleDbConnection(cadena)
myConnectionDANIEL.Open()

'Sentencia SQL que contiene los valores que son:

NModif = Nombre de la Columna a Modificar

NuevoValor = El nuevo valor para modificar la columna

Valor = Dato que se obtuvo depues de la funcion BuscarCargar que nos representa los valores que tiene la tabla antes de ser modificada
Dim sentencia As String

'sentencia = "Update TABLA SET NModif1 = '" & NuevoValor1 & "', " & "NModif2 = ' " & NuevoValor2 & "', " & "NModif3 = " & NuevoValor3 & " WHERE NModif1 = '" & Valor1 & "' AND " & "NModif2 '" & Valor2 & "' AND " & "NModif3 = " & Valor3

'Asignacion de la Sentencia SQL y La coneccion
myCommandDANIEL = New OleDbCommand(sentencia)
myCommandDANIEL.Connection = myConnectionDANIEL
Dim r As Integer = 0

'Ejecutar la Instruccion
r = myCommandDANIEL.ExecuteNonQuery
drDANIEL = myCommandDANIEL.ExecuteReader
myConnectionDANIEL.Close()
Return True

catch (ex aas Exception)

"Mensaje al usuario"

return false

end try

End Function

'Funcion para eliminar
Function Eliminar(Byval ID as Integer) as boolean
Try
myConnectionDANIEL = New OleDbConnection(cadena)
myConnectionDANIEL.Open()

Dim sentencia As String
sentencia = "Delete from CIUDADPRUEBA where ID = " & ID
myCommandDANIEL = New OleDbCommand(sentencia)
myCommandDANIEL.Connection = myConnectionDANIEL

Dim r As Integer = 0
r = myCommandDANIEL.ExecuteNonQuery
drDANIEL = myCommandDANIEL.ExecuteReader
myConnectionDANIEL.Close()
Return True
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Return False
End Try

End Fuction

CODIGO PARA CARGAR UN DATAGRIDVIEW UTILIZANDO CONECCION A ORACLE CON HERRAMIENTA ORACLECONNECTION

'Funcion para cargar datagrid

Sub cargarDatagrid()
Dim connbuscar As New OracleClient.OracleConnection()

'Cadena de conneccion a Oracle
cadena = "Data Source=(DESCRIPTION=" + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=130.0.6.223)(PORT=1521)))" + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" + database + ")));" + "User Id=" + user + ";Password=" + password + ";"

connbuscar.ConnectionString = cadena

'Definiendo el Adaptador para el dataset y la coneccion
Dim Adap As OracleClient.OracleDataAdapter

'Definiendo el Dataset para almacenar en el las tablas
Dim ds As DataSet

'Definiendo el comando de coneccion y especificando que es de que tipo y su respectiva Sentencia de SQL
Dim comando As New OracleClient.OracleCommand
comando.CommandType = CommandType.Text
comando.CommandText = "SELECT * FROM CIUDADPRUEBA"

'Asignar la coneccion al Comando

comando.Connection = connbuscar
'Se llena el adapter con el query y se inicializa el dataset
Adap = New OracleClient.OracleDataAdapter(comando)
ds = New DataSet

'abrimos la conexión a oracle
connbuscar.Open()
'Se tiene el adaptador y se llena el dataset que va a tener contenido de la tabla
Adap.Fill(ds, "CIUDADPRUEBA")
'Se hace el Bind al datagrid
Me.DataGridView1.DataSource = ds.Tables.Item(0) 'se llena con los datos de la primera columna
Me.DataGridView1.Show()
connbuscar.Close()

End Sub

CODIGO DE CONECCION A ORACLE CLIENTE CON HERRAMIENTA OLEDBCONNECTION

'ACLARO:

'TANTO COMO LA DEFINICION DE VARIABLES Y LA DEFINICION DE LA CONECCION ES LA MISMA PARA CONECTAR A CLIENTE LO QUE CAMBIA ES LA CADENA DE CONECCION PARA AGREGAR 3 COSAS:


CADENA = "Provider=OraOLEDB.Oracle;User ID=" & user & "HOST= 172.31.14.11" & "SERVER= DEDICATED " & ";password= " & password & ";database=" & database

'Claro que uds cambian el HOST por IP de Servidor

CODIGO DE CONECCION A ORACLE PERSONAL CON HERRAMIENTA OLEDBCONNECTION

'Aclaro: esta coneccion se realiza con OleDbConnection para ORACLE PERSONAL

Imports System.Data.OleDb 'IMPORTANDO LA LIBRERIA
Public Class Form1

'Definiendo variables para user password y database de Oracle y la coneccion de tipo OleDbConnection
Public user As String
Public password As String
Public database As String
Public myConeccion As New OleDbConnection

user = Me.TextBox1.Text
password = Me.TextBox2.Text
database = Me.TextBox3.Text
Try

'Inicializando la Coneccion
myConeccion = New OleDbConnection()

'Definiendo la Cadena de coneccion directamente en myconeccion
'myConeccion.ConnectionString = "Provider=MSDAORA.1;" + "Data Source= " + database + ";" + "User id= " + user + ";" + "Password=" + password + ";"

'myConeccion.Open() 'Abrir la coneccion
MessageBox.Show("se conecto correctamente")
myConeccion.Close()
Catch ex As Exception
'mensaje con el fallo en TRY CATCH
MessageBox.Show("no se pudo conectar " & ex.Message)
End Try

CODIGO DE CONNECCION A ORACLE CLIENTE CON HERRAMIENTA ORACLECLIENT

'Definiendo nuestras variables en el formulario

Public user As String
Public password As String
Public database As String
Dim cadena As String
Dim connprincipal As OracleClient.OracleConnection()

'Funcion para connectar a Oracle Servidor con OracleClient.OracleConnection

Private Sub Conectar (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'user password y database para Oracle
user = Me.TextBox1.Text
password = Me.TextBox2.Text
database = Me.TextBox3.Text

Try

'coneccion de tipo oracle connection
Dim connprincipal As New OracleClient.OracleConnection()

'tipo de cadena de coneccion para conectarse a una base de datos tipo servidor
cadena = "Data Source=(DESCRIPTION=" + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=130.0.6.223)(PORT=1521)))" + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" + database + ")));" + "User Id=" + user + ";Password=" + password + ";"
'ojo cambiar Host = por la IP de servidor

'definiendo la cadena a la coneccion
connprincipal.ConnectionString = cadena
connprincipal.Open() 'Abrir la conneccion
MessageBox.Show("se conecto correctamente")
Me.TextBox1.Clear()
Me.TextBox2.Clear()
Me.TextBox3.Clear()
connprincipal.Close()

Catch ex As Exception
'generar mensaje por si presenta problemas al conectar y cual fue el error en Try Catch
MessageBox.Show("no se pudo conectar " & ex.Message)
End Try

End Sub