• Jueves 2 de Mayo de 2024, 16:12

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

Páginas: [1]
1
VB .NET / Re: Alquien Ha Trabajado Con Gdtwain ?
« en: Martes 25 de Marzo de 2008, 07:37 »
ya consegui la solucion. :comp:

La posteo aqui en caso de que alguien llegara a presentar el mismo problema que yo tuve  :D

Código: Text
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim nImageID As Integer
  3.         Dim ms As Array
  4.  
  5.         If twain1.TwainOpenDefaultSource() Then
  6.  
  7.             If twain1.TwainGetState() = "4" Then
  8.                 InitScanConfig()
  9.  
  10.                 twain1.TwainSetImageLayout(0.1, 0.3, 2, 5.3)
  11.                 twain1.TwainSetCurrentResolution(150)
  12.                 twain1.TwainSetCurrentPixelType(Gdtwain.TwainPixelType.TWPT_RGB) 'RGB
  13.                 twain1.TwainSetCurrentBitDepth(4) ' 24 bpp
  14.  
  15.  
  16.                 nImageID = twain1.TwainAcquireToImageID(Me.Handle.ToInt32)
  17.                 If nImageID <> 0 Then
  18.                     Call DisplayNativeImage()
  19.                     Call twain1.SaveAsByteArray(ms, 100000, "jpg")
  20.                     Call twain1.CloseImage(nImageID)
  21.  
  22.                 End If
  23.  
  24.                 Call twain1.TwainCloseSourceManager(Me.Handle.ToInt32)
  25.                 'MsgBox("Done !")
  26.             Else
  27.                 MsgBox("can't open default source, twain state is: " & Trim(Str(twain1.TwainGetState)))
  28.             End If
  29.         End If
  30.         Button3.Enabled = True
  31.     End Sub
  32.  

2
VB .NET / Alquien Ha Trabajado Con Gdtwain ?
« en: Jueves 13 de Marzo de 2008, 18:00 »
Buenos dias,

Estoy trabajando en un proyecto que se basa en escanear imagenes para posteriormente insertarlas en la base de datos SQL

Investigando por Internet, consegui un activex llamado: "Gdtwain" que permite la interaccion entre Vb.net y el scanner.

Entre algunas de las opciones que ofrece este activex, es la de guardar la imagen escaneada en un BitArray.

Cuando Inserto el Array no me arroja ningun error, pero cuando quiero recuperar la imagen, me genera un error.

Aqui pongo el codigo.

Código: Text
  1. Private Sub cargar_imagen()
  2. Dim sql As String = "SELECT imagen FROM refracciones WHERE id_refraccion='" & TextBox1.Text & "'"
  3.  
  4.         Dim cmd As OleDbCommand = New OleDbCommand(sql, MyConnection)
  5.         Dim b() As Byte
  6.         b = cmd.ExecuteScalar()
  7.  
  8.         If (b.Length > 0) Then
  9.             Dim stream As New MemoryStream(b, True)
  10.             stream.Write(b, 0, b.Length)
  11.             'Display image
  12.             DrawToScale(New Bitmap(stream))----------------->error: "Parameter is not valid."
  13.             stream.Close()
  14.         End If
  15.     End Sub
  16.     Private Sub DrawToScale(ByVal img As Image)
  17.         PictureBox1.Image = New Bitmap(img)
  18.     End Sub
  19.  

alguien podria indicarme a que se debe este error, es primera vez que trabajo insertando imagenes en la base de datos.

Muchas Gracias de antemano.

