hola amigos del foro


tengo u problema para dar de alta a registros desde el formulario


el codigo q tengo es asi:


dim ssql as string


ssql="select * from alumnos"


y despues para dar de alta por medio de sentencias SQL


uso lo siguiente::


ssql="insert into alumnos(nombre,edad) values ('& txtNombre&','&edad&')


y no me esta dando de alta los registros q yo asigno el los txtbox de el formulario


quisiera q me ayudaran a corregir mi error





gracias

mmmmmmmmm, ta raro, pero no entiendo, te marca error o solo no hace el insert?

deberías postear el CODE.

SAlu2

si te estas conectando por medio de ADO lo puedes hacer así


Dim rs2 As New ADODB.Recordset
Dim sQuery As String
sQuery = ""
sQuery = sQuery & "select CODIGO from DOCUMENTO where CODIGO = '" & sCodigoDocto & "'"
Set rs2 = cn.Execute(sQuery)
If Not ((rs2.BOF) And (rs2.EOF)) Then
MsgBox "Tipo de documento ya existe", vbInformation, "Tipo de Documentos"
Else
rs.Open "DOCUMENTO", cn, adOpenDynamic, adLockOptimistic '--> Aquihabro la tabla de la base de datos
rs.AddNew
rs.Fields("CODIGO").Value = sCodigoDocto
rs.Fields("DESCRIPCION").Value = sDescripcion
rs.Fields("TIPO_SALDO").Value = sTipoSaldo
rs.Save '--> esta es la parte que graba
rs.Update
End If
Set rs = Nothing
Set rs2 = Nothing

ok





aqui esta el codigo "orientenme"





Dim DB As Database
Dim RS As Recordset
Dim SSQL As String


private Sub Command1_Click()
SSQL = "select * from libros"
Set DB = DBEngine.Workspaces(0).OpenDatabase("c:\libros\bib lioteca.md b")
Set RS = DB.OpenRecordset(SSQL, dbOpenDynaset)


SSQL = "INSERT INTO libros" & "(titulo,autor)" & "values ('txtNombre','t')"
DB.Execute SSQL, dbFailOnError


nombre = txtNombre
MsgBox nombre






MsgBox "listo", vbOKOnly, "listo"
End Sub





no se en donde esta el error

ah se me olvidaba que estoy trabajando con el DAO

Te voy a señalar tu error:

Iniciado por ad_iesus

SSQL = "INSERT INTO libros" & "(titulo,autor)" & "values ('txtNombre','t')"
DB.Execute SSQL, dbFailOnError

Al paso de los parametros, solo pasas la instancia del control, pero no le pasas el valor, te falto el campo TEXT, la sentencia seria asi:


SSQL = "INSERT INTO libros" ¬ "(titulo,autor)" & "vales('txtNombre.TEXT','t')"


Supongo que t es una variable que no tiene nada que ver con un textbox, si es asi, tienes que agregarle la propiedad TEXT para que le pases el valor, de otra forma, no pasas nada, y queda en blanco el campo


Suerte

Añadiendo mas:


nombre = txtNombre <-- Si te dejara en blanco cualquier cosa


nombre = txtNombre.Text <-- ya te escribe lo que quieres


asi sea que trabajes con ADO, DAO o RDO, el error siempre sera el mismo si omites el .Text





Suerte

ok muchisimas gracias lo voy a checar !!!





cuidate..