jomismo
28 de Enero del 2005

Les indico la url de una pregunta realizada anteriormente en este foro.

http://programacion.net/foros/32/msg/37815/

Esta es mi duda

Private Sub Comando39_Click()
Dim strSql As String

'strSql = "Insert Into tblsonsinonims (sinonimor,sinonimds ) " & "values" ("'" & Seleccio.Value & "'," & "'" & Seleccio2.Value & "'")"
strSql = "Insert Into tblsonsinonims (sinonimor,sinonimds) values('Seleccio.value','Seleccio2.value')"

cn.Execute strSql

End Sub

Utilizo el editor de visual basic de acces y
Tengo asosiaco al evento de clickar un boton este codigo pero no me funciona .
cn lo tengo ked declarar como
Dim cn As New rdoConnection

es ke estoy muy pavo :-)

emiliomiguez
28 de Enero del 2005

Lo primero que tienes que hacer es crear un objeto de conexión y abrirla mediante una cadena.

Una vez hecho esto, podrás decirle al objeto de conexión que ejecute las instrucciones que quieras.

Después no olvides cerra la conexión.

Otra cosa... La sentencia que utilizas no creo que sea correcta:

strSql = "Insert Into tblsonsinonims (sinonimor,sinonimds) values('Seleccio.value','Seleccio2.value')"

En esta instrucción no cierras las comillas dobles. Lo correcto sería:

strSql = "Insert Into tblsonsinonims (sinonimor,sinonimds) values('" & Seleccio.value & "','" & Seleccio2.value & "')"