• Jueves 28 de Marzo de 2024, 23:57

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - baezafr

Páginas: [1]
1
Les comento rapidamente, estoy realizando la modificacion de un programa (en visual basic 6.0) el cual graba una nota como archivo .txt en una base de datos, ya he realizado el añadir que en el mensaje que se ponga aparezca el nombre del usuario que lo escribe y la fecha, ahora me hace falta una cosa no tan dificil pero en realidad no he logrado hacerla, es el ordenar los comentarios de la nota es decir que el ultimo comentario ingresado en la nota aparezca de primero

ejemplo: el usuario franco escribio el 13-03-2010 "esto es un mensaje de prueba"

Franco 13-03-2010 Esto es un mensaje de prueba
el usuario franco escribio el 15-03-2010 "Hola"

la manera en la que actualmente se graban es en orden ascendente dentro del .txt

Franco 13-03-2010 Esto es un mensaje de prueba
Franco 15-03-2010 Hola

pero necesito que aparezcan asi en el textbox

Franco 15-03-2010 Hola
Franco 13-03-2010 Esto es un mensaje de prueba

Repito estos comentarios se agregan a un archivo que he llamado Notadelcliente.txt no importa si dentro del archivo .txt no cambian de posicion, lo unico que quiero es que en el textbox aparezca el ultimo comentario ingresado de primero.


de antemano agradezco cualquier tipo de ayuda ya que hace tiempo que no programaba algo en visual basic




esta es la parte del codigo donde agregue lo de "USUARIO" Y "FECHA"

Private Sub cmdguardarnota_Click() ' ACA AGREGO LOS COMENTARIOS AL TEXTBOX LLAMANDO A NOTAS
Dim oCliente As New cCliente
Dim oCliente1 As New cCliente1
If txtcliente_id.Text <> "" Then
oCliente.Buscar_Nom txtcliente_id.Text
End If
If txtCliente_id1.Text <> "" Then
oCliente1.Buscar_Nom txtCliente_id1.Text
End If
If MsgBox("¿Esta Seguro que Desea Agregar el Comentario a la nota?", vbYesNo, ":::: SISTEMA ²º¹º ::::") = vbYes Then
If (oCliente.nombre = cmbNombre.Text) And (cmbNombre.Text <> "") Then
If Format(oCliente.Notas, "") <> Format(txtlc3.Text, "") Then
If oCliente.Notas = "Nota" Or oCliente.Notas = "" Then
oCliente.Notas = "Fecha " + CStr(Date) + " : " + usuario + " , " + Format(CStr(oCliente.Notas), "$##,##0.00") + " a: " + txtlc3.Text
Else
oCliente.Notas = oCliente.Notas + Chr(13) + Chr(10) + " Fecha " + CStr(Date) + " , " + usuario + " " + txtlc3.Text
End If
txtNotas.Text = oCliente.Notas
oCliente.Actualizar_Limite_Credito Format(txtLC.Text, "00000.00")
oCliente.Notas = oCliente.Notas + " Fecha " + CStr(Date) + " , " + usuario + txtlc3.Text
Else
MsgBox "El comentario se ha agregado a la nota", vbExclamation, ":::: SISTEMA ²º¹º ::::"
End If
Else: MsgBox "La Clave del Cliente no coincide con el Nombre, no Habrá Cambio", vbExclamation, ":::: SISTEMA ²º¹º ::::"
End If

MsgBox "La nota ha sido Guardada", vbInformation, ":::: SISTEMA ²º¹º ::::"
End If
End Sub



Y AQUI LES DEJO DONDE SE GUARDA Y EDITA LA NOTA OSEA EL FORMULARIO DE LA NOTA en un archivo .txt




Dim rs1 As adodb.Recordset
Dim rs2 As adodb.Recordset


Private Sub CmdGrabar_Click()
On Error GoTo Atrapado
Set rs1 = New adodb.Recordset
Set rs2 = New adodb.Recordset

cnn.BeginTrans
rs1.Open "Update CLIENTES Set Notas = ' " & Me.TxtNota.Text & "' where Cliente_Id = " & _
frmCACPC.txtcliente_id.Text, cnn

cnn.CommitTrans

Set rs1 = Nothing
Set rs2 = Nothing

Unload Me

Exit Sub
Atrapado:
MsgBox Err.Description
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
cnn.Close
If cnn.State <> adStateOpen Then
cnn.CursorLocation = adUseClient
cnn.Open "UBICACION DE LA BASE DE DATOS EN EL SERVIDOR "
End If
If cnn1.State <> adStateOpen Then
cnn1.CursorLocation = adUseClient
cnn1.Open "UBICACION DE LA BASE DE DATOS EN EL SERVIDOR DE ACUERDO AL ODBC Y SU IP"
End If
End Sub

Páginas: [1]