Sistema de colegio en visual basic

gracias por su ayuda aqui le envio los nombres de las tablas que tengo que utilizar en dicho programa para un instituto colegio alumnos, materias, egresados, pagos, personal administrativo, profesores, malla curricular, sillabus. en el cual hay que mostrar datos y unirlo con visual basic dar reportes imprimir grabar etc.

Hola me interesa los 2 proyectos comprimidos aqui le dejo mi email dario_425@hotmail.com ya que estoy desarrollando un sistema de gestion de cursos en visual.net

Hola Elinv27, cordial saludo.
Mi nombre es Juan Miguel y deseo crear un sistema en visual basic con conexion a datos o acces con interfaces para colegio que se pueda generar boletines de calificaciones con notas cuantitativas y cualitativas a si como control de asistencia de los alumnos. la verdad yo deseo hacerlo de cero porque quiero aprender a programar con visual o acces. Mi correo es juanesbe@hotmail.com, te agradezco lo que me puedas ayudar.

Hola, a mi tambien me interesan los dos proyecto porque realmente me interesa la programacion en visual basic, mi correo es gamalier37@hotmail.com, te lo agradecere mucho.

tambien me interesan lo codigos de inscripcion de ulumno de un clolegio me ayudan por favor mi correo es jose_0814@hotmail.com

hola estamos trabajando en un proyecto similar a los que comentas me pudieras ayudar mucho si me compartes los codigos de favor, mi correo es bianca1082@hotmail.com , de antemano muchas gracias

hola es muy interesante los dos proyectos por favor puedes mandarme mi correo es
poeta_hp17@hotmail.com te lo agradecere mucho.

tambien yo
ortega_chivas@hotmail.com

Porfavor necesito un proyecto pequeño hecho en visual studio 2005 con base de datos en sql server 2005, porfavor ayudenme mi correo es julio_15_944@hotmail.com

estoy creando un programa en visual basic.net para una notaria y necesito que el programa me imprima los registros civiles oque el programa me carge un formato de word por favor necesito ayuda gracias mi correo es malusugo_28 @hotmail.com

oye mmmm no se si puedas alludarme eske nesesito un sistema de control escolar con coneccion a mysql pro en netbeans para ubunto...... si puedes alludarme pasamelo ami correo es
ekizcast1989@gmail.com
por favor

hola por fabor necesito un sistema de matriculas conectadas con una bace de datos en access porfabor envienmela a esta direccion electronica ***@***
les agredacere bastante espero su pronta respuesta

hola nesecito un programa de venta como ejemplo en visual basic 6.0

hola nesecito un programa de venta como ejemplo en visual basic 6.0 en dataenvironment ivanajd_03@hotmail

hola fijence que necesito un sistema sencillo de dematricula pero no se como hacerlo quiero saber si me pueden ayudar por favor gracias qdios les bendiga y las bases de datos enlasadas con acces!! ayuda please!!

solo busca en google. Hay muchos
softaula
doccf 2.3
emagister

Los hay segun tu necesidad !

anavi
Ni siquiera por favor jajaja, necesito, necesito... todos necesitamos algo, en el pedir, esta el dar, saludos, gracias.

Te programo un sistema de colegio ó cualquier otro tipo de sistemas interesante a medida de tus necesidades desde cero en VB6+SQL. Ponete en contacto conmigo, me llamo Roberto (Argentina), rrj254@yahoo.com.ar. Por el precio ni te preocupes, lo hecemos y listo. Saludos

Seria interesante que veas el sistema SAVANT www.genesoft.net

un excelente sistema de informacion escolar es el sistema ATENEA, se los recomiendo es muy completo. si quieren gestionar su colegio o instituto educativo creo que es lo mejor, calificaciones, eventos, biblioteca, etc..

Hola Kat, mirá este código, envia tu base de datos, o lo que tengas cargados en el select en esos momentos, a un archivo word que tu puedes crear.
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
Option Explicit
'----------------------
'Código realizado por Elinv
'Desde Bragado, Provincia de Buenos Aires, Rca. Argentina.
'por Luis Pedro Méndez.
'----------------------
'En este caso no se muestra Word, solamente se crea el archivo
'----------------------
Private Sub Command1_Click()
'declaramos variables
Dim filas As Integer, columnas As Integer
'averiguamos el número de registros
filas = Adodc1.Recordset.RecordCount
'lo mismo con la cantidad de campos del select
columnas = Adodc1.Recordset.Fields.Count
'llamamos a la función enviar a word, y le pasamos los datos requeridos
'nombre del control, cantidad de filas y columnas y el nombre y extensión del archivo destino.
worduno Adodc1, filas, columnas, "luis.doc"
End Sub
'función para enviar a word
Sub worduno(control_ado As Adodc, filas As Integer, columnas As Integer, nombre_archivo As String)
'si ocurre un error informamos y salimos
On Error GoTo ErrSub
'inicializamos la aplicación
Dim o_Word As Word.Application
'variable de documento
Dim Documento As Word.Document
'variable de tabla
Dim Parrafo As Table
'llamamos a la aplicación
Set o_Word = New Word.Application
'agregamos un documento nuevo
Set Documento = o_Word.Documents.Add
'creamos la tabla
Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), filas, columnas)
'declaramos variables para recorrer el select
Dim F As Long
Dim C As Integer
'Primero recorremos los registros
For C = 0 To filas - 1
'dentro de cada registro todos los campos y los asignamos a cada celda de la tabla en esa fila
For F = 0 To columnas - 1
Parrafo.Cell(C + 1, F + 1).Range.InsertAfter Adodc1.Recordset.Fields(F)
Next F
'La clausula condicional, es para que al mover al registro
'siguiente no envie un error si es el último registro
If Not control_ado.Recordset.EOF Then
'Si no es el ultimo registro mueve al siguiente
control_ado.Recordset.MoveNext
End If
Next C
'Graba en el path donde se ejecuta el programa con el nombre de archivo enviado
'Si deseara enviarlo a un directorio dentro, puedes incluirlo cuando llamas a la funcion
Documento.SaveAs (App.Path & "\" & nombre_archivo)
'cerramos el documento
Documento.Close
'quitamos la aplicación
o_Word.Application.Quit
'declaramos a nothing todas las variables
Set o_Word = Nothing
Set Documento = Nothing
Set Parrafo = Nothing
Exit Sub
ErrSub:
MsgBox Err.Description, vbCritical
On Error Resume Next
Documento.Close
o_Word.Application.Quit
Set Parrafo = Nothing
Set Documento = Nothing
Set o_Word = Nothing
End Sub

Private Sub Form_Load()
'declaramos variable
Dim base_de_datos
'asignamos el nombre de la base de datos -en este caso alumnos-
base_de_datos = "alumnos.mdb"
With Adodc1
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & base_de_datos & ";Persist Security Info=False"
.CommandType = adCmdText
'buscamos en tres campos de la tabla catedraticos
.RecordSource = "Select id_catedratico, numero_empleado, nombre_completo From catedraticos"
.Refresh
End With
'Lo asignamos al datagrid
'este datagrid lo pusimos para que visualices el resultado, dado que
'en muchos registros, veras como a medida que se envian los datos a Word
'el datagrid va moviendose por el registro que se envia.
Set DataGrid1.DataSource = Adodc1.Recordset
End Sub
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
Agrega al proyecto un ado control, un datagrid control, y una referencia a Microsoft Word
--------------------------------------------------------------------------------------------------
Todo esta debidamente explicado y la función y la organización previa del llamado a la función, lo tenes debidamente graficado y explicado.
--------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
Un abrazo.

Luis Pedro Méndez.

Dame un día y te estoy mandando el que corresponde a excell

Hola Kat, nuevamente:
Aquí te dejo este código para exportar a excell..
El código no es nuestro, es extraido de esta web:

http://www.recursosvisualbasic.com.ar/

Pero como esta muy bien hecho, facilmente entendible y explicado me parece que te puede ser util
--------------------------------------------------------------------------------------------------------------------
Option Explicit

Private Sub Command1_Click()
Dim sPathDB As String
Dim Consulta As String
' -- Path de la base de datos
sPathDB = App.Path & "\base_datos.MDB"
' -- Cadena Sql
Consulta = "Select nombre_completo, correo_electronico From catedraticos"
' -- Enviar el Path de la base de datos y la consulta sql
If Exportar_ADO_Excel(sPathDB, Consulta, App.Path & "\libro.xLS") Then
MsgBox "Ok", vbInformation
End If
End Sub

Private Function Exportar_ADO_Excel(sPathDB As String, Sql As String, sOutputPathXLS As String) As Boolean
On Error GoTo errSub
Dim cn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim Excel As Object
Dim Libro As Object
Dim Hoja As Object
Dim arrData As Variant
Dim iRec As Long
Dim iCol As Integer
Dim iRow As Integer
Me.Enabled = False
' -- Abrir la base
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPathDB & ";"

' -- Abrir el Recordset pasándole la cadena sql
rec.Open Sql, cn

' -- Crear los objetos para utilizar el Excel
Set Excel = CreateObject("Excel.Application")
Set Libro = Excel.Workbooks.Add

' -- Hacer referencia a la hoja
Set Hoja = Libro.Worksheets(1)

Excel.Visible = True: Excel.UserControl = True
iCol = rec.Fields.Count
For iCol = 1 To rec.Fields.Count
Hoja.Cells(1, iCol).Value = rec.Fields(iCol - 1).Name
Next

If Val(Mid(Excel.Version, 1, InStr(1, Excel.Version, ".") - 1)) > 8 Then
Hoja.Cells(2, 1).CopyFromRecordset rec
Else

arrData = rec.GetRows

iRec = UBound(arrData, 2) + 1

For iCol = 0 To rec.Fields.Count - 1
For iRow = 0 To iRec - 1

If IsDate(arrData(iCol, iRow)) Then
arrData(iCol, iRow) = Format(arrData(iCol, iRow))

ElseIf IsArray(arrData(iCol, iRow)) Then
arrData(iCol, iRow) = "Array Field"
End If
Next iRow
Next iCol

' -- Traspasa los datos a la hoja de Excel
Hoja.Cells(2, 1).Resize(iRec, rec.Fields.Count).Value = GetData(arrData)
End If

Excel.Selection.CurrentRegion.Columns.AutoFit
Excel.Selection.CurrentRegion.Rows.AutoFit

' -- Cierra el recordset y la base de datos y los objetos ADO
rec.Close
cn.Close

Set rec = Nothing
Set cn = Nothing
' -- guardar el libro
Libro.saveAs sOutputPathXLS
Libro.Close
' -- Elimina las referencias Xls
Set Hoja = Nothing
Set Libro = Nothing
Excel.quit
Set Excel = Nothing

Exportar_ADO_Excel = True
Me.Enabled = True
Exit Function
errSub:
MsgBox Err.Description, vbCritical, "Error"
Exportar_ADO_Excel = False
Me.Enabled = True
End Function

Private Function GetData(vValue As Variant) As Variant
Dim x As Long, y As Long, xMax As Long, yMax As Long, T As Variant
xMax = UBound(vValue, 2): yMax = UBound(vValue, 1)
ReDim T(xMax, yMax)
For x = 0 To xMax
For y = 0 To yMax
T(x, y) = vValue(y, x)
Next y
Next x
GetData = T
End Function
--------------------------------------------------------------------------------------------------------------------

Simplemente en el formulario, agrega un commandbutton y una referencia a Microsoft ActiveX Data Objects 2.0 Library
en el mismo directorio pone una base de datos,
en esta variable pone el nombre de la base de datos
-------------
sPathDB = App.Path & "\base_datos.MDB"
--------------
en la Consulta pone el nombre de los campos que queres mostrar o todos (*) y el nombre de la tabla y echalo a andar.

Cualquier duda a tu disposición.

Un fuerte abrazo.

Luis

Hola gracias poe tu codigo lo copie pero me sale Error en esta parte. Sub worduno(control_ado As Adodc, filas As Integer, columnas As Integer, nombre_archivo As String)
etoy haciendo un sistema de inscrpcion copie tu codigo y me sale error.??
ME PODRIAS AYUDAR PORFAVOR TENGO QUE ENTREGAR EL SISTEMA MAÑANA Y ME FALTA LA PARTE QUE ARROJA LA PLANOLLA.. TE LO AGRASEZCOO..GRACIAS

hola kisiera saber cual es la codificacion para k se valide un numero desde cero hasta 15 en un control de notas
y tambien uno k valide desde cero hasta 40 gracias por su ayuda
mi correo es flor_gaibor@hotmail.com

como puedo crear un programa que en un cuadro de texto escriba un nombre y al presionar el botón despegar el nombre se despliegue en una etiqueta. en visual vasic por fa kn me podría ayudar

Debes tener conectada el data report a un comando de consulta hecha en el Dataenvironment.
1. Agregas los campos a consultar en el Datareport.
2. Conectas el Datareport con el Cm de consulta, ojalá en SQL, del Dataenvironment.
3.En el comando de donde piensas abrir el datareport, copias este código:

DataReport1.Show (muestra el data report)
DataReport1.Refresh (actualiza)
DataEnvironment..rsCommand1.Close
DataEnvironment..rsCommand1.Open
DataReport1.Refresh
DataReport1.Setfocus (permite que te desplazes en el Datareport como mantequilla en el pan)

Espero te sirva, cualquier duda a adolfino00@hotmail.com

un sitemas de control de matriculas

sistemas de facturacion de colegio

es urgente

hola disculpa un favor me podrian ayudar hacer un sistema de control escolar es que deve llevar lo que es alumnos, maestros, materias, horarios de las materias asignadas a los maestros y las calificaciones parciales y finales y relacionarlos, porfavor es urgente se los agradecere. que este hecho en C# coneccion con mySQL.

hola disculpa no se como disminuir el espacio de los renglones en datareport, pues solo entran muy pocos registros y queda un gra espacio entre ello, como le haria para que entrara mas registros en una hoja, por su sugerencia o solucion gracias.

No está clara la pregunta. Sin embargo pienso que lo que necesitas es, mientras programas, reducir el espacio entre la Seccion Detalle y el Pie de Página del DataReport. Tan sólo córrelo con tu mouse hasta que la caja de texto no lo deje seguir reduciendo.

hola Roberto, mi nombre es paola, quiero saber si podrias ayudarme con un sistema de salida de medicamentos de una clinica, pero para empezar el visual studio que descargue no trae crystal report, y tengo k hacerlo con eso, visual y access 2007, crees que me puedas ayudar? me urge...

Para control escolar pueden descargar una aplicación gratuita llamada Winsise, en la siguiente página www.asistem.com.mx; creo que el único requisito es el registro. Saludos

Si alguien me puede a yudar a ingresar un count a una base de datos???

Q pena es a una variable en visual estudio...

xq mi telefono motorola atrix no dce arriba 4g o 3g .tiene una E Y ABAJO DE ESA E TIENE UNA FLECHA PA RIBAYUNA PA BAJO KIERO QE SE VEA EL 4 g