SQL exportar a VISUAL EJEMPLO

Imports System.Data
Imports system.data.sqlClient

Public Class Ejemplo
'Cadena que realiza la conexión
Dim CadConexion as string = "Data source = ; initial catalog = <_bas_e><-base>; integrated security = true"
'Selección de Datos
Dim objeto as string = "Select * from <_bas_e>"
Dim Adaptador as New sqldataadapter(objeto, CadConexion)
'Tabla que almacena los datos
Dim tabla as new DataTable

Private Sub Ejemplo_Load
Try
Adaptador.fill(tabla)
Dim builder as sqlcommandbuilder = New sqlcommandbuilder(adaptador)

'Asignación de valores a los campos del formulario. Esta línea será para cada forma necesaria.
Me.txtcampo.Databindings.add(New binding("TXT", tabla, "<_campodelatabla>"))
Catch ex as exception
'Manejo de errores.
MessageBox.show("ERROR : " + ex.message)
End Try
End Sub
End Class

COMANDOS SQL II

Tipos de operadores Lógicos

Operador	Descripción
And	Que se cumplan las dos condiciones
Or	Que se cumpla una de las dos condiciones
Not	Que no es lo que en la condición se especifica

Sintaxis de consulta con condición

Where

Sintaxis de consulta con operadores lógicos

Where <_campo> <_Condición> <_Instrucción> <_Operador lógico> <_Campo> <_Condición> <_Instrucción>

Tipos de filtraciones específicas

Instrucción	Descripción
Between	Es para seleccionar un rango en el cual se deseen ver los resultados
In	Este sirve para indicar los datos específicamente creando una lista
Null	Es utilizado únicamente para los datos nulos
Like	Sirve para indicar directamente las características de un nombre.

Sintaxis Between

Where <_campo> between / not between <_inicio del rango> and <_fin del rango>

Sintaxis In

Where in/ not in (<_elemento>,<_elemento>)

Sintaxis is null

Where <_Campo> is null

Sintaxis Like

Where <_campo> like/not like <_caracteristica>

Create Database

Create database <_nombre>

Create Table

Use <_base de datos>

Create table <_nombre>

Values ( )

Tipos de variables

Image - Imágenes

Datetime - fechas y tiempos

Int - Enteros

Char - Alfanumérico (<10)

Varchar - Alfanumérico (>10)

Money - Datos numéricos contables.

Float- datos con presicion decimal

Tablas sin campos null

Create table <_tabla> (

<_nombre de campo> int not null, …..)

COMANDOS SQL

Expresión	Descripción
Use	Sirve para indicar la base de datos a utilizar.
Select	Selecciona los campos a utilizar
From	Indica la tabla de la cual se va a hacer la consulta.
Where	Es la función que se utiliza para filtrar datos.

Sintaxis General de Consultas Simples

Use <>

Select <>

From <_tabla>

Where <_campo> <_tipo>

Sintaxis de comando “as”

Select , as ‘’

Comandos para filtrar

Expresión	Devuelve
Like ‘BR%’	Todos los nombres que comiencen por las letras BR
Like ‘Br%’	Todos los nombres que comiencen por las letras Br
Like ‘%en’	Todos los nombres terminen con las letras en
Like ‘%en%’	Todos los nombres que contengan las letras en
Like ‘_en’	Todos los nombres de 3 letras que terminen con las letras en
Like ‘[CK]%’	Todos los nombres que comiencen por c o por k
Like ‘[S-V] ing’	Todos los nombres de cuatro letras que terminen con las letras ing y comiencen por cualquier letra comprendida entre S y V
Like ‘M[^c]%’	Todos los nombres que comiencen por la letra M y cuya segunda letra no sea c

Tipos de condiciones

Condición	Descripción
<	Menor que
>	Mayor que
=	Igual que
<=	Menor o igual que
>=	Mayor o igual que

Varios

Fecha:
Insert
Values ('AA-MM-DD')

Select *
From Tabla
Where X IN (a,c,e)

select *
From alumnos
where apellidos like 'a%m'

Select*,Ventas,Meta
from Ingresos
Where ventas>=Objetivo

Select *
From Alumnos
Where X Not ('1990-01-13')

Funciones Agregadas

FUNCIONES de SQL

1. AVG promedios
2. SUM sumatoria
3. COUNT conteo
4. MAX máximo
5. MIN mínimo

select avg(punteos) as promedio
from alumnos

Despliega el promedio de las notas de los alumnos de la columna punteos.

SQL Básico

Query analizer:
Permite manipular, administrar, consultar y modificar información de cualquier base de datos del servidor.
Consta de un explorador de objetos editar panel de resultados. Se trabaja por medio de código.

Conceptos y usos básicos
Create data base
Go

Create Table
Go

