Programación General > Visual Basic 6.0 e inferiores

 Problemas Con Ado

(1/1)

Blank:
Buenas dias, de nuevo por aqui con una dudilla, bueno lo que pasa es que tengo un problema cuando quiero guardar unos datos

--- Código: Text --- Private Sub cmdGuardar_Click()    Dim sBase As String    Dim cnn As Connection    Dim rst As Recordset            sBase = App.Path & "\mash.mdb"            Set cnn = New ADODB.Connection        Set rst = New ADODB.Recordset                cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase        rst.Open "SELECT * FROM encuesta", cnn, adOpenDynamic, adLockOptimistic                                rst.AddNew            rst!nombre = txtNombre.Text            rst!paterno = txtPaterno.Text            rst!materno = txtMaterno.Text            rst!civil = cmbEdo.Text            rst!sexo = cmbSexo.Text            rst.Update        rst.CloseEnd Sub      
y cuando lo corro me dice que es un error de compilacion y que no se ha definido el tipo definido por el usuario, si me pueden ayudar se los agradezco pues igual es algo tan simple que yo le esoy buscando tres pies al gato, si me pueden decir donde estoy mal, please

albertovicat:
Hola.
Creo que ayudaría más si pones el contenido exacto (no solamente de qué se trata) de las variables adOpenDynamic y adLockOptimistic, así como la línea exacta en que se produce el error. Por otro lado, y mirando bien creo que puede ser esto: después del AddNew estás usando signos de admiración en vez de puntos: "rst!nombre = txtNombre.Text" en vez de "rst.nombre = txtNombre.Text".

mamex:
Metete al menú Proyecto -> despues elige referencias, y busca una que diga:
Microsoft ActiveX Data Objects 2.X Library, dale click al cuadrito izquierdo para que se seleccione y posteriormente, da click al boton aceptar.

Elige la version que desees.  2.X    -> donde X es la versión.

En cuanto a lo del signo de admiración ( ! ), eso si es permitido en un recordset.

Blank:
gracias por su interes a los dos, pero como dice mamex el signo de admiracion ! si se pude utilizar solo que que me faltaba el Microsoft ActiveX Data Objects 2.0 Library, ha que por cierto no me funcionaba pero no veia que tambien tenia en la referencias el Microsoft DAO 3.51 Object Library por lo que no me salia pero ya quedo, gracias a los dos por sus respuestas    :comp:

Navegación

[0] Índice de Mensajes