candela
03 de Septiembre del 2004

Hola a todos, tengo un problema, ojalá podais ayudarme. Tengo en Access una tabla (Tabla) con dos campos (Campo1 y Campo2). En diseño la tabla está compuesta por Nombre de campo, tipo de dato y descripción; pues bien, lo que necesito es sacar esa descripción con Visual Basic, con una conexión a la BBDD ADODB.

Angel
03 de Septiembre del 2004

porque no haces una inspeccion con el depurador?
la coleccion Fields te dara las propiedades de cada uno de los campos....

candela
03 de Septiembre del 2004

gracias por tu ayuda Angel. Si con el recordset (fields) lo puedo sacar no se como, he ido mirando una por una las propiedades, y no doy con ello. Gracias x tu ayuda.

Alberto
03 de Septiembre del 2004

Estas usando BV6 o VB.Net ???

victor
03 de Septiembre del 2004

primero tienes q llenar las tablas con los datos correspondientes para la relacion con el proyecto.
luego tienes q relacionar la tabla de acces con el formulario, luego tienes q ir a componentes para q habilites , el boton ado , luego vas a las propiedades del ado relacionas con la tabla de acces , luego origen de registros con el nombre de la tabla, y lugo compruebas la coneccion aplicas y aceptas.
luego de todo eso asis click en el ado vas a su propiedades , luego vas donde dise record source y pones el name de la tabla .
ejecutas y ya tienes la relacion de la tabla de acces con el formulario por medio del ADO...
bueno hay esta chauuu ... fue un gusto ayudarte...

Angel
03 de Septiembre del 2004

enviame el codigo.... a esa direccion de hotmail...

Angel
03 de Septiembre del 2004

Dim cn As ADODB.Connection
Dim objRst As ADODB.Recordset

'Instancia la conexión:
Set cn = New ADODB.Connection


'Establece sus propiedades:
cn.Provider = "sqloledb" 'Proveedor de SQL Server
cn.Properties("Prompt").Value = ConnectPromptEnum.adPromptComplete
cn.ConnectionString = "Provider=sqloledb;Data Source=" _
& Servidor$ & ";Initial Catalog=" & Catálogo$ & ";"
cn.Open , UID, PWD

Set objRst = New ADODB.Recordset

objRst.Open "Select * from <tutabla>", cn, adOpenDynamic, adLockOptimistic

For Each Field In objRst.Fields

MsgBox Field.Name + vbCrLf + _
"TIPO: " + CStr(Field.Type) + vbCrLf + _
"TAMAÑO: " + CStr(Field.DefinedSize)

'Si el campo es nvarchar ->
If Field.Type = 202 Then
'Haz una inspeccion sobre Field y veras sus
'propiedades
'202 ->adVarWChar
'
MsgBox "El campo es de tipo NVARCHAR(" _
+ CStr(Field.DefinedSize) + ")", _
vbInformation + vbOKOnly, "AVISO!!"

End If

Next

objRst.Close

Set cn = Nothing
Set objRst = Nothing

espero que te sirva...
saludos...