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.
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)
?
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