Las tablas permiten asignar los campos o columnas, y asignarle los tipos de dato que se almacenan.

Use -> Especifica la base de datos en la que se va a trabajar.
Llenar los campos de la tabla:
Insert
Values(money,' varchar',integer, char)
Go
Select selecciona los datos con los que se quiere trabajar.
From
Where -condición-
Drop table --> Borrar
Truncate Table --> Borrar Registros
Delete --> Borra solo algunos

Matriz Multiplicación

Public Class Form3

Dim numeros1(1, 1) As Integer

Dim numeros2(1, 1) As Integer

Dim c1, c2 As Integer

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

For c1 = 0 To 1

For c2 = 0 To 1

numeros1(c2, c1) = InputBox("Ingrese un numero entero")

Next

Next

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

For c1 = 0 To 1

For c2 = 0 To 1

numeros2(c2, c1) = InputBox("Ingrese un numero entero")

Next

Next

For c1 = 0 To 1

For c2 = 0 To 1

MsgBox("La multiplicación de los vectores es " & numeros1(c2, c1) * numeros2(c2, c1))

Next

Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form4.Show()

End Sub

End Class

Matriz Suma

Public Class Form1

Dim acumulador As Integer

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

Dim numeros(2, 2) As Integer

Dim c1, c2 As Integer

For c1 = 0 To 2

For c2 = 0 To 2

numeros(c2, c1) = InputBox("Ingrese un numero entero")

Next

Next

For c1 = 0 To 2

For c2 = 0 To 2

MsgBox("Valores ingresados " & numeros(c2, c1))

Next

Next

For c1 = 0 To 2

For c2 = 0 To 2

acumulador = acumulador + numeros(c2, c1)

Next

Next

MsgBox("La suma de todos los números es " & acumulador)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form2.Show()

End Sub

End Class

Vector

Public Class Form1

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

Dim numeros(0 To 4) As Integer

Dim c1, c2, c3, acumulador As Integer

For c1 = 0 To 4

numeros(c1) = InputBox("Ingrese un numero entero")

Next

For c2 = 0 To 4

MsgBox("El numero ingresado fue " & numeros(c2))

Next

For c3 = 0 To 4

acum = acum + numeros(c3)

Next

MsgBox("La suma del vector es " & acum)

Label2.Text = acum

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form2.Show()

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

End Class

RECURSIVIDAD: Combinatorio

Public Class Form6
Dim a, b, c, e As Integer
Function combinatorio(ByVal b As Integer, ByVal e As Integer) As Integer
If e = 0 Or e = b Then
Return 1
Else
If e = 1 Then
Return b
Else
Return combinatorio(b - 1, e) + combinatorio(b - 1, e - 1)
End If
End If
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
c = TextBox2.Text
Dim d As Integer = combinatorio(a, c)
Label2.Text = d
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form7.Show()
End Sub
End Class

RECURSIVIDAD: POTENCIA

Public Class Form4
Dim a, b, c, e As Integer

Function potencia(ByVal b As Integer, ByVal e As Integer) As Integer
If e = 0 Then
Return 1
End If

If e = 1 Then
Return b
Else
Return b * potencia(b, e - 1)
End If
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
c = TextBox2.Text
Dim d As Integer = potencia(a, c)
Label2.Text = d
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form5.Show()
End Sub
End Class

FUNCION QUE RECIBE UN ARREGLO COMO PARAMETRO

Public Class Form3
Dim numeros(4) As Integer
Dim c1, x As Integer

Public Function sumar(ByVal x() As Integer) As Integer
Dim i, j As Integer
For Each i In x
j += i
Next
sumar = j
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For c1 = 0 To 4
numeros(c1) = InputBox("Ingrese un numero entero")
Next
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MsgBox(sumar(numeros))
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form4.Show()
End Sub
End Class

RECURSIVIDAD: FIBONACCI

Public Class Form2
Dim a, b, N As Integer

Function Fibonacci(ByVal N As Integer) As Integer
If N = 0 Or N = 1 Then
Return N
Else
Return Fibonacci(N - 1) + Fibonacci(N - 2)
End If
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = Fibonacci(a)
Label2.Text = b
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.Show()
End Sub
End Class

RECURSIVIDAD: FACTORIAL

Public Class Form1
Dim a, b, N As Integer
Function Factorial(ByVal N As Integer) As Integer
If N <= 1 Then
Return 1
Else
Return Factorial(N - 1) * N
End If
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = Factorial(a)
Label2.Text = b
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
End Class

Función Par

Public Class Form6
Dim a, b As Integer

Function par(ByVal a As Integer, ByVal b As Integer) As String
If a Mod 2 = 0 Then
par = (a & " es numero par ")
Else
par = (a & " no es numero par ")
End If
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
Label3.Text = par(a, b)
End Sub
End Class