Visual Basic - problema variable para campo adodb

Life is soft - evento anual de software empresarial
   
Vista:

problema variable para campo adodb

Publicado por Manuel (17 intervenciones) el 15/06/2010 13:18:30
Hola, necesito ayuda, estoy haciendo un programa para aprender Tarot.

Tengo una base de datos “BaseTarot”, con una tabla “TablaArcanos” y varios campos “1b, 2b, 3b, etc…”

Tengo un txtCarta.text ‘ Ahí pongo el nombre del naipe (ejemplo 1b o 2b etc…)

Tengo un txtSignificado ‘ Ahí pongo el significado del naipe

Esto se refleja en un listbox para hacer una lista (list2)

Lo que pretendo y no consigo es que lo que escriba en el txtCarta y que coincide con el nombre del campo (lo he señalado abajo con unas >>>>) se cambie al teclear el txtCarta. Lo he intentado con variables pero no me sale ( el problema que encuentro es con el caracter “ ¡ “ que indica el campo) yo he hecho X= “ ¡ “ & txtCarta.text , y de todas las formas que se me han ocurrido pero puede ser. Si alguien puede orintarme. No se si me habré explicado bien.

With RsArcanos
.Requery
.AddNew

>>>>>>>>> !1b = Form1.txtSignificado.Text

.Update
.Requery
End With
Form1.List2.Clear
Do While Not RsArcanos.EOF
Form1.List2.AddItem RsArcanos!1b
RsArcanos.MoveNext
Loop
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:problema variable para campo adodb

Publicado por Julio (72 intervenciones) el 15/06/2010 16:19:16
No logro enteder bien lo que quieres hacer:

Pero aqui tienes un error:

Form1.List2.AddItem RsArcanos!1b *****FALTA EL .FIELDS*****

La forma correcta seria:

Form1.List2.AddItem RsArcanos.Fields!1b

De todas formas lo haria asi:

Set RsArcanos = new AdoDb.Recorset
RsArcanos.Open("Select * From TablaArcanos")

With RsArcanos
.MoveFirst
While not .EOF
List2.AddItem .Fields!Id1
.MoveNext
Wend
End with

RsArcanos.Close
Set RsArcanos = Nothing
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:problema variable para campo adodb

Publicado por Manuel (17 intervenciones) el 15/06/2010 21:11:33
En primer lugar, gracias por contestarme y a ver si ahora me explico algo mejor poniendo el código completo de grabado.

Global Base As New ADODB.Connection
Global RsArcanos1 As New ADODB.Recordset ‘esto lo tengo en un módulo

Sub main()
With Base
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\NEW2.MDB;Persist Security Info=False"
Form1.Show
End With
End Sub

Sub Arcanos()
With RsArcanos
If .State = 1 Then .Close
.Open "select* from TablaArcanos", Base, adOpenStatic, adLockOptimistic
End With
End Sub
--------------------

With RsArcanos
.Requery
.AddNew

!1b = Form1.txtSignificado.Text

.Update
.Requery
End With ‘ esto está en otro módulo y así me agrega el dato perfectamente en el campo llamado “ 1b “ . ( de todas formas tomo nota de la forma que me dices que se debe de poner)

No tengo problema en grabar los datos, el problema lo tengo en cómo hago para que el campo en el que grabar los datos sea el que escriba en un textbox.

Osea quiero desde un textbox escribir el nombre del campo en el que agregar los datos dinámicamente , (no establecerlo estáticamente en el código).
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