• Sábado 10 de Mayo de 2025, 14:15

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

Páginas: 1 ... 8 9 [10] 11 12 ... 16
226
VB .NET / Re: Error Al Insertar Fecha (sql 2005)
« en: Viernes 24 de Noviembre de 2006, 14:50 »
gracias por contestar, el regional settins de mi maquina esta Español-Bolivia, y es dd/MM/yyyy.

Y esta es la manera que estoy haciendo en tres capas (espero que sea asi).  <_<

Código: Text
  1.  
  2.  
  3.     Sub New(ByVal Comando As SqlClient.SqlCommand)
  4.         Command = Comando
  5.         id_planes = -1
  6.         Desc = ""
  7.         CPeriodo = -1
  8.         DetGlosa = ""
  9.         Est = -1
  10.         FechaPro = "01/01/1901"
  11.  
  12.         Campos.Add("varchar")
  13.         Campos.Add("DESCRIPCIONplan")
  14.         Campos.Add("int")
  15.         Campos.Add("CPERIODOplan")
  16.         Campos.Add("varchar")
  17.         Campos.Add("GLOSAplan")
  18.         Campos.Add("smallint")
  19.         Campos.Add("ESTADOplan")
  20.         Campos.Add("datetime")
  21.         Campos.Add("FPROCESO")
  22.     End Sub
  23.  
  24.     Sub New(ByVal IDPLANES As Integer, ByVal Comando As SqlClient.SqlCommand)
  25.         Dim Datos As New AccesoDatos.Operaciones(Comando)
  26.         Dim dr As DataRow
  27.  
  28.         Command = Comando
  29.         dr = Datos.TraerUno("PLANES", IDPLANES, Comando)
  30.  
  31.         id_planes = IDPLANES
  32.         Desc = dr(1)
  33.         CPeriodo = dr(2)
  34.         DetGlosa = dr(3)
  35.         Est = dr(4)
  36.         FechaPro = dr(5)
  37.  
  38.         Campos.Add("varchar")
  39.         Campos.Add("DESCRIPCIONplan")
  40.         Campos.Add("int")
  41.         Campos.Add("CPERIODOplan")
  42.         Campos.Add("varchar")
  43.         Campos.Add("GLOSAplan")
  44.         Campos.Add("smallint")
  45.         Campos.Add("ESTADOplan")
  46.         Campos.Add("datetime")
  47.         Campos.Add("FPROCESO")
  48.     End Sub
  49.  
  50. Public Function Nuevo(ByVal Descripcion_PLanes As String, ByVal CodPeriodo As Integer, ByVal DetalleGlosa As String, ByVal Estado_planes As Integer, ByVal FechaProceso_Plan As DateTime) As Integer
  51.         Try
  52.  
  53.             Dim AD As New AccesoDatos.Operaciones(Command)
  54.             Dim Valores As New ArrayList
  55.  
  56.             Valores.Add("varchar")
  57.             Valores.Add(Descripcion_PLanes)
  58.             Valores.Add("int")
  59.             Valores.Add(CodPeriodo)
  60.             Valores.Add("varchar")
  61.             Valores.Add(DetalleGlosa)
  62.             Valores.Add("smallint")
  63.             Valores.Add(Estado_planes)
  64.             Valores.Add("datetime")
  65.             Valores.Add(FechaProceso_Plan)
  66.  
  67.             Return AD.Insertar("PLANES", Campos, Valores)
  68.         Catch ex As Exception
  69.             Throw ex
  70.         End Try
  71.     End Function
  72.  
  73.  

