• Jueves 7 de Noviembre de 2024, 19:55

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 - fraj

Páginas: [1]
1
VB .NET / Mantenimiento Paciente error fecha,horas
« en: Viernes 28 de Mayo de 2010, 20:51 »
bueno aca un problema con fecha y horas  conectandome a SQL   me sales  esto : Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM. al monento de guardar los datos
Estoy trabajandoo con  modulos y funciones

Código: vb.net
  1.   
  2.  
  3. -----------ak programado en modulo ------
  4. Imports System.Data.SqlClient
  5.  
  6. Module Module2
  7.     Dim cnn As New SqlConnection("data source=(local);integrated security=true ;database=clinica")
  8.  
  9.     Dim da As New SqlDataAdapter
  10.     Dim ds As New DataSet
  11.  Function guardarusu(ByVal co As String, ByVal no As String, ByVal ape As String, ByVal direc As String, ByVal fechaen As DateTime, ByVal fechacita As DateTime, ByVal hist As String, ByVal pago As Integer, ByVal area As String, ByVal doct As String, ByVal tele As Integer, ByVal hora As DateTime) As DataTable
  12.         ds.Clear()
  13.         Try
  14.             da.SelectCommand = New SqlCommand("ps_nuevousuario1", cnn)
  15.             da.SelectCommand.CommandType = CommandType.StoredProcedure
  16.             With da.SelectCommand.Parameters
  17.                 .Add(New SqlParameter("cod_usuario", co))
  18.                 .Add(New SqlParameter("Nombre", no))
  19.                 .Add(New SqlParameter("Apellidos", ape))
  20.                 .Add(New SqlParameter("Direccion", direc))
  21.                 .Add(New SqlParameter("FechaEntrada", fechaen))
  22.                 .Add(New SqlParameter("Fechacita", fechacita))
  23.                 .Add(New SqlParameter("Cuentahisto", hist))
  24.                 .Add(New SqlParameter("Pago", pago))
  25.                 .Add(New SqlParameter("Area", area))
  26.                 .Add(New SqlParameter("DoctorTumo", doct))
  27.                 .Add(New SqlParameter("telefono", tele))
  28.                 .Add(New SqlParameter("horacita", hora))
  29.             End With
  30.  
  31.         Catch EX As SqlException
  32.             MessageBox.Show("ERROR EN LA BASE DE DATOS")
  33.  
  34.         End Try
  35.  
  36.         da.Fill(ds, "usuariocita")---aca me sale el error : Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM.
  37.         Return ds.Tables("usuariocita")
  38.  
  39.     End Function
  40. End Module
  41.  
  42.  
  43.  

Código: vb.net
  1. ----ak en frame  ----
  2. ---Programandoo el boton guardar
  3.  
  4. Imports System.Data.SqlClient
  5.  
  6.   Private Sub btonGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btonGuardar.Click
  7.  
  8.  
  9.         Try
  10.             guardarusu(Textcod.Text, Textnom.Text, Textape.Text, Textdirec.Text, MaskedTextBox3.Text, MaskedTextBox2.Text, ComboBox1.Text, Textpago.Text, Textarea.Text, Textdoct.Text, Texttelef.Text, MaskedTextBox1.Text)
  11.             MessageBox.Show("Datos Guardados Correctamente...!")
  12.  
  13.         Catch ex As InvalidCastException
  14.             MessageBox.Show("Debe Llenar sus Datos Correctamete...!")
  15.  
  16.  
  17.         End Try
  18.         Textcod.Text = ""
  19.         Textnom.Text = ""
  20.         Textape.Text = ""
  21.         Textarea.Text = ""
  22.         Textdirec.Text = ""
  23.         Texttelef.Text = ""
  24.         ComboBox1.ResetText()
  25.         MaskedTextBox3.Text = ""
  26.         Texttelef.Text = ""
  27.         MaskedTextBox2.Text = ""
  28.         Textdoct.Text = ""
  29.         Textpago.Text = ""
  30.         MaskedTextBox1.Text = ""
  31.  
  32.         Textnom.Focus()
  33.  
  34.  
  35.     End Sub
  36.  
  37.  
  38.  
