creacion de bases de datos en visual basic

[Rinco]

hola yo soy novato en esto y me gustaria me ayudaran en esto ¿como ago bases de datos y luego como las leo para buscar los registros en una pantalla de visual basic? espero le entiendan a mi pregunta y me puedan ayudar gracias.

[mgwebs]

la forma mas usada es la siguiente

crea la base de datos con msacces y guardala en formato acces 97

inicia VB y crea una nueva aplicacion
inserta un formulario con el asistente y este te guiara paso a paso para conectar tu base de datos.

cuando este termine tendras un buen ejemplo de como hacer lo que quieres ;)

[Laika]

¿Holaaa

¿Con qué asistente?

Saludoss

<center><embed src="http://www.efrance.fr/cria/fotos/firma.swf" height=127width=351>
</embed></center>

[mgwebs]

Cuando decides añadir un nuevo formulario te permite utilizar uno de acceso a datos
este es el asistente. ;) ;)

[Fernando Real]

'Procedimiento para crear una tabla
Public Sub CrearTabla(pathBD As String, file_dbf As String)

' Declaro los objetos DAO a utilizar:
Dim db As DAO.Database
Dim tblDef As DAO.TableDef
Dim fld As DAO.Field
Dim idx As DAO.Index

' Abro la base de datos:
' (cambiar si el archivo está en otra ubicación)
Set db = OpenDatabase(pathBD)

' Creo la tabla
Set tblDef = db.CreateTableDef(file_dbf)

' Defino las columnas de la tabla:
' (para cada una, indico el nombre de la columna
' y el tipo de dato, y luego la agrego a la
' colección Fields)
Set fld = tblDef.CreateField("ContactID", dbLong)
fld.Attributes = fld.Attributes + dbAutoIncrField
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("SAMP_ID", dbText, 25)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("STUDY_ID", dbText, 50)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("SURVEY_ID", dbText, 25)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("TIDAL_STAGE", dbText, 25)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("STATION_ID", dbText, 12)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("GEAR_TYPE", dbText, 5)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("DEPTH_TOP", dbLong)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("DEPTH_BOT", dbLong)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("DEPTH_UNIT", dbText, 12)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("MATRIX", dbText, 3)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("FIELD_QC_CODE", dbText, 3)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("FIELD_PROCESS", dbText, 1)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("SOIL_TYPE", dbText, 5)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("SOIL_DESCR", dbText, 50)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("SOIL_COLOR", dbText, 12)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("SAMP_COLLECTOR", dbText, 3)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("DATE_RECORD_CREATED", dbDate)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("START_DATE", dbDate)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("START_TIME", dbDate)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("END_DATE", dbDate)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("END_TIME", dbDate)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("TIME_ZONE", dbText, 25)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("TRANSCRIBED_RECORD_YN", dbText, 1)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("Comments", dbText, 150)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("FLDMOD_QAQCACCEPT", dbText, 1)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("FLDMOD_QAQCREVBY", dbText, 3)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("FLDMOD_QAQCREVDATE", dbDate)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("DATA_STATUS", dbText, 5)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("LOGIN_ID", dbText, 10)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("FileName", dbText, 50)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("LOAD_DATE", dbDate)
tblDef.Fields.Append fld
Set fld = tblDef.CreateField("SCRIPT_NAME", dbText, 25)
tblDef.Fields.Append fld


' Defino un índice para la clave primaria:
Set idx = tblDef.CreateIndex("PK_Temas")

' Defino las dos columnas que componen la clave:
' (Fields1 + Fields2)
Set fld = idx.CreateField("SAMP_ID")
idx.Fields.Append fld
Set fld = idx.CreateField("STUDY_ID")
idx.Fields.Append fld

' Asigno este índice como clave primaria:
idx.Primary = True
tblDef.Indexes.Append idx

' Defino otro índice que sirva para
' buscar temas por nombre:
Set idx = tblDef.CreateIndex("IDX_Nombre_Tema")
Set fld = idx.CreateField("STATION_ID")
idx.Fields.Append fld
tblDef.Indexes.Append idx

' Incorporo la tabla nueva en la colección
' de tablas de la base de datos:
db.TableDefs.Append tblDef

db.Close

End Sub

[David]

Favor no revivir temas viejos.
Véase: http://www.forosdelweb.com/f40/polit...el-web-101485/
Gracias.