Código: Text
  1.  
  2.     Public Function Insertar(ByVal Tabla As String, ByVal Campos As ArrayList, ByVal Valores As ArrayList) As Integer
  3.  
  4.         Try
  5.             Dim Consulta As String
  6.             Dim Consulta2 As String
  7.             Consulta = " Insert Into " & Tabla & "("
  8.             Consulta2 = ") Values ("
  9.  
  10.             Dim Cont As Integer = 0
  11.             While Cont <= Valores.Count - 1
  12.                 Select Case Valores(Cont)
  13.                     Case "varchar"
  14.                         Consulta = Consulta & Campos(Cont + 1)
  15.                         Consulta2 = Consulta2 & "'" & Valores(Cont + 1) & "'"
  16.                     Case "int"
  17.                         Consulta = Consulta & Campos(Cont + 1)
  18.                         Consulta2 = Consulta2 & Valores(Cont + 1)
  19.                     Case "datetime"
  20.                         Consulta = Consulta & Campos(Cont + 1)
  21.                         Consulta2 = Consulta2 & "'" & Valores(Cont + 1) & "'"
  22.                     Case "smallint"
  23.                         Consulta = Consulta & Campos(Cont + 1)
  24.                         Consulta2 = Consulta2 & Valores(Cont + 1)
  25.                     Case "decimal"
  26.                         Consulta = Consulta & Campos(Cont + 1)
  27.                         Consulta2 = Consulta2 & Valores(Cont + 1)
  28.                 End Select
  29.  
  30.                 Cont = Cont + 2
  31.                 If Cont > Valores.Count - 1 Then
  32.                     Consulta2 = Consulta2 & ")"
  33.                 Else
  34.                     Consulta = Consulta & ","
  35.                     Consulta2 = Consulta2 & ","
  36.                 End If
  37.  
  38.             End While
  39.  
  40.             Command.CommandText = Consulta & Consulta2
  41.             Command.ExecuteNonQuery()
  42.  
  43.             Dim Codigo As Integer
  44.             Command.CommandText = "Select Max(ID_" & Tabla & ") From " & Tabla
  45.             Return Command.ExecuteScalar
  46.  
  47.         Catch ex As Exception
  48.             Throw ex
  49.         End Try
  50.  
  51.     End Function
  52.  
  53.  

es campo en la DB de SqlServer 2005 lo tengo como Datetime, ya que es lo unico que hay para almacenar fecha.

gracias por la ayuda.  :comp:

227
VB .NET / Error Al Insertar Fecha (sql 2005)
« en: Miércoles 22 de Noviembre de 2006, 19:49 »
hola a todos, como estan, estoy teniendo problemas al tratar de inserta una fecha con la hora en una DB de SQL 2005, he puesto SET DATEFORMA dmy y naranjas este es el codigo que tengo:

Código: Text
  1.  
  2. Dim FPro As DateTime
  3. FPro = DateTime.Now
  4. FPro = Format(FPro, "dd/MM/yyyy")
  5. 'FPro = Format(FPro, "dd/MM/yyyy hh:mm:ss")
  6.  
  7. Me.txt_codigo.Text = Pn.Nuevo(Desc, CPeri, DGlos, VCom, FPro)
  8.  
  9.  

y el error que me tira es este:

Citar
Error en la insercion del PlanThe conversion of a char data type to a datetime data type resulted in an out-of-range datetime value

ya que quiero insertar la fecha y la hora, alguien me puede orientar que estoy haciendo mal ????

gracias

228
VB .NET / Re: Comboxbox Con Tres Columnas
« en: Viernes 17 de Noviembre de 2006, 18:02 »
hola que tal, gracias por tu sugerencia, pero el problema que tenia era que algunos campos era INTEGER.  <_<

Asi que se lo he echo de esta forma, y funca.
solo era convertir:  :rolleyes:

Código: Text
  1.  
  2. convert(varchar(20),ANIOSperi)
  3.  
  4.  

Código: Text
  1.  
  2.     Function cargar_combo()
  3.  
  4.         Dim Trx As New AccesoDatos.Transacciones(False)
  5.         Dim DtE As New DataTable
  6.         Dim Ad As New AccesoDatos.Operaciones(Trx.Comand)
  7.  
  8.         DtE = Ad.EjecturarConsulta("SELECT ID_PERIODOS, SEMESTREperi + ' - ' + convert(varchar(20),ANIOSperi) AS Lista FROM PERIODOS")
  9.         Me.cmb_periodo.DataSource = DtE
  10.         Me.cmb_periodo.DisplayMember = "Lista"
  11.         Me.cmb_periodo.ValueMember = "ID_PERIODOS"
  12.  
  13.         Trx.CerrarConexion()
  14.  
  15.     End Function
  16.  
  17.  

