Home > Foro de Lenguaje basic >

Debates de Lenguaje basic

> Como Cargar una Base de Datos con una Aplicacion de Visual Basic
Foro de Lenguaje basic
Foro de Lenguaje basic
1 Curso online | 813 Debates | 32 Documentos | 1 Vídeo | 1 Blog | 26 Imágenes | 1791 Miembros

Como Cargar una Base de Datos con una Aplicacion de Visual Basic

Escrito por Bibiana el 07/09/2007

Hola soy estudiante de Ingieneria en Sistemas y necesito ayuda para crear un programa en Visual Basic que sirva para cargar una base de dato, en estos momentos estoy usando acces porque es lo que conosco, si alguien me puede ayudar se los agradeceria mucho, porque lo necesito para presentar un trabajo de la facu.

Desde ya Muchas Gracias!
compartir


Ovaldo Vega Nuñez
Programador de microcomputadores centr...
Escrito por Ovaldo Vega Nuñez el 07/09/2007

Debes agregar en el menú Proyecto, Referencias la librería Microsoft ActiveX Data Objects 2. 7 Library.

Declarar las siguientes variables

Dim Sql As String
Dim Conexion As ADODB. Connection
Dim Ejecute As New Command
Dim Archivo As ADODB. Recordset

Y abrirla de la siguiente manera

Sql = "DRIVER={Sql Server};SERVER=Direccion IP del servidor;DATABASE=Nombre de la base de datos;UID=Usuario con acceso a la base;PWD=Password para acceso"
Set Conexion = New ADODB. Connection
Conexion. Open Sql
Set Ejecute = New Command
Ejecute. CommandType = adCmdText

Para leer o grabar datos de esta forma
Ejecute. CommandText = Sql
Set Ejecute. ActiveConnection = Conexion
Execute.ActiveConnection.CursorLocation = adUseClient
Set Archivo = Ejecute. Execute()

El objeto archivo es un recordset y lo puedes recorrer con movenext o previous


Ovaldo Vega Nuñez
Programador de microcomputadores centr...
Escrito por Ovaldo Vega Nuñez el 07/09/2007

Sabes cuando habres una consulta me falto decirte lo siguiente, que la variable Sql debe llenarse con una cadena de esta forma.

Sql = "Select Top 10 * From Turnos.dbo.Motivos_Inasistencias Order By Desc_Motiv;"

Execute. CommandText = Sql
Set Execute. ActiveConnection = Conexion
Execute.ActiveConnection.CursorLocation = adUseClient
Set Archivo = Execute. Execute()


Escrito por Bibiana el 11/09/2007

Eso seria para conectarlo con sql, como tengo que hace si la base de datos esta en Acces? En que cambiarian las instrucciones?. Muchas Gracias por su Tiempo!


Escrito por Bibiana el 11/09/2007

Mi problema es que no me funciona el modulo de conexion que cree, te lo mando si lo podes revisar y decirme que estoy haciendo mal, porque para en algo le estoy errando, pero lo vi tanto que no veo el error. Gracias por tu ayuda!




Ficheros adjuntos:
Codigo trabajo1

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia el 14/09/2007
En tus componentes activa el "microsoft  ADO Data control" y usa un objeto ADODC?

Abraham

Ovaldo Vega Nuñez
Programador de microcomputadores centr...
Escrito por Ovaldo Vega Nuñez el 20/09/2007

Las declaraciones de esta forma:

Global Venta As Database
Global Area As Workspace
Global Archivo As Recordset

Y abrirlas de esta manera:

Set Area = Workspaces(0)
Set Venta = Area. OpenDatabase(RutaBases & MiBase & ". Mdb")
Set TabPara = VisGes. OpenRecordset("SELECT Codigo,

Y la tabla asi:

Set TabPara = Venta. OpenRecordset("SELECT * FROM Archivo;", dbOpenSnapshot)

Puede Ser dbOpenSnapshot para solo lectura, dbOpenTable para abrirla como lectura/escritura y dbOpenDynaset para forma dinamica escritura/lectura




Responder


Quiero recibir alertas por email cuando haya mensajes nuevos en este debate

Debe cumplir las normas de contenido y normas de conducta
Al escribir en el debate:
  1. Repasa la ortografía y no escribas en formato SMS.
  2. Lee el texto dos veces antes de publicar.
  3. No escribas todo en mayúsculas o negritas.
 
Páginas internacionales: España  |  Italia  |  Francia  |  México  |  Alemania  |  Reino Unido  |  Argentina  |  Chile  |  Colombia  |  USA |  India |  Y próximamente: Brasil | 

Búsquedas frecuentes: babies on tour instancias policia nacional 2009 papilas gustativas inflamadas dermonu eternelle braquets

EMAGISTER Servicios de formación, S.L. Copyright 1999/2013.