Te cuento a ver si te sirve:
Nosotros creamos un proyecto nuevo, con una base de datos en SqlServer y visual Basic 2008.
La tabla la llamamos -Alumnos- y le creamos dos columnas o campos
1°) Apellido
2°) Sexo
Cargamos en la base cinco registros dos "Masculinos" y tres "Femeninos"
Luego generamos una consulta parametrizada con la siguiente directiva.
---------------------
SELECT Apellido, Sexo
FROM Alumnos
WHERE (Sexo = 'Femenino')
---------------------
El nombre de esta consulta se puso por defecto "FillBy1"
Pero le podes poner el nombre que vos quieras.
---------------------
Finalmente en un boton con el captión "Select" del formulario pusimos el siguiente código para llamar a dicha consulta:
---------------------
Try
Me.AlumnosTableAdapter.FillBy1(Me._MyDatabase_1DataSet1.Alumnos)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
Me.Text = Me.AlumnosBindingSource.Count
-------------------
Ahora te dejo el código del botón select con las explicaciones
-------------------
'creamos una variable de numero para contener los datos totales de la base de datos y tabla puntual.
Dim total As Integer
'asignamos a la variable el valor total inicial de la tabla
total = Me.AlumnosBindingSource.Count
'Con Try que es una de las maneras que tenes de controlar errores y excepciones
'cargamos la consulta previamente creada(FillBy1)
Try
Me.AlumnosTableAdapter.FillBy1(Me._MyDatabase_1DataSet1.Alumnos)
Catch ex As System.Exception 'si acontece el error o la excepción
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
'Finalmente mostramos el resultado por pantalla en el captión o propiedad text del formulario
'en la parte de arriba -vos la pones donde vos quieras.
Me.Text = "Total de Alumnos: " & total & " - Fem. " & Me.AlumnosBindingSource.Count & " - Masc. " & total - Me.AlumnosBindingSource.Count
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla '_MyDatabase_1DataSet1.Alumnos'
‘Fill es una consulta de carácter global es decir te carga toda la base de datos
Me.AlumnosTableAdapter.Fill(Me._MyDatabase_1DataSet1.Alumnos)
End Sub
'Aquí dos botones para adelantar y retroceder de a un registro.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'esta función es para adelantar un registro
Me.AlumnosBindingSource.MoveNext()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'esta función es para retroceder un registro
Me.AlumnosBindingSource.MovePrevious()
End Sub
---------------------------------
Finalmente si tenes algún mail te envio el proyecto o alguna imagen del petit programa, donde podras ver en la parte superior del formulario, el resultado de ejecutar la función del botón select
Mientras que en los textbox en esta instancia, solo podrás navegar en los tres registros filtrados femeninos.
---------------------------------
Entonces si utilizaras la función SQL "Select" para buscar en la tabla de personas autorizadas, sea el nombre de usuario como su correspondiente clave de autorización, con algunos comandos como "LIKE" o "=", y si coinciden los datos habilitar el ingreso de datos en el formulario.
--------------------------------
Hay algunas diferencias mínimas que si investigas las encontrarás entre el Visual 2005 y el 2008.
--------------------------------
A partir de aquí me parece que se te facilita un monton todo.
--------------------------------
Seguidamente te enumero algunas de las formas de la sintaxis SQL que podes utilizar, estudialas, porque podrías utilizar menos código con el comando “COUNT” y “WHERE”
Select
SELECT "nom de colonne" FROM "nombre_tabla"
Distinct
SELECT DISTINCT "nombre_columna"
FROM "nombre_tabla"
Where
SELECT "nombre_columna"
FROM "nombre_tabla"
WHERE "condition"
And/Or
SELECT "nombre_columna"
FROM "nombre_tabla"
WHERE "condición simple"
{[AND|OR] "condición simple"}+
In
SELECT "nombre_columna"
FROM "nombre_tabla"
WHERE "nombre_columna" IN ('valor1', 'valor2', ...)
Between
SELECT "nombre_columna"
FROM "nombre_tabla"
WHERE "nombre_columna" BETWEEN 'valor1' AND 'valor2'
Like
SELECT "nombre_columna"
FROM "nombre_tabla"
WHERE "nombre_columna" LIKE {patrón}
Order By
SELECT "nombre_columna"
FROM "nombre_tabla"
[WHERE "condición"]
ORDER BY "nombre_columna" [ASC, DESC]
Count
SELECT COUNT("nombre_columna")
FROM "nombre_tabla"
Group By
SELECT "nombre_columna 1", SUM("nombre_columna 2")
FROM "nombre_tabla"
GROUP BY "nombre_columna 1"
Having
SELECT "nombre_columna 1", SUM("nombre_columna 2")
FROM "nombre_tabla"
GROUP BY "nombre_columna 1"
HAVING (condición de función aritmética)
Create Table
CREATE TABLE "nombre_tabla"
("columna 1" "tipo_de_datos_para_columna_1",
"columna 2" "tipo_de_datos_para_columna_2",
... )
Drop Table
DROP TABLE "nombre_tabla"
Truncate Table
TRUNCATE TABLE "nombre_tabla"
Insert Into
INSERT INTO "nombre_tabla" ("colonne 1", "colonne 2", ...)
valorS ("valor 1", "valor 2", ...)
Update
UPDATE "nombre_tabla"
SET "colonne 1" = [nuevo valor]
WHERE {condition}
Delete From
DELETE FROM "nombre_tabla"
WHERE {condición}
--------------------------------------
Un fuerte abrazo y esperamos que te sirva
Luis
info@bragadomas.com.ar
www.bragadomas.com.ar
www.bragadomas.com
necesito actualizar un registro desde visual basic 2008 en una base de datos de access 2003, cada 5 minutos como le puedo hacer para esto.
yo estoy guardando información cada 8 horas, pero requiero de ver como van los numero que tengo en el programa dentro de los textbox, esto es en una línea de producción.
Tengo lo siguiente:
#Region "Variables de las Bases de datos"
Dim bind As Binding
Dim NWindConn As OleDb.OleDbConnection = New OleDb.OleDbConnection()
Dim NWindDataSet As DataSet = New DataSet()
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ProduccionTiempoRealTableAdapter.Fill(Me.EnvasadoSFRDataSet.ProduccionTiempoReal)
End Sub
Private Sub RutinaGrabarProducción()
Dim NWindAdapt As New OleDb.OleDbDataAdapter("Insert ProduccionTiempoReal (cajasplan, cajasreal) values ('" & Trim(cajasxturno.Text) & "', '" & Trim(CajasOkTurno.Text) & "' )", NWindConn)
NWindConn.ConnectionString = "Provider= " & "Microsoft.Jet.OLEDB.4.0;Data Source=c:\trabajo\EnvasadoSFR.mdb"
NWindAdapt.Fill(NWindDataSet)
NWindConn.Open()
NWindConn.Close()
End Sub
me faltaría una consulta en tiempo real a algo parecido...
..........................
nencesito tu ayuda para sacar un backup de mi base de datos access 2003 desde un formulario de visual basic 6.0
.......................
gracias te lo agradecere..........
a
find_e@hotmal
como se puede pasar una consulat de algebra a SQL.
Es la suiguente: