el problema esque tengo una agenda y tengo muchos textbox para agregar la informacion como Nombre,Direccion,Folio,Email,Telefono Etc... y esta se guarda en SQL y luego al final cuando terminas todo se exporta a excel,todo bien hasta ai.
solo sirven los campos Nombre,Direccion,Folio,Email,Tel cAsa ,Tel Oficina,Tel Cel.,Municipio.
el problema es que por ejemplo cuando quiero activar otra textbox por ejemplo: Fecha De Registro pero me dice que hay un error en la funcion insert into.
Código:
rivate Sub BTN_NUEVO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_NUEVO.Click
If BTN_NUEVO.Text = "Nuevo" Then
Call LIMPIAR()
BTN_NUEVO.Text = "Agregar"
TXT_NOMBRE.Focus()
TXT_NOMBRE.Enabled = True
Else
FRM_PRI.CONEXION.Open()
FRM_PRI.SQL = ("Insert into AGENDA (NOMBRE,FOLIO,Celular,Casa,OFIcina,email,DIReccion,Municipio,Fecha DE NAcimiento)values ('" & _
TXT_NOMBRE.Text & "','" & TXT_GUIA.Text & "','" & txt_cell.Text & "','" & _
txt_part.Text & "','" & txt_of.Text & "','" & txt_mail.Text & "','" & _
txt_dir.Text & "',' " & TXT_MUN.Text & "',' " & TXT_NAC.Text & "')")
FRM_PRI.ORDEN_BD = New OleDb.OleDbCommand(FRM_PRI.SQL, FRM_PRI.CONEXION)
FRM_PRI.ORDEN_BD.CommandType = CommandType.Text
Try
FRM_PRI.ORDEN_BD.ExecuteNonQuery()
BTN_NUEVO.Text = "Nuevo"
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
FRM_PRI.CONEXION.Close()
seleccion = "todos"
Call CONSULTA()
End If
End Sub
tambien necesito ayuda por alguna otra duda que se me presente alguien que me haga favor de ayudarme por favor