Hola estoy iniciando una aplicacion, y estoy utilizando Sql Server 2000......acabo de crear una BD en Sql server 2000....ya la exporte como un proveedor odbc pero lo defini como dns del sistema, es decir como Local Server...........pero no se como abrirla en Visual basic...para que pueda hacer mi enlace de datos, esto lo quiero realizar en tiempo de diseño...alguien me puede ayudar hacerlo o me puede indicar si existe alguna herramienta en donde pueda extraerlos datos y ponerlos en Vb

Para hacer mi enlace de datos utilizo un Adocd.......pero no se como abrir la BD....me pueden ayudar

No se si me explique.....

Gracias

Hola

Este código accede a una base de datos sql directamente con ADO y de esta forma te evitás tener que andar creando el DNS en la máquina donde va a funcionar el sistema.

Public cnn As ADODB.Connection
Public rst As ADODB.Recordset
Public CadenaSQL As String

Public Function AbrirConexion()
On Error GoTo ConexionErr
' por las dudasde que hayaquedado abierta
Set cnn = Nothing
Set rst = Nothing
' Creo los objetos a utilizar
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
' abrir la base
cnn.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=nombre_de_la_base_de_datos; " & _
"Data Source=(local)\SQLExpress; " & _
"integrated security=SSPI; persist security info=True;"
Exit Function
ConexionErr:
MsgBox Err.Description, vbCritical, Err.Number
End Function

Public Function EjecutarComando(ByVal CadenaSQL As String)
On Error GoTo RecordsetErr
' abrir el recordset
rst.Open CadenaSQL, cnn, adOpenStatic, adLockOptimistic
Exit Function
RecordsetErr:
MsgBox Err.Description, vbCritical, Err.Number
End Function

Public Function CerrarConexion()
' Cerrar el recordset y la conexión
rst.Close
cnn.Close
End Function

Esto lo pongo en un módulo y lo llamo por ejemplo Data.bas

Entónces cuando necesitas ocupar la base desde algún form utilizás estas instrucciones

AbrirConexion
CadenaSQL="Select * From Clientes"
EjecutarComando(CadenaSQL)
CerrarConexion

Además el recordset lo podés manejar llamandolo así, por ejemplo:

Data.rst.EOF o Data.rst.AddNew

Al tener las clases o funcionesen un módulo lo podés llamar desde cualquier lado sin tener que andar repitiendo código en los distintos forms.

Espero te sirva.

Saludos.

Jorge