Foros > Visual Basic: Urgente 2 consultas

  1. HAMILTON

    Mensajes [1] - Enviado el Viernes 04 de Enero de 2008 a las 21:20hs

    Hola,mi primera consulta es como hago (o q funcion utilizo) para q una variable se convierta en un valor de campo. P. Ejemplo tengo la variable "D06" que quiero que la computadora la comprenda como el nombre del campo de una tabla. Como hago esa conversion?

    La segunda es acerca del Instalador de Visual Basic, termina bien el proceso pero cuando lo instalo en una Pc con Win98, cuelga toda ventana del explorer, teniendo que reinstalar la Pc. Cuando se instala en Xp, pide reiniciar sin parar, al final ni siquiera levanta la ventana de presentacion del instalador. Agradesco de antemano su ayuda.

  2. keeper

    Mensajes [8] - Enviado el Miércoles 05 de Marzo de 2008 a las 18:53hs

    Para la primera consulta la respuesta es f?cil


    Supongo que lo que quieres que si una variable X vale "D06" como haces para que llegar al campo de una tabla que se llama D06


    bastar? con llamar a la tabla con el comando fields(X)


    ?

  3. elprincipiante

    Mensajes [1] - Enviado el Sabado 08 de Marzo de 2008 a las 16:15hs

    Espero haber entendido bien lo que necesitas y la id?a de keeper ah? va algo que hice:


    Private Sub cmdGrabar_Click()
    '--> Declaracion de Variables
    Dim cnConexion As Connection
    Dim rsRecordset As Recordset

    Dim strCampo1 As String
    Dim strCampo2 As String
    Dim strCampo3 As String

    '--> Abrir Conexion
    Set cnConexion = New Connection
    With cnConexion
    .ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source = " & App.Path & "\Prueba.mdb; Persist Security info = False"
    .Open
    End With

    '--> Abrir Tabla
    Set rsRecordset = New Recordset
    With rsRecordset
    .ActiveConnection = cnConexion
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .CursorType = adOpenDynamic
    .Open "Prueba"
    End With


    strCampo1 = "D06"
    strCampo2 = "D07"
    strCampo3 = "D08"

    With rsRecordset
    .AddNew
    .Fields(strCampo1).Value = txtDatos(0).Text
    .Fields(strCampo2).Value = txtDatos(1).Text
    .Fields(strCampo3).Value = txtDatos(2).Text
    .Update
    End With

    '--> Cerrar Recordset
    rsRecordset.Close
    '--> Liberar variable
    Set rsRecordset = Nothing


    '--> Cerrar Conexion
    cnConexion.Close
    '--> Liberar variable
    Set cnConexion = Nothing

    End Sub


responder

Para poder responder a este tema tenes que ingresar. Si no tenes una cuenta podes registrarse gratis..

publicidad