aluga idea k hice mal!!!  :(   <_<  <_<

2
Java / Re: Ejercicio con JFrame
« en: Miércoles 25 de Noviembre de 2009, 20:55 »
constructor ??? me puedes dar un ejemplo de como hacer un cosntructor  buscando en google , pero aun no le entiendo  :unsure:  

3
Java / Re: Ejercicio con JFrame
« en: Miércoles 25 de Noviembre de 2009, 16:24 »
Cita de: "gophlb"
en algun sitio le pasas al segundo frame lo uqe hayas introducido en el primero?
Se supone q en el primer jfarme estan los nombres de los usuarios : combox "angel " y"freddy"  si escojo "freddy"  y pongo el pass corectamente  me sale el segundo jframe , pero kiero k salga el nombre k escogi en el primer jframe "freddy "  en el segundo frame  usurio  "freddy" :unsure:  :unsure:  

4
Java / Ejercicio con JFrame
« en: Miércoles 25 de Noviembre de 2009, 00:31 »
hi  manes , el problema q tengo es como hago para q el nombre q yo elija en mi jComboBox1  salga en mi otro JFrame
Ejemplo: En mi primer JFrame tengo 2 nombres dentro de un   jComboBox1 freddy y pongo el pass Y me habre el segundo  JFrame  y en el jnombre  me tiene k salir el nombre k eligi freddy , pero nu me sale  :mellow:  :mellow:  
me podrian ayudar  ak esta lo k hice  



Código: Java
  1. import javax.swing.JOptionPane;
  2. public class respuesta extends javax.swing.JFrame {
  3.  
  4.    private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {                                        
  5.    
  6.     String pass1=jpass.getText();
  7. String pass2=jpass.getText();
  8.  
  9.     if(jcmb.getSelectedIndex()==1&&pass1.equals("a")){
  10.         usuario f2= new usuario();
  11.         f2.pack();
  12.         f2.setVisible(true);
  13.         this.setVisible(false);
  14.        
  15.     }else if(jcmb.getSelectedIndex()==2&&pass2.equals("b")) {
  16.         usuario f2= new usuario();
  17.         f2.pack();
  18.         f2.setVisible(true);
  19.         this.setVisible(false);
  20.     }else {
  21.         JOptionPane.showMessageDialog(null,"Intruso-Ingresar clave y usuario Correcto");
  22.        
  23.     }
  24. }
  25. private void jcmbActionPerformed(java.awt.event.ActionEvent evt) {                                    
  26.  
  27.     if(jcmb.getSelectedIndex()==0){
  28.        
  29.     }else if(jcmb.getSelectedIndex()==1){
  30.        
  31.     }else if(jcmb.getSelectedIndex()==2){
  32.        
  33.     }
  34.    
  35. }
  36. private void jcancelarActionPerformed(java.awt.event.ActionEvent evt) {                                          
  37.  
  38.    
  39.    int salir = JOptionPane.showConfirmDialog(this,"¿deseas cancelar?","Cancelar",JOptionPane.YES_NO_OPTION);
  40. if(salir==JOptionPane.YES_NO_OPTION) {
  41.     System.exit(0);
  42. }
  43.  
  44. }
  45.    
  46.  
 
Se supone k ak en usuario debe salir el nombre de FREDDY , Ayuden please  :wacko:  :wacko:


Código: Java
  1. import javax.swing.JOptionPane;
  2. public class usuario extends javax.swing.JFrame {
  3.    
  4.     /** Creates new form usuario */
  5.     public usuario() {
  6.         initComponents();
  7.     }
  8.  
  9. private void jretiroActionPerformed(java.awt.event.ActionEvent evt) {                                        
  10.    
  11.     double monto1=1000;
  12.     double retiro=Double.parseDouble(jcantidad.getText());
  13.    
  14.     if (retiro<monto1){
  15.       double suma=monto1-retiro;
  16.       jmonto.setText(""+suma);
  17.      
  18.          } else if (retiro>monto1){
  19.     JOptionPane.showMessageDialog(null, "Sobregirado");
  20.    
  21.        
  22.     }
  23.    
  24. }
  25.  

5
Visual Basic para principiantes / Re: Ingresar un numero de 4 cifras
« en: Martes 9 de Junio de 2009, 01:35 »
:mellow: Tienes mucha razon Nebire,   hice cosas demas  :huh:
asi me kdo mejor  
Q te parece ?  :unsure:  :unsure:
Código: Visual Basic
  1.   Private Sub Txtnu_Validate(Cancel As Boolean)
  2.      
  3.        Txtnu.MaxLength = 4
  4.        Txtnu.Text = Format$(Txtnu.Text, "###")
  5.      
  6.     End Sub
  7. Private Sub Cmdver_Click()
  8. Dim nu As Integer, extre As Integer, cent As Integer, cart As Integer, i As Integer, suma As Integer, extre1 As Integer, extre2 As Integer, total As Integer
  9.  
  10.  
  11. nu = Val(Txtnu.Text)
  12. cart = Len(CStr(nu))
  13.  
  14. If cart = 4 Then
  15.    extre1 = Left(nu, 1)
  16.    extre2 = Right(nu, 1)
  17.    cent = Mid(nu, 2, 2)
  18.  
  19. total = extre1 & extre2
  20. End If
  21. Lblsuma.Caption = cent + total
  22. Lblcent.Caption = cent
  23. Lblexter.Caption = extre1 & extre2
  24.  

6
Visual Basic para principiantes / Re: Ingresar un numero de 4 cifras
« en: Miércoles 3 de Junio de 2009, 23:00 »
Cita de: "Nebire"
Esto no precisa ninguna ayuda.

Si no sabes resolver esto por tí mismo, dedícate a otra cosa, no importa que digas que eres un novato...

 :mellow: gracias por tu ayuda y apoyo
Pues ya lo hice   :P  :P   :D  :D  :D
Mira . Q te parce ?  &lt;_&lt;  &lt;_&lt;
Código: Visual Basic
  1. Private Sub Cmdver_Click()
  2. Dim nu As Integer, cent As Integer, cart As Integer, i As Integer, suma As Integer, extre1 As Integer, extre2 As Integer
  3.  
  4.  
  5. nu = Val(Txtnu.Text)
  6. cart = Len(CStr(nu))
  7.  
  8. If cart = 4 Then
  9.  
  10.    For i = 1 To 4 Step 3
  11.  
  12.    extre1 = Left(nu, 1)
  13.    extre2 = Left(StrReverse(nu), 1)
  14.    Next
  15.  
  16. cent = Mid(nu, 2, 2)
  17. Else
  18.  
  19. MsgBox (" Solo numeros de 4 cifras ")
  20. Txtnu.SetFocus
  21.  
  22. End If
  23.  
  24. suma = cent + extre1 & extre2
  25. Lblsuma.Caption = suma
  26. Lblcent.Caption = cent
  27. Lblexter.Caption = extre1 & extre2
  28.  

7
Visual Basic para principiantes / Ingresar un numero de 4 cifras
« en: Martes 2 de Junio de 2009, 20:42 »
hi, weno tengo problemas con los numeros extremos
ejemplo
4512 los numeros extremos son 4y 2 , pero tiene q salir asi 42
Quien me puede ayudar ¡¡¡¡¡
DE antemano muchas gracias
ak mi ejerccio q solo me falta los numeros extremos

ingrese un nuemero de cuatro cifras
deve vizualisar
numero extremos
numeros medios
la suma de los numeros extremos y medios


Código: Visual Basic
  1. Dim nu As Integer, extre As Integer, cent As Integer, cart As Integer, i As Integer, suma As Integer
  2.  
  3.  
  4. nu = Val(Txtnu.Text)
  5. cart = Len(CStr(nu))
  6.  
  7. If cart = 4 Then
  8.  
  9.   For i = 1 To 4 Step 3
  10.  
  11.  
  12. extre = Left(nu, i)'se supone q ak halla los numeros extremos
  13.  
  14.   Next
  15.  
  16. cent = Mid(nu, 2, 2)' Ak si halla los numeos medios
  17. Else
  18.  
  19. MsgBox (" Solo numeros de 4 cifras ")
  20. Txtnu.SetFocus
  21.  
  22. End If
  23.  
  24. suma = cent + extre
  25. Lblsuma.Caption = suma
  26. Lblcent.Caption = cent
  27. Lblexter.Caption = extre
  28.  
  29.  
  30. End Sub
  31.  
:huh:  :huh:

8
Visual Basic para principiantes / Re: Numeros perfecto
« en: Lunes 11 de Mayo de 2009, 01:49 »
:D  muchas gracias , x los ejerccios  :D  :D

9
Bases de Datos / [comentarios] Usar ADO con Visual Basic para conectar a bases de datos
« en: Viernes 8 de Mayo de 2009, 05:26 »
muchas gracias , asi me guio mejor
salu2222

10
Visual Basic para principiantes / Numeros perfecto
« en: Viernes 8 de Mayo de 2009, 04:52 »
Ak de nuevo  con otro problemita
numeros perfectos  :me corre muy biem el programa lo malo q  solo me admite los 5 primeros numeros perfectos
osea :6, 28, 496, 8128, 33550336 Y no 8589869056 sale depurar
Código: Visual Basic
  1. Private Sub Cmdcalcular_Click()
  2. Dim numero As Long, sumas As Double, i As Long
  3.  
  4. numero = Val(Txtnu.Text)
  5. sumas = 0
  6. For i = 1 To numero - 1
  7.     If numero Mod i = 0 Then sumas = sumas + i
  8. Next
  9. If sumas = numero Then
  10.     Lblres.Caption = Str(numero) + " es un numero perfecto"
  11. Else
  12.    
  13.    Lblres.Caption = Str(numero) + " no es un numero perfecto"
  14.    End If
  15. End Sub
  16.  
  17.  
Q opcion me dan ustedes , o si seria mejor plantearlo de otra forma  :(
muchas gracias por su ayudaa  :)

11
Visual Basic para principiantes / Re: Contar Dias del mes,año
« en: Miércoles 6 de Mayo de 2009, 18:03 »
muchas gracias , por su ayuda
me ayudaria mas un ejemplo     :D  :D
salu222

12
Visual Basic para principiantes / Re: text con numeros
« en: Lunes 4 de Mayo de 2009, 20:08 »
mucha gracias ,por la ayuda  :D  :D  :D

13
Visual Basic para principiantes / Contar Dias del mes,año
« en: Lunes 4 de Mayo de 2009, 20:07 »
weno tengo un problema  :wacko:  nosé como hacer un programa para contar los dias del mes ejemplo

ingreso 29/05/09
Y q me cuente cuantos dias faltan para acabar el año ,cuantos dias  an pasado desde esa fecha hasta la fecha actual , que dia cae (lunes ,martes) muestre la fecha  asi formato:"lunes 9 de abril del 2009 " (por ejemplo )
solo les pido una ayuda  , no les pido q me hagan el programa por mi  :D  ya q yo quiero aprender
de antemano muchasss graciasssssssss a todos

14
Visual Basic 6.0 e inferiores / Re: numeros positivos y negativos
« en: Jueves 23 de Abril de 2009, 22:31 »
muchas gracias , x tu ayuda
no se volvera a repetir  
para la otra usare code  :D  :D  :D

15
Visual Basic 6.0 e inferiores / numeros positivos y negativos
« en: Jueves 23 de Abril de 2009, 01:56 »
hi amios, tengo un peño problema  espero q me ayuden  
quiero q en un lbl me vote un nº negativo y positivo ejm -1,+2,-3,+4....

En este programa me vota : 1,3,5,.... Yo quiero q me vote -1,+3,-5,+7......
 :(  :(
espero q me ayuden de antemano  muchas graciassssssssss
salu22222

Private Sub Command1_Click()
Dim nu As Integer, i As Integer
nu = Val(Txtnu.Text)
For i = 1 To nu Step 2

Print i
Next
End Sub

16
Visual Basic para principiantes / Re: =FOCUS EN TEXTBOX=
« en: Viernes 13 de Marzo de 2009, 02:41 »
:lol:  :lol:  gracias por el dato  :D

17
Visual Basic para principiantes / Re: Necesito Tutorial Para Visual Basic
« en: Viernes 24 de Octubre de 2008, 21:27 »
gracias , por los datos cheqando  :D  :D  :P

18
Visual Basic para principiantes / Re: CONECTAR COMBO CON ARCHIVO DE TEXTO
« en: Viernes 24 de Octubre de 2008, 21:18 »
gracias man x el dato  :good:  :good:

19
Visual Basic para principiantes / Re: reproducir mp3, videos en visual basic
« en: Viernes 24 de Octubre de 2008, 21:11 »
gracias mam , x el dato  :D  :D

Páginas: [1]