| Usuario |
ABRIR BASE DE DATOS |
Desconocido
|
| Enviado - 25/10/2004 |
| |
Necesito abrir una base de datos para poder realizar operaciones o instrucciones sql como insertar,borrar,modificar,consultar etc...
como puedo abrir la base de datos mediante codigo dentro de visual basic 6.0 |
| |
|
Desconocido
|
| Enviado - 26/10/2004 |
| |
Estimado amigo, Primero trabajar con bases de datos no es lo mismo que con archivos por lo cual no puedo referirme a abrir una base dedatos.Lo que se dice y hace es conectarme a una Bd., para ello existen varias formas de hacerlo, y esto depende de que base de datos quieras accesar.
puedes ser SQL SERVER, ORACLE,ACCES,MYSQL etc...
Para cada una de ellas existen diversas formas y todas son diferentes, con sus diferentes Drivers proporcionados por sus FAbricantes.
Para Oracle nececitas tener instalado el cliente Oracle, en el existe un archivo plano, en el cual se crean los string de conneccion, segun DIrecccion IP o SPX etc..
Para Sql Server es un poco mas fasil , pues te puedes conectar atraves de driver Microsoft o tambien instarlar el cliente SqlServer
Para Acces lo puedes hacer directamente o por una ODBC DSN..
cual quier duda escribeme [email protected] |
| |
|
Hafiz222
45 Mensaje(s)
|
| Enviado - 27/10/2004 |
| |
Con Objetos DAO
Asi
Set BD=DAO.Database
Set BD=DAO.OpenDatabase("BD.MDB",true)
busca la sintaxis.....
Atte. Hafiz 222
[email protected] |
| |
|
labonsweet
4 Mensaje(s) |
| Enviado - 3/11/2004 |
| |
Checa este ejemplo:
Aqui yo uso una BD de access2000 y uso ADO. Espero que te sirva de algo.
Option Explicit
' Para probar usando controles ligados al recordset
' Si se ligan los Text1 al recordset, asignar -1 a esta constante
' Si no se ligan los Text1, asignar 0 (o simplemente comentar la línea)
#Const TextLigados = -1
Private sBase As String ' Nombre de la base de datos
' Objetos para acceder directamente a la base usando código
Private cnn As ADODB.Connection
' Si se declara con WithEvents, tenemos acceso a los mismos eventos que
' con el ADO DataControl
Private WithEvents rst As ADODB.Recordset
' Constantes para el movimiento dentro del recordset
Const cPrimero = 0
Const cAnterior = 1
Const cSiguiente = 2
Const cUltimo = 3
Private Sub Form_Load()
' Asignar el nombre de la base de datos
' (si la aplicación se ejecuta en el directorio raiz, quitar el \)
sBase = App.Path & "\db2000.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Table1", cnn, adOpenDynamic, adLockOptimistic
' Si se quiere usar los Text1 ligados al Recordset
#If TextLigados Then
' Conectar manualmente los Text1 al recordset
Dim i As Long
' Asignar el recordset al que estarán los datos conectados
' Esto funciona igual que si se conectaran a un DataControl,
' Por tanto no hay que preocuparse de actualizar el contenido, etc.
For i = 0 To 2
Set Text1(i).DataSource = rst
Next
' Asiganr los nombres de los campos
Text1(0).DataField = "Nombre"
Text1(1).DataField = "e-mail"
Text1(2).DataField = "Comentario"
'
' Deshabilitar el botón de Actualizar
cmdUpdate.Enabled = False
#End If
End Sub |
| |
|
|
|
