SoloCodigo

Mira este código:

For i = 0 To Recordset.Fields.Count - 1
      tipo = Obtener_TipoDatos(Recordset.Fields(i).Type)
Next

La función que tengo yo para obtener que tipos de datos es en Sql Server es la siguiente:

Function Obtener_TipoDatos(campo As Integer) As String
    'Obtengo el tipo de datos del campo
    Select Case campo
        Case adBigInt
            Obtener_TipoDatos = "BigInt"
        Case adBinary
            Obtener_TipoDatos = "Binary"
        Case adBoolean
            Obtener_TipoDatos = "Boolean"
        Case adChar, adBSTR
            Obtener_TipoDatos = "Char"
        Case adCurrency
            Obtener_TipoDatos = "Currency"
        Case adDate
            Obtener_TipoDatos = "Date"
        Case adDBDate, adDBFileTime, adDBTime, adDBTimeStamp
            Obtener_TipoDatos = "SmallDateTime"
        Case adDecimal, adDouble
            Obtener_TipoDatos = "Double"
        Case adGUID
            Obtener_TipoDatos = "UniqueIdentifier"
        Case adIDispatch, adInteger
            Obtener_TipoDatos = "Int"
        Case adIUnknown, adLongVarBinary
            Obtener_TipoDatos = "Image"
        Case adLongVarChar
            Obtener_TipoDatos = "Text"
        Case adLongVarWChar
            Obtener_TipoDatos = "NText"
        Case adNumeric
            Obtener_TipoDatos = "Decimal Numeric"
        Case adPropVariant, adSingle
            Obtener_TipoDatos = "Real"
        Case adSmallInt
            Obtener_TipoDatos = "SmallInt"
        Case adTinyInt, adUnsignedBigInt, adUnsignedInt, adunsignedsamllint, adUnsignedTinyInt
            Obtener_TipoDatos = "TinyInt"
        Case adVarBinary
            Obtener_TipoDatos = "VarBinary"
        Case adVarChar
            Obtener_TipoDatos = "VarChar"
        Case adVariant
            Obtener_TipoDatos = "Sql_Variant"
        Case adVarWChar
            Obtener_TipoDatos = "NVarChar"
        Case adWChar
            Obtener_TipoDatos = "NChar"
    End Select
End Function

De todas formas en esta página puedes ver la correspondecia de los tipos de datos:

http://www.able-consulting.com/ADODataTypeEnum1.htm

Espero que te sirva de ayuda, si tienes alguna duda no dudes en consultarme y yo en la medida que pueda te ayudaré.

Saludos,
Roberto

El problema que tengo la verdad es que no se si tiene solución. Lo que me pasa es que yo tengo en un formulario un array dinámico de dos dimensiones y desde otro formulario queiro porder tener también acceso a él, he intentado declararlo como público donde le creo pero me da error.

Declarándolo con Dim no me da error pero claro está que no puedo acceder a él desde otro formulario y declarándolo con Public si.

¿Por q puede ser? ¿Como lo podría solucionar?

Gracias por atenderme.
Saludos,
Roberto

Hola Javier:

Muchas gracias y perón por ser tan pesado.

Saludos,
Roberto

Al poner eso que me has dicho, ya me salta el mensaje de "Proceso detenido por el usuario", lo que pasa es que en el Form_Unload cierro la conexión con la base de datos y claro al dar a cancelar hago unload me y claro la conexión se cierra pero el proceso en vez de terminar y cerrarse el formulario intenta continuar y me da un error porque me dice que el objeto esta cerrado y yo lo que quiero es que despues de que de a cancelar se muestr el mensaje y pare totalmente el proceso, si es posible sin cerrar el formulario.

Gracias.

Que error te pone cuando se ejecuta la consulta?
Has comprobado que combo1.text no esté vacío al igual que le Variable?

Jaume Muchas gracias por tu ayuda. Gracias a tu ejemplo lo he conseguido hacer en mi aplicación.

Saludos.

Hola,
Sabe alguien que es lo que hay que hacer para que cuando se ejecute una aplicación de vb aparezca minimizada en la barra de herramientas? Es decir que aparezca simplemente un icono al lado de la hora mientras se está ejecutando y que luego cuando termine se quite. Tb que si se hace doble click sobre el icono de la aplicación que se máximice.

Muchas gracias por atenderme.

Saludos

Tengo la siguiente función que la llamo en el evento onfocus de input text necesito saber que está mal de esta función, muchas gracias de ante mano.

function cambiar(objeto){
      objecto.value = toUpperCase(objecto.value);
   }

a la función la paso lo siguiente cuando la llamo:

<input type="text" ... onblur="camibar(this);">

Hay alguna función que quite los acentos en una palabra? Si no la hay como se haría.

Les agradecería mucho que me ayudaran ya que de javasrcipt no tengo prácticamente ni idea.

Muchas gracias.

Tengo problemas con el datagrid a la hora de insertale los valores necesarios.
El datagrid no lo cargo con ningun recorset, sino que quiero meterle los valores en las celdas como si fuera una hoja de excel y cuando el usuario pulse al botón aceptar hacer una serie de procedimientos con los valores que ha introducido en el datagrid

La verdad es que no me sirve porque yo no quiero que se carge la página cada vez que cambia el select. Por eso kiero hacer lo con javascript y no solo con ASP. O sea que si sabes la forma de hacer lo con javascript te agradecería que me lo dijeras. Gracias.

El problema puede ser porque el sistema operativo no contenga todas las librerias que tenías antes.
Comprueba si tienes todas las librerías necesarias para ejecutar la aplicación y si no las tienes copiatelás y registralas.
Lo más seguro es que el problema que te da sea debido a eso pero si no es asi hazmelo saber y ya intento buscarte otra solución.
Un saludo

El problema que puedes tener es con el tipo de datos de los campos, porque según estoy viendo todos los datos los insertas como si todos los campos fueran de tipo char y el problema puede ser es que alguno no sea de tipo char sino de tipo entero o algún otro tipo.
Comprueba los tipos de datos de los campos y luego revisa la sentencia de SQL.