base de datos

GALVIS
05 de Marzo del 2004
mi pregunta es como creo una base de datos en vb es que necesito hacer un programita pequeño de recibo

Heber
05 de Marzo del 2004
No aclaras mucho en tu pregunta (cuantas tablas, campos, índices ???)

Visual Basic tiene un asistente para la creación de bases de datos en el menú superior (complementos, Administrador Visual de Datos en VB 6)
Pero tu puedes utilizando el Access, crear una base de datos y luego utilizarla en tu programa.
Te sugiero crear una BDD con el Access versión Office 97, solo porque sería muy largo explicarte como utilizar una base creada posteriormente, aunque se puede perfectamente.

¿que es un programita de recibo?
Aclara un poco más y te daremos algo mas de ayuda.

Puede visitar mi sitio en:
http://www.geocities.com/hjmelgar/vb.html

donde encontrarás código para niveles de principiantes, intermedio y avanzado.
Y muchos links a sitios donde tratan muy bien el tema de base de datos.
Suerte

Jose Oscar
05 de Marzo del 2004
este codigo lo estaba por exponer a un participante pero no encuentro el link, Bueno... es tuyo ahora. Toadavia estoy intentando entender la creacion de indexes..... pero ya se me dara

Espero te seha util
Un saludo
jose Oscar

Private Sub Command1_Click()

Dim Espac As Workspace
Dim base As Database
Dim Tabla As TableDef

Dim Fila1 As Field
Dim Fila2 As Field
Dim Fila3 As Field
Dim Fila4 As Field
Dim Fila5 As Field

If FileSystem.Dir("c:mis documentosCreada por codigo.mdb") = "" Then

'//// Se prepara el espacio
Set Espac = DAO.DBEngine.Workspaces(0)


'///// Se Crea la base de datos [creada por codigo]
Set base = Espac.CreateDatabase("c:mis documentosCreada por codigo.mdb", dbLangGeneral, dbVersion40)

'///// Se crea la tabla [Nombre de la tabla]
Set Tabla = base.CreateTableDef("Nombre de la tabla")

'///// Se crean la tablas [nombre y apellido, Direccion, etc]
Set Fila1 = Tabla.CreateField("Nombre y apellido", dbMemo)
Set Fila2 = Tabla.CreateField("Direccion", dbMemo)
Set Fila3 = Tabla.CreateField("Edad", dbInteger)
Set Fila4 = Tabla.CreateField("Sueldo", dbCurrency)
Set Fila5 = Tabla.CreateField("Casado/Soltero", dbBoolean)

' ///// Se denben integrar las tablas y los campos para justificar la existencia
' ///// Se integran los campos a la tabla
Tabla.Fields.Append Fila1
Tabla.Fields.Append Fila2
Tabla.Fields.Append Fila3
Tabla.Fields.Append Fila4
Tabla.Fields.Append Fila5


' /////// Una vez integrada los campos a la tabla
' ////// Se denben integrar la Tabla a la base de datos
base.TableDefs.Append Tabla

'///////// La base de datos ya esta completa
'//////// Ya se puede cerrar
base.Close

'/////// Condicion dir que comprobo que la base existia
Else
MsgBox prompt:="La base de datos ya existe " & Chr(10) & "No fue necesario crearla"
End If
End Sub