Visual Basic - Tabla con Datos Numericos

Life is soft - evento anual de software empresarial
 
Vista:

Tabla con Datos Numericos

Publicado por Nelson Muñoz (2 intervenciones) el 27/10/2005 22:44:04
Buenas tardes, Soy Nelson. ¿Pudieras decirme como hago para crear una tabla con datos numéricos en el Visual Basic Access, igual que se hace con las instrucciones READ-DATA con el Basic tradicional?. 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

Crear un archivo MDB con una tabla

Publicado por ivan (1040 intervenciones) el 27/10/2005 23:54:32
Este código te crea un archivo MDB y una tabla sobre ese archivo, los campos ya son a como tu los definas, yo solo puse varios como ejemplo..:

Esto funciona en Visual Basic 6.0 y la tabla es creada en Access 2003

Private Sub CrearBaseDatos(ByRef sBase As String)
' Crear la base de datos indicada
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim Col As ADOX.Column
Dim i As Long
Dim campo1 As String
DataProvider = "Microsoft.Jet.OLEDB.4.0"
Set cat = New ADOX.Catalog
' Crear la base de datos
On Error Resume Next
cat.Create "Provider=" & DataProvider & ";" & _
"Data Source=" & sBase
If Err.Number Then
Mensaje = "error Nº " & Err.Number
End If
Err.Clear
On Error GoTo 0
Set tbl = New ADOX.Table
' NOMBRE DE LA TABLA
sTabla = NomTabla
With tbl
.Name = sTabla
Set Col = New ADOX.Column
With Col
.Name = "num"
.Type = adInteger
.Attributes = adColNullable
.NumericScale = 0
Set .ParentCatalog = cat
End With
.Columns.Append Col
.Columns.Append "Campo1", adVarWChar, 20
.Columns.Append "Campo2", adVarWChar, 150
.Columns.Append "Campo3", adDouble
.Columns.Append "campo4", adSmallInt
.Columns.Append "Campo5", adLongVarWChar ' Una cadena larga, (Memo)
.Columns("campo1").Attributes = adColNullable ' Permite contener nulos
.Columns("campo2").Attributes = adColNullable
.Columns("campo3").Attributes = adColNullable
.Columns("campo4").Attributes = adColNullable
.Columns("campo5").Attributes = adColNullable
.Columns("campo3").NumericScale = 2
End With
' Añadir la nueva tabla a la base de datos
cat.Tables.Append tbl
Set idx = Nothing
Set tbl = Nothing
Set cat = Nothing
'MsgBox "Nueva base de datos " & sBase & " creada.", vbInformation
End Sub

No sé como se haga con las instrucciones READ-DATA del Basic tradicional, pero espero esto te sirva. Saludos
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

RE:Crear un archivo MDB con una tabla

Publicado por Ivan (1040 intervenciones) el 29/10/2005 19:39:08
Buenas tardes Ivan, recibí tu nota y voy a seguir los pasos que me indicaste. Voy a estar pendiente de los resultados y cuando los consiga te escribiré para informarte. Muchas gracias por todo. Nelson : rodan18@hotmail.com
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