gracias  :comp:

229
VB .NET / Re: Manual De Ado.net
« en: Miércoles 15 de Noviembre de 2006, 14:20 »
Hola forero, mira en esta web, he visto un manual para VB 2005

Manual VB 2005

suerte  :comp:

230
VB .NET / Re: Operaciones De Registros En Vb2005
« en: Martes 14 de Noviembre de 2006, 15:52 »
Hola amigo forero, fijate en esta pagina donde hay un ejemplo complete, y con DB access.

Ejemplo con DB access

suerte

231
VB .NET / Comboxbox Con Tres Columnas
« en: Lunes 13 de Noviembre de 2006, 17:24 »
Hola a todos, quisiera que me ayudasen, ya estoy  :alien: , de no poder captar, pero weno, este es mi problema.

tengo un combobox que lo lleno desde una DB:

Código: Text
  1.  
  2.     Function cargar_combo()
  3.  
  4.         Dim Trx As New AccesoDatos.Transacciones(False)
  5.         Dim DtP As New DataTable
  6.         Dim Ad As New AccesoDatos.Operaciones(Trx.Comand)
  7.  
  8.         DtP = Ad.EjecturarConsulta("SELECT * FROM PERIODOS ORDER BY ID_PERIODOS desc")
  9.         Me.cmb_periodo.DataSource = DtP
  10.         Me.cmb_periodo.DisplayMember = "DESCRIPCIONperi"
  11.         Me.cmb_periodo.ValueMember = "ID_PERIODOS"
  12.  
  13.         Trx.CerrarConexion()
  14.  
  15.     End Function
  16.  
  17.  

con ese codigo lo lleno, pero solo un dato o una columna.

Buscando en la web, he encontrado que poniando la consulta select:

Código: Text
  1.  
  2.  
  3. DtP = Ad.EjecturarConsulta("SELECT ID_PERIODOS+'-'+SEMESTREperi+'-'+ANIOper as Lista FROM PERIODOS ORDER BY ID_PERIODOS desc")
  4.         Me.cmb_periodo.DisplayMember = "Lista"
  5.         Me.cmb_periodo.ValueMember = "Lista"
  6.  
  7.  

pero no me funca, agradeceria su orientacion  :comp:


gracias   :D

232
VB .NET / Error En El Evento Leave
« en: Sábado 11 de Noviembre de 2006, 19:41 »
hola a todos, tengo el siguiente codigo que funciona cuando pilla el dato, pero cuando no pilla ningun datos me arroja el siguiente error: (el archivo jpg)  <_<

este es el codigo que tengo:

Código: Text
  1.  
  2. Private Sub txt_codigo_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_codigo.Leave
  3.         Try
  4.             If IsNumeric(Me.txt_codigo.Text) Then
  5.                 Dim Trx As New AccesoDatos.Transacciones(False)
  6.                 Dim Pn As New ReglasN_CarrMate.RN_CarrMate(Me.txt_codigo.Text, Trx.Comand)
  7.  
  8.                 Me.txt_codcarre.Text = Pn.CCarrera
  9.                 Me.txt_codmate.Text = Pn.CMateria
  10.                 Me.cmb_plan.SelectedValue = Pn.CPlan
  11.                 Me.txt_nsa.Text = Pn.NivelNsa
  12.                 Me.cmb_estado.SelectedValue = Pn.Estado
  13.  
  14.                 Dim CCa As New ReglasN_Carrera.RN_Carrera(Me.txt_codcarre.Text, Trx.Comand)
  15.                 Dim CMa As New ReglasN_Materia.RN_materia(Me.txt_codmate.Text, Trx.Comand)
  16.                 Me.txt_ccar.Text = CCa.CodCarre
  17.                 Me.txt_desc_carre.Text = CCa.Descripcion
  18.                 Me.txt_sigla.Text = CMa.Siglas
  19.                 Me.txt_desc_mate.Text = CMa.Descripcion
  20.  
  21.                 Me.btn_adicionar.Enabled = False
  22.                 Me.btn_eliminar.Enabled = True
  23.                 Me.btn_modificar.Enabled = True
  24.  
  25.             End If
  26.         Catch ex As Exception
  27.             MsgBox("Error en la carga", ex.Message, MsgBoxStyle.Critical)
  28.         End Try
  29.     End Sub
  30.  
  31.  

gracias  :comp:

233
VB .NET / Re: Derivada De Una Funcion
« en: Miércoles 1 de Noviembre de 2006, 01:25 »
hola que tal, estoy por aca, estoy leyendo y buscando informaciòn sobre lo que hablas, ya que soy un poco novato en esto de programacion.

asi que gracias, leer lo que hablan para mi es muy instructivo.

gracias de nuevo, y sigo  :comp:

234
VB .NET / Re: Llamar A Un Exe
« en: Sábado 28 de Octubre de 2006, 02:41 »
Hola amigo forero, mira si te sirve, yo lo manejo de esta menera, estoy trabajando con VBnet 2003.

Código: Text
  1.  
  2.  
  3.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  4.         Shell("c:\sagmasoft\ac352.exe", AppWinStyle.NormalFocus)
  5.     End Sub
  6.  
  7.  
  8.  

suerte  :comp:

235
VB .NET / Re: Derivada De Una Funcion
« en: Martes 24 de Octubre de 2006, 23:45 »
gracias amigo, pero lo tengo que hacer en Vbnet  :alien:

espero que no me aburra, yo  :whistling:

 :comp:

236
VB .NET / Derivada De Una Funcion
« en: Martes 24 de Octubre de 2006, 19:06 »
Hola amigos, quisieran saber ue se debe hacer o como hacer para que una funcion:

 f(x) = 2x^2+3x+4

sacar si derivada, algun ejemplo o alguna pagina  :whistling:

gracias  :comp:

237
VB .NET / Re: Abligar A Que Ponga "-" En Un Textbox
« en: Lunes 23 de Octubre de 2006, 18:08 »
gracias amigo, lo pruebo y les aviso  :comp:

238
VB .NET / Abligar A Que Ponga "-" En Un Textbox
« en: Domingo 22 de Octubre de 2006, 04:08 »
hola amigos, tendro dos consultas:

1. como puedo hacer para obligar, en un textbox, que el cuarto caracter, sea si o si, "-" un guion, por ejemplo "AAA-111 a".

2. como le hago o en que evento pongo para que cuando digite la tecla enter o el tab, para ir al otro textbox, este controle que si el campo es nulo, me salga un mensaje.

por que yo lo pongo en el boton, de guardar, y es esperar mucho, sino que cuando pase ese textbox, salte el mensaje.

gracias  :comp:

239
VB .NET / Re: Cambiar De Color A Un Texbox
« en: Viernes 13 de Octubre de 2006, 15:01 »
Gracias senzao18, por la informacion, esta ok.

 :comp:

240
VB .NET / Re: Cambiar De Color A Un Texbox
« en: Sábado 7 de Octubre de 2006, 15:21 »
Gracias por su colaboracion amigos, funciona solo con los textbox que estan fuera de los groupbox, y como se lo haria para que los textbox que esten dentro de los groupbox tambien surta efecto.

gracias  :whistling:

241
VB .NET / Re: Cambiar De Color A Un Texbox
« en: Viernes 6 de Octubre de 2006, 16:13 »
gracias cajami por contestar, miren encontre este ejemplo en la web, pero me da errores.

agluien me podrian indicar el motivo del error:

Código: Text
  1.  
  2.     Private Sub TieneFoco(ByVal sender As Object, ByVal e As System.EventArgs)
  3.         Dim miTextBox As TextBox DirectCast(sender, TextBox)()
  4.         miTextBox.BackColor(Color.Yellow)
  5.     End Sub
  6.  
  7.     Private Sub PierdeFoco(ByVal sender As Object, ByVal e As System.EventArgs)
  8.     Dim miTextBox As TextBox DirectCast(sender, TextBox)
  9.         miTextBox.BackColor(Color.White)
  10.     End Sub
  11.  
  12. 'Esto dentro del Load
  13.         Dim ctrl As Control
  14.         For Each ctrl In Me.Controls
  15.             If (TypeOf (ctrl) Is TextBox) Then
  16.                 Dim miTextBox As TextBox  DirectCast(ctrl, TextBox)
  17.                 AddHandler miTextBox.Enter, AddressOf TieneFoco
  18.                 AddHandler miTextBox.Leave, AddressOf PierdeFoco
  19.             End If
  20.         Next
  21.  
  22.  

el error que me das es el:

DirectCast(sender, TextBox) ya que sale el mensaje "se esperaba el fin de la instruccion"

y en

miTextBox.BackColor(Color.White) "Debe asignarse un acceso de propiedad a la propiedad o utilizar el valor"

gracias  :whistling:

242
VB .NET / Re: Ayuda Con Clases Personalizadas
« en: Lunes 2 de Octubre de 2006, 16:12 »
Hola guarus, yo tambien estoy haciendo de la misma forma, no soy un profesional en el Area de VBnet, estoy aprendiendo, poco a poco, gracias a este foro.
Fijate:

Código: Text
  1.  
  2. Public class RNpais
  3.  
  4. private id_pais as integer
  5. private des as string
  6.  
  7. private campos as new arraylist
  8. private command  as sqlclient.sqlcommand
  9.  
  10. -- Aqui estaran las propiedades
  11. -- acceso datos es mi clase donde tengo la conexion a la DB
  12.  
  13.     Public Property Codigo() As Integer
  14.         Get
  15.             Return Id_Pais
  16.         End Get
  17.         Set(ByVal Value As Integer)
  18.             Dim Datos As New AccesoDatos.Operaciones(Command)
  19.             Dim dr As DataRow
  20.             dr = Datos.TraerUno("PAIS", Value, Command)
  21.             Id_Pais = dr(0)
  22.             Desc = dr(1)
  23.         End Set
  24.     End Property
  25.  
  26.     Public Property Descripcion() As String
  27.         Get
  28.             Return Desc
  29.         End Get
  30.         Set(ByVal Value As String)
  31.             Try
  32.  
  33.                 If Id_Pais <> Nothing Then
  34.                     Dim Datos As New AccesoDatos.Operaciones(Command)
  35.                     Dim Valores As New ArrayList
  36.                     Valores.Add("varchar")
  37.                     Valores.Add(Value)
  38.  
  39.                     Datos.modificar("PAIS", Campos, Valores, "ID_PAIS=" & Id_Pais, Command)
  40.                     Desc = Value
  41.                 Else
  42.                     Desc = Value
  43.                 End If
  44.             Catch ex As Exception
  45.                 Throw ex
  46.             End Try
  47.  
  48.         End Set
  49.  
  50.     End Property
  51.  
  52. -- constructores
  53.  
  54.     Sub New(ByVal Comando As SqlClient.SqlCommand)
  55.         Command = Comando
  56.         Id_Pais = -1
  57.         Desc = ""
  58.  
  59.         Campos.Add("varchar")
  60.         Campos.Add("DESCRIPCIONpais")
  61.  
  62.     End Sub
  63.  
  64.     Sub New(ByVal IDPAIS As Integer, ByVal Comando As SqlClient.SqlCommand)
  65.         Dim Datos As New AccesoDatos.Operaciones(Comando)
  66.         Dim dr As DataRow
  67.         Command = Comando
  68.         dr = Datos.TraerUno("PAIS", IDPAIS, Comando)
  69.         Id_Pais = IDPAIS
  70.         Desc = dr(1)
  71.  
  72.         Campos.Add("varchar")
  73.         Campos.Add("DESCRIPCIONpais")
  74.     End Sub
  75.  
  76. -- Operaciones Basicas
  77.  
  78.     Public Function Eliminar()
  79.         Try
  80.             Dim AD As New AccesoDatos.Operaciones(Command)
  81.             AD.eliminar("PAIS", Id_Pais, Command)
  82.         Catch ex As Exception
  83.             Throw ex
  84.         End Try
  85.     End Function
  86.  
  87.     Public Function Nuevo(ByVal Descripcion_Pais As String) As Integer
  88.         Try
  89.  
  90.             Dim AD As New AccesoDatos.Operaciones(Command)
  91.             Dim Valores As New ArrayList
  92.  
  93.             Valores.Add("varchar")
  94.             Valores.Add(Descripcion_Pais)
  95.  
  96.             Return AD.Insertar("PAIS", Campos, Valores)
  97.         Catch ex As Exception
  98.             Throw ex
  99.         End Try
  100.     End Function
  101.  
  102.     Public Function TraerTodos() As DataTable
  103.         Dim ad As New AccesoDatos.Operaciones(Command)
  104.         Return ad.TraerTodos("PAIS", "")
  105.     End Function
  106.  
  107.  
  108.  

espero que sea de tu ayuda

suerte  :comp:

243
VB .NET / Re: Vb .net + Acces
« en: Martes 26 de Septiembre de 2006, 18:11 »
Listo amigo jotaBKM, pasado



suerte  :comp:

244
VB .NET / Re: Vb .net + Acces
« en: Miércoles 20 de Septiembre de 2006, 16:24 »
Amigo forero eljotahot@gmail.com, por mas que intento inviarte a ese email, me lo devuelve.

Lo siento.

245
VB .NET / Re: Vb .net + Acces
« en: Lunes 18 de Septiembre de 2006, 18:23 »
Hola amigo, forero, si me pasas a que email te puedo pasar un ejemplo que baje de la web, seria Weno para ti.  :devil:

 :comp:

246
VB .NET / Re: Nueva Manera De Trab Con Formularios Multiples
« en: Sábado 2 de Septiembre de 2006, 16:17 »
:comp: hola que tal, si amigo forero, como dice senzao18, ya que lo he tratado de bajar y me dice que ya huvo tres descargar, y que espere,  ;)

gracias por tus aportes  :comp:

247
VB .NET / Re: Conexion A Sql 2005
« en: Jueves 24 de Agosto de 2006, 17:45 »
:lol: , van ha disculpar, pero en el mismo, Conexiones, ya habia estau


tanks  :devil:

248
VB .NET / Conexion A Sql 2005
« en: Jueves 24 de Agosto de 2006, 17:34 »
Hola a todos, me podrian orientar como puedo hacer para conectarse a SQLServer 2005, ya que la conexion al Sql 2000, no me funca, o no me conecta.  <_<

gracias   B)

249
VB .NET / Re: Imprimir Una Factura
« en: Miércoles 23 de Agosto de 2006, 14:32 »
Hola amigo forero, mira en este link, hay un modelo de tutorial para crear un report en CR.

Informe en Crystal Reporte

espero que sea un buen principio.  :P

suerte  :comp:

250
VB .NET / Cambiar De Color A Un Texbox
« en: Viernes 11 de Agosto de 2006, 18:08 »
Hola a todos, quisiera saber si hay alguna forma de que el cambio de color del textbox, que cuando el cursor este en este cambie de color.

he encontrado :

Código: Text
  1.  
  2.  
  3.     Private Sub txt_descripcion_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_descripcion.GotFocus
  4.         Me.txt_descripcion.BackColor = Color.Yellow
  5.     End Sub
  6.  
  7.     Private Sub txt_descripcion_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_descripcion.LostFocus
  8.         Me.txt_descripcion.BackColor = Color.White
  9.     End Sub
  10.  
  11.  
  12.  

pero como le hago para 12 textbox, tendre que hacer uno por uno, o hay alguna manera de hacer todo en uno solo  :blink:

gracias

Páginas: 1 ... 8 9 [10] 11 12 ... 16