|
|
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
« 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 -----------ak programado en modulo ------ Imports System.Data.SqlClient Module Module2 Dim cnn As New SqlConnection("data source=(local);integrated security=true ;database=clinica") Dim da As New SqlDataAdapter Dim ds As New DataSet 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 ds.Clear() Try da.SelectCommand = New SqlCommand("ps_nuevousuario1", cnn) da.SelectCommand.CommandType = CommandType.StoredProcedure With da.SelectCommand.Parameters .Add(New SqlParameter("cod_usuario", co)) .Add(New SqlParameter("Nombre", no)) .Add(New SqlParameter("Apellidos", ape)) .Add(New SqlParameter("Direccion", direc)) .Add(New SqlParameter("FechaEntrada", fechaen)) .Add(New SqlParameter("Fechacita", fechacita)) .Add(New SqlParameter("Cuentahisto", hist)) .Add(New SqlParameter("Pago", pago)) .Add(New SqlParameter("Area", area)) .Add(New SqlParameter("DoctorTumo", doct)) .Add(New SqlParameter("telefono", tele)) .Add(New SqlParameter("horacita", hora)) End With Catch EX As SqlException MessageBox.Show("ERROR EN LA BASE DE DATOS") End Try 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. Return ds.Tables("usuariocita") End Function End Module
----ak en frame ---- ---Programandoo el boton guardar Imports System.Data.SqlClient Private Sub btonGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btonGuardar.Click Try 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) MessageBox.Show("Datos Guardados Correctamente...!") Catch ex As InvalidCastException MessageBox.Show("Debe Llenar sus Datos Correctamete...!") End Try Textcod.Text = "" Textnom.Text = "" Textape.Text = "" Textarea.Text = "" Textdirec.Text = "" Texttelef.Text = "" ComboBox1.ResetText() MaskedTextBox3.Text = "" Texttelef.Text = "" MaskedTextBox2.Text = "" Textdoct.Text = "" Textpago.Text = "" MaskedTextBox1.Text = "" Textnom.Focus() End Sub
 
2
« 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 
3
« en: Miércoles 25 de Noviembre de 2009, 16:24 »
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"
4
« 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 
me podrian ayudar ak esta lo k hice  import javax.swing.JOptionPane; public class respuesta extends javax. swing. JFrame { private void jButton1ActionPerformed (java. awt. event. ActionEvent evt ) { if(jcmb.getSelectedIndex()==1&&pass1.equals("a")){ usuario f2= new usuario(); f2.pack(); f2.setVisible(true); this.setVisible(false); }else if(jcmb.getSelectedIndex()==2&&pass2.equals("b")) { usuario f2= new usuario(); f2.pack(); f2.setVisible(true); this.setVisible(false); }else { JOptionPane. showMessageDialog(null, "Intruso-Ingresar clave y usuario Correcto"); } } private void jcmbActionPerformed (java. awt. event. ActionEvent evt ) { if(jcmb.getSelectedIndex()==0){ }else if(jcmb.getSelectedIndex()==1){ }else if(jcmb.getSelectedIndex()==2){ } } private void jcancelarActionPerformed (java. awt. event. ActionEvent evt ) { } }
  import javax.swing.JOptionPane; public class usuario extends javax. swing. JFrame { /** Creates new form usuario */ public usuario() { initComponents(); } private void jretiroActionPerformed (java. awt. event. ActionEvent evt ) { double monto1=1000; double retiro =Double. parseDouble(jcantidad. getText()); if (retiro<monto1){ double suma=monto1-retiro; jmonto.setText(""+suma); } else if (retiro>monto1){ } }
5
« en: Martes 9 de Junio de 2009, 01:35 »
Tienes mucha razon Nebire, hice cosas demas 
asi me kdo mejor
Q te parece ? Private Sub Txtnu_Validate(Cancel As Boolean) Txtnu.MaxLength = 4 Txtnu.Text = Format$(Txtnu.Text, "###") End Sub Private Sub Cmdver_Click() 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 nu = Val(Txtnu.Text) cart = Len(CStr(nu)) If cart = 4 Then extre1 = Left(nu, 1) extre2 = Right(nu, 1) cent = Mid(nu, 2, 2) total = extre1 & extre2 End If Lblsuma.Caption = cent + total Lblcent.Caption = cent Lblexter.Caption = extre1 & extre2
6
« en: Miércoles 3 de Junio de 2009, 23:00 »
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... gracias por tu ayuda y apoyo
Pues ya lo hice   Mira . Q te parce ? Private Sub Cmdver_Click() Dim nu As Integer, cent As Integer, cart As Integer, i As Integer, suma As Integer, extre1 As Integer, extre2 As Integer nu = Val(Txtnu.Text) cart = Len(CStr(nu)) If cart = 4 Then For i = 1 To 4 Step 3 extre1 = Left(nu, 1) extre2 = Left(StrReverse(nu), 1) Next cent = Mid(nu, 2, 2) Else MsgBox (" Solo numeros de 4 cifras ") Txtnu.SetFocus End If suma = cent + extre1 & extre2 Lblsuma.Caption = suma Lblcent.Caption = cent Lblexter.Caption = extre1 & extre2
7
« 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 Dim nu As Integer, extre As Integer, cent As Integer, cart As Integer, i As Integer, suma As Integer nu = Val(Txtnu.Text) cart = Len(CStr(nu)) If cart = 4 Then For i = 1 To 4 Step 3 extre = Left(nu, i)'se supone q ak halla los numeros extremos Next cent = Mid(nu, 2, 2)' Ak si halla los numeos medios Else MsgBox (" Solo numeros de 4 cifras ") Txtnu.SetFocus End If suma = cent + extre Lblsuma.Caption = suma Lblcent.Caption = cent Lblexter.Caption = extre End Sub
8
« en: Lunes 11 de Mayo de 2009, 01:49 »
9
« en: Viernes 8 de Mayo de 2009, 05:26 »
muchas gracias , asi me guio mejor
salu2222
10
« 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 Private Sub Cmdcalcular_Click() Dim numero As Long, sumas As Double, i As Long numero = Val(Txtnu.Text) sumas = 0 For i = 1 To numero - 1 If numero Mod i = 0 Then sumas = sumas + i Next If sumas = numero Then Lblres.Caption = Str(numero) + " es un numero perfecto" Else Lblres.Caption = Str(numero) + " no es un numero perfecto" End If End Sub
Q opcion me dan ustedes , o si seria mejor plantearlo de otra forma muchas gracias por su ayudaa 
11
« en: Miércoles 6 de Mayo de 2009, 18:03 »
muchas gracias , por su ayuda me ayudaria mas un ejemplo salu222
12
« en: Lunes 4 de Mayo de 2009, 20:08 »
13
« en: Lunes 4 de Mayo de 2009, 20:07 »
weno tengo un problema 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 ya q yo quiero aprender de antemano muchasss graciasssssssss a todos
14
« en: Jueves 23 de Abril de 2009, 22:31 »
muchas gracias , x tu ayuda no se volvera a repetir para la otra usare code
15
« 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
« en: Viernes 13 de Marzo de 2009, 02:41 »
17
« en: Viernes 24 de Octubre de 2008, 21:27 »
18
« en: Viernes 24 de Octubre de 2008, 21:18 »
gracias man x el dato 
19
« en: Viernes 24 de Octubre de 2008, 21:11 »
gracias mam , x el dato
Páginas: [1]
|
|
|
Mostrar Mensajes