3
VB .NET / Re: Llenado De Un Combobox Con Un Data Table
« en: Sábado 16 de Febrero de 2008, 22:19 »
me da un error:   :(

Citar
La conversión del tipo 'DataRowView' en el tipo 'String' no es válida

Incluso puse de esta manera y no logro resolver:

Código: Text
  1.  
  2. Me.doctor_paciente.Text = CStr(medico_paciente.SelectedValue)
  3.  
  4.  

4
VB .NET / Llenado De Un Combobox Con Un Data Table
« en: Sábado 16 de Febrero de 2008, 20:47 »
Buenas tardes, tengo la siguiente duda.

Estoy tratando de llenar un combobox con los datos que tengo en una tabla en la BD a travez de un data table.

El asunto es que cuando muestro el .DisplayMember lo presenta perfecto pero cuando hago un SelectedIndexChanged al combox para que me muestre el Valuemember, lo que muestra es el nombre del campo de la bd que quiero que referencie mas no el valor.

Aqui esta el codigo que me llena el DataTable:

Código: Text
  1.  
  2. Function GetSql(ByVal str As String) As DataTable
  3.        
  4.         Dim cmd As New OleDb.OleDbCommand(str, MyConnection)
  5.         Dim ada As New OleDb.OleDbDataAdapter(cmd)
  6.         Dim dt As New DataTable
  7.  
  8.         ada.Fill(dt)
  9.         Return dt
  10.  
  11.     End Function
  12.  
  13.  


Aqui esta el codigo que llena el ComboBox:
Código: Text
  1.  
  2. Private Sub llenar_doctores()
  3.         medico_paciente.DataSource = GetSql("SELECT nombre +' '+ apellido as nombrecompleto, id_personal FROM personal_medico")
  4.         medico_paciente.DisplayMember = "nombrecompleto"
  5.         medico_paciente.ValueMember = "id_personal"
  6.  
  7.     End Sub
  8.  
  9.  

Código: Text
  1.  
  2. Private Sub medico_paciente_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles medico_paciente.SelectedIndexChanged
  3.         Me.doctor_paciente.Text = medico_paciente.ValueMember
  4.     End Sub
  5.  
  6.  

Muchas gracias de antemano a quien me pueda ayudar a solucionar este problema.

5
SQL Server / Realizar Una Consulta Para Control De Citas
« en: Miércoles 30 de Enero de 2008, 22:22 »
Buenas Tardes, me encuentro desarrollando un sistema de Control de Citas para una clinica Oftalmologica.

Mi Pregunta es la Siguiente, como puedo realizar una consulta que me muestre las horas dispobibles para que el Dr. atienda al paciente basandome en la hora de entrada y hora de salida del Dr. con un intervalo de 1 hora por cita ?

Con este insert, yo solo ingresaria os datos de la cita mientras se encuentre dentro de las horas que el Dr. atiende.


Código: Text
  1.  
  2. INSERT INTO CITA . . .
  3. WHERE HORA_CITA IN (SELECT HORA_INICIO FROM HORARIOS WHERE ID_DR = ?, SELECT HORA_FIN FROM HORARIOS WHERE ID_DR = ?)
  4.  
  5.  

6
VB .NET / Re: Desarrollo De Una Aplicacion De Control De Citas
« en: Miércoles 30 de Enero de 2008, 00:24 »
Cita de: "Abhero"
:brickwall:  Una Idea?

Bueno a simple vista lo que quieres hacer es una agenda. No debe haber mucha complicacion en el asunto. Puedes diseñar tu BD con todos los elementos necesarios y puedes hacer Querys que comparen las fechas y horas de las citas (desde tu programa en VB) para asi obtener la disponibilidad de horarios y/o identificar los ocupados. Los querys deberan comprobar si el horario esta disponible antes de guardar para asi no guardar dos citas en el mismo horario. Buscate un poco de info sobre como comparar fechas y horas con SQL.

Espero haber ayudado.
Ab.  :hola:
Claro, entiendo lo que quiere decir, el asunto es un poco mas de diseno de la BD( que es donde maryormente tengo el problema), ya que tengo la mayor parte de la interfaz grafica hecha en base a un modelo Entidad-Relacion que habia hecho previamente pero despues me di cuenta que no me iba a funcionar :angry:

he Buscado en Internet diferentes sistemas de control de citas medicas pero no consigo ninguno que por el cual me pueda guiar.

7
VB .NET / Desarrollo De Una Aplicacion De Control De Citas
« en: Martes 29 de Enero de 2008, 05:49 »
hola buenas noches, como estan ?

Queria ver si alguien me podia dar alguna idea de como puedo afrontar este nuevo reto.

 Estoy desarrollando un sistema de control de citas para una clinica, donde tengo que asignar las cosultas a los pacientes de acuerdo a la disponibilidad del Dr.(Ej: Lunes entra a las 8 am y sale a las 4 pm, el martes entra a las 9 am y sale a las 2 pm, etc.) e igualmente el doctor debe tener la posibilidad de reservar dias libres (vacaciones, congresos, etc.) y que estos luego se muestren en el formulario de asignacion de citas. Cabe resaltar, que el Dr. atiende a un paciente cada 30 min.

 El asunto es el siguiente:

 Al tener la hora de entrada y la hora de salida del Dr., existe alguna manera de hacer una separacion, de manera que pueda asignar una hora especifica a una paciente cuando se le asigne la cita y que el sistema muestre que esa hora ya fue tomada ??? ( ej: el paciente X, tiene cita a las 8:30 am, y el paciente Y tiene cita a las 9:00 am)

Ojala Alguien me pudiera ayudar con eso, cualquier idea super bienvenida ya que le he dado mil vueltas a la cabeza y no consigo la manera de hacerlo.

8
VB .NET / Re: Problemas Con El Insert_identity
« en: Viernes 25 de Enero de 2008, 08:21 »
gracias por sus respuestas, efectivamente era una tonteria que gracias a la ayuda de Moyense logre resolver :D . El asunto era que tenia una tabla con un valor autonumerico y no conseguia la forma de ingresar los datos en la misma.

9
VB .NET / Problemas Con El Insert_identity
« en: Lunes 21 de Enero de 2008, 08:29 »
Buenas Noches, como estan todos.

Primero que nada, quisiera felicitarles por su foro, durante los ultimos 3 meses me ha sido de enorme ayuda.

Les presento mi problema. Estoy desarrollando una aplicacion en VB.NET 2005 y quiero insertar unos registros en la BD (SQL SERVER 2005). Hasta ahi todo va bien , el detalle es cuando necesito insertar los datos en una tabla a la cual le asigne un valor "identity" para que se vaya incrementando a medida que voy insertando los datos en la tabla. He intentado varias maneras de hacerlo pero no he logrado tener ningun tipo de exito con eso. Incluso intente poner el comando Insert_Identity Tabla1 on en la misma sentencia del insert pero no sirvio de nada.

He leido que con un stored procedure se puede realizar, pero de verdad que no soy nada bueno con eso ya que apenas estoy empezando a programar y entiendo mejor las consultas tal cual como son  :)

Si alguien me pudiera ayucdar con mi inquietud de verdad que estaria enormemente agradecido ya que llevo casi 1 semana peleando con este mismo problema.

Páginas: [1]