Visual Basic - gestor de bd para sistema en visual basic 6

Life is soft - evento anual de software empresarial
   
Vista:

gestor de bd para sistema en visual basic 6

Publicado por juan manuel (31 intervenciones) el 09/03/2011 02:10:18
hola.

me han encargado un sistema el cual incluye reconocimiento por llamada y posibilidad de backup entre las cosas mas complicadas.

estoy pensando realizarlo en visual basic 6 por la flexibilidad para programar estos modulos. tambien para el backup pienso hacer una exportacion a los formatos mas comunes.

el problema, y dado que no es un negocio muy grande (posee 3 sucursales), ES QUE HE PENSADO EN BD ACCESS ya que el mismo no posee volumenes muy grandes de datos y las sucursales no estan conectadas por internet para el sistema.

esta bien realizarlo con estos elementos? cuales me recomendarian uds.?

para el detector de llamadas? puede programarse uno que muestre en diferentes textbox todos los datos de una llamada (te., nombres, direccion, etc) o solo la llamada y verificar si existe en en una tabla clientes?

aclaro que el negocio posee identificador de llamadas.

gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

gestor de bd para sistema en visual basic 6

Publicado por Diego (4 intervenciones) el 10/03/2011 18:34:44
El teorema de la programacion s que sea Escalable osea que a futuro no encuentre empedimentos para crecer por eso se recomienda gratis (mysql o firebird) o sql server(pago). Aparte de mejor manejos de datos mas seguridad y mas profesionalidad del mismo.
Para mostrar los datos se recomienda msflexgrid por su mejor manejo y visualización o de ultima flexgrid. Es mas agil y tarda menos que cargar todo en un textbox.
Ejemplo para cargar una grilla:

Option Explicit


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Recibe la conexión ado y el recordset
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Llenar_FlexGrid(cn As Connection, Rs As Recordset)

On Error GoTo ErrSub

Screen.MousePointer = vbHourglass

' Deshabilita el repintado del Flexgrid
MSFlexGrid1.Redraw = False

' Mueve el recordset al primer registro
Rs.MoveFirst



' Agrega las filas necesarias en el FlexGRid
MSFlexGrid1.Rows = Rs.RecordCount + 1

' Agrega las columnas necesarias
MSFlexGrid1.Cols = Rs.Fields.Count

Dim c As Integer

' recorre los campos del recordset
For c = 0 To Rs.Fields.Count - 1

' Agrega los encabezados de columna
MSFlexGrid1.TextMatrix(0, c) = Rs.Fields(c).Name

Next
' Selecciona
MSFlexGrid1.Row = 1
MSFlexGrid1.Col = 0


MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1

'Devuelve o establece el contenido de las celdas en _
una región de FlexGrid seleccionada. No está disponible en tiempo de diseño. _
( Esta linea de código es la que carga los registros )
MSFlexGrid1.Clip = Rs.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)
MSFlexGrid1.Row = 1

' habilita nuevamente el Redraw en el control
MSFlexGrid1.Redraw = True

' Cierra y elimina las referencias ( recordset y la conexión )
Rs.Close
Set Rs = Nothing
cn.Close
Set cn = Nothing

Screen.MousePointer = vbDefault

Exit Sub

ErrSub:
' Mensaje de error
MsgBox Err.Description, vbCritical
Screen.MousePointer = vbDefault
End Sub

Private Sub Command1_Click()
' variables para la conexión ado y el recordset
Dim cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Dim path_Bd As String

' path de la base de adtos ( usa la bd Biblio.mdb del directorio de visual basic )
path_Bd = "C:\Archivos de programa\Microsoft Visual Studio\VB98\biblio.mdb"


' abre la base de datos pasando la cadena de conexión
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_Bd _
& ";Persist Security Info=False"

' Abre el recordset
Rs.Open "SELECT * FROM Authors", cn, adOpenStatic, adLockReadOnly

' carga el flexgrid ( pasa la conexión ado y el recordset _
con los registros a cargar )
Call Llenar_FlexGrid(cn, Rs)

End Sub



Private Sub Form_Load()
Command1.Caption = " cargar Flexgrid "
Me.Caption = " Propiedad Clip del Flexgrid y método GetString del recordset "
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.FixedRows = 1

MSFlexGrid1.ColWidth(0) = 1000
MSFlexGrid1.ColWidth(1) = 5000

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar