Ejemplo 1 Acces con Visual Basic 6.0 SQL

Consultas en sql server en Visual Basic 

SELECT *FROM 

GROUP BY

If Rstemp.State = 1 Then Rstemp.Close

sql = "transform count(Nombre)select Nombre from editorial group by nombre pivot pais "

Rstemp.Open sql, Cn, adOpenDynamic, adLockOptimistic

Set mhs.DataSource = Rstemp

mhs.ColWidth(0) = 1600

If Rstemp.State = 1 Then Rstemp.Close

sql = "transform count(Nombre)select Nombre from usuario group by nombre pivot sexo"

Rstemp.Open sql, Cn, adOpenDynamic, adLockOptimistic

Set mhs.DataSource = Rstemp

mhs.ColWidth(0) = 1400

If Rstemp.State = 1 Then Rstemp.Close

sql = "transform count(Apellido)select Nombre from empleado e, distrito d where e.coddistrito=d.coddistrito group by nombre pivot distrito "

Rstemp.Open sql, Cn, adOpenDynamic, adLockOptimistic

Set mhs.DataSource = Rstemp

Consulta de Busqueda

cbolibro = ""

cboautor = ""

cbogene = ""

cbores = ""

sql = "select Codusuario,Apellido,Nombre,Direccion,d.distrito as Distrito,Telefono from usuario u,distrito d where u.coddistrito=d.coddistrito and u.apellido='" & cboape & "'"

Rstemp.Open sql, Cn, adOpenStatic, adLockOptimistic

Set mhfdata.DataSource = Rstemp

Rstemp.Close

BASE DATOS ENTIDAD RELACION

1. EXPLICACIÓN DEL SISTEMA DISTRIBUIDO BIBLIOTECA CONFENALCO

1. PASO CONTRASEÑA

2. FORMULARIO PRINCIPAL

3. TABLA DE EMPLEADOS, EDITORIAL,USUARIO,LIBRO,AUTOR

4 REGISTROS Y BÚSQUEDA

5. BUSQUEDAS por diferentes campos puedes buscar por Apellido,Autor,Libro Restriccion,  o por Genero