Visual Basic - Valor cajatexto a tabla

Life is soft - evento anual de software empresarial
 
Vista:

Valor cajatexto a tabla

Publicado por Oskar26 (3 intervenciones) el 13/09/2006 15:34:28
Hola.Tengo una pequeña duda.Estoy haciendo en access(con programacion en vb) una aplicacion y quiero lo siguiente.Quiero que lo que hay en una caja de texto, en este caso es text,quiero que esto vaya a una tabla(a una casilla de una tabla y asi sucesivamente con diferentes cajas de texto.¿Como hago esto?Yo he creado una tabla con un campo llamado por ejemplo Locales de tipo text, entonces tengo en un formulario distintas cajas de texto en las cuales hay ciertos datos y quiero que estos vayan a dicha tabla.¿No se como hacerlo.Alguien que me pueda echar una mano por favor?
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Valor cajatexto a tabla

Publicado por ivan (1039 intervenciones) el 13/09/2006 20:45:45
Supongamos que tu tabla en Access tiene la siguiente estructura

Nombre de la Tabla -> NOMBRET
Campo1 Campo2 Campo3

Ahora para agregar un registro a la tabla NOMBRET, primero supongo que debes de abrir un RecordSet para que puedas manipular una tabla de Access, no sin antes hacer una conexión al archivo MDB (de Access), para esto te muestro un breve ejemplo por medio de ADO

'Declaras las variables
Dim/Public/Private Conexion As ADODB.Connection
Dim/Public/Private Rs As ADODB.RecordSet

' configuras las variables Connection y RecordSet
Set Conexion = New ADODB.Connection
Set Rs = New ADODB.RecordSet
' Abres la Conexion (el archivo de access se llama "bd1" y está ubicado)
' en raíz de la unidad C:\
Conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bd1.mdb;Persist Security Info=False"
Conexion.Open
'Abres el RecordSet Rs (abres la tabla NOMBRET)
Rs.Open "SELECT * FROM NOMBRET", Conexion, adOpenKeyset, adLockOptimistic
'Agregas el nuevo registro con los valores que tengan las cajas de Texto
'Text1, Text2 y Tex3, las cuales deben tener un valor válido de acuerdo
'al tipo de campo que sean CAMPO1, CAMPO2 y CAMPO3
Rs.AddNew
Rs("Campo1") = Text1.Text
Rs("Campo2") = Text2.Text
Rs("Campo3") = Text3.Text
Rs.Update
' Cierra el RecordSet y la conexión, solo en caso de que se requiera
Rs.Close
Conexion.Close

Espero esto sea lo que buscas, si acaso no lo es, explica mejor tu duda para poderte ayudar. Suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Valor cajatexto a tabla

Publicado por oskar26 (3 intervenciones) el 14/09/2006 09:12:44
Gracias por la contestacion.Como me has comentado,yo he puesto esto:

Option Compare Database

Dim Conexion As ADODB.Connection
Dim Rs As ADODB.Recordset

Set Conexion = New ADODB.Connection
Set Rs = New ADODB.Recordset

Conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bd1.mdb;Persist Security Info=False"
Conexion.Open
Rs.Open "SELECT * FROM Tabla", Conexion, adOpenKeyset, adLockOptimistic

Rs.AddNew
Rs("Local") = Texto.Text
Rs.Update
Rs.Close
Conexion.Close

'Cuadro1 es un cuadro de lista
Private Sub Cuadro1_Click()
Texto = Me.Cuadro1

End Sub

*Me da un error.No se si tengo que activar algo.No se lo que estoy haciendo mal.Gracias nuevamente.Un saludo*
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Valor cajatexto a tabla

Publicado por ivan (1039 intervenciones) el 14/09/2006 16:59:39
Qué error y en cual línea te sale ese error ???
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Valor cajatexto a tabla

Publicado por oskar26 (3 intervenciones) el 15/09/2006 08:59:06
Me pone: que el procedimieto externo no es valido......
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar