Buenos días amigos del Foro:
Soy nuevo en el foro y vengo de Visual Basic 6.0... Estoy haciendo mi primera Aplicación para Window en Visual Basic 2012... Todas las cosas me han salido bien, pero necesito ayuda en algo particular:
Tengo registros recuperados de un DataSet en un DataGridView... estos registros superan la vista del DataGrid ya que son muchos (1,000) aproximadamente.- En un TextBox Digito un Dato, lo cual el programa hará búsqueda en la clave principal, si lo encuentra, Seleccionará esta fila.... está bien... todo bien hasta aquí.- En la primer búsqueda me puedo ir a un registro que se encuentra, digamos en la posición 865... todo tranquilo... Llega al registro, lo selecciona y lo veo en la Grid.-
Pero resulta que al repetir el proceso de búsqueda en el momento, si el registro encontrado no esta a la vista del DataGrid, o sea, en los registros que se visualizan en la Grid, no miro el registro seleccionado aunque lo selecciona.- Este proceso lo hace hacia arriba y hacia abajo, pero solamente puedo ver el registro encontrado y seleccionado, si y solo si, el registro encontrado se mira en la Grid después de la primera búsqueda.-
La idea es que al hacer la búsqueda del registro en la posición, por decir así 865, llegue a él, lo seleccione y visualizamos la fila de Datos.... para la siguiente búsqueda, por decir así el 126, llegue a él y haga los mismo; así para cualquier registro.... En mi aplicación es muy importante este Evento... les suplico ayuda, sugerencias, pista, algo así...
Gracias de antemano... saludes
Les dejo el código que tengo actualmente:
Primero llevo el cursor al Inicio del DataGrid
UsuarioDataGridView.CurrentCell = UsuarioDataGridView.Rows(0).Cells(0)
Luego llevo a la posición inicial al ScrollBar
Me.UsuarioDataGridView.FirstDisplayedScrollingRowI ndex = 0
MsgBox("Ok")
Todo bien...
Recorro el DataGrid y llego a la columna índice que coincide con el dato en el Text1.text
Dim indiceColumna As Integer = 0
For Each row As DataGridViewRow In UsuarioDataGridView.Rows
UsuarioDataGridView.ClearSelection()
If CStr(row.Cells(indiceColumna).Value).ToLower = Text1.Text.ToLower Then
Selecciono la Fila si fue encontrado
row.Selected = True
Esta orden fuerza Scroolbar llegar si es posible hasta el último Registro
UsuarioDataGridView.FirstDisplayedScrollingRowInde x = UsuarioDataGridView.Rows.Count - 1
Exit For
End If
Next
Esto lo hace bien la primera vez de búsqueda... para la siguiente búsqueda, aunque encuentre el Registro y lo seleccione, no lo puedo ver, a menos que el registro encontrado esté a la vista en el DataGridView...
De nuevo Gracias...
↧
October 9, 2016, 12:59 pm
hola, alguine tendra un turotial sobre el uso de 2 tablas para hacer registros referenciados mi DB es mas o menos asi
tabla clientes tabla reparaciones
id_cliente Int(8) folio_rep int(8)
nom_CLi Varchar(26) id_Cliente (quiero usar el de la tabla de clientes)
lastName_Cli varchar(30) descrip_rep varchar (255)
lastName_Cli2 Varchar (30)
tel_Cli varchar (30)
estableci la conexion con la base de tados mediante un modulo
asi:
usando mysql adapter e hice la conexion a los campor mediante un clase
estoy insertando lo datos asi, pero esto me sirve para registrar en una sola tabla, luego a la hora de implementarlo es como diferencia id en cliente y luego en reparaciones y al registrar en reparaciones como halo el id del cliente para llenar el campo? alquien tiene un tutorial eh buscado en la web pero no eh encontrado nada reference a tablas ocn referencia de otra
Public Function insertarDatos(ByVal datos As Class_datos) As Boolean
Dim estado As Boolean = True
Try
conexion_Global()
_adaptador.InsertCommand = New MySqlCommand("insert into tablauno (col_dos, col_tres) values (@col_dos, @col_tres)", _conexion)
_adaptador.InsertCommand.Parameters.Add("@col_dos" , MySqlDbType.VarChar, 20).Value = datos.col_dos
_adaptador.InsertCommand.Parameters.Add("@col_tres ", MySqlDbType.VarChar, 40).Value = datos.col_tres
_conexion.Open()
_adaptador.InsertCommand.Connection = _conexion
_adaptador.InsertCommand.ExecuteNonQuery()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
estado = False
Finally
cerrar()
End Try
Return estado
End Function
↧
↧
October 11, 2016, 8:18 am
Por favor me podrian decir si existe la posibilidad de leer un grafico generado con el MSVisio y que lo pueda mostrar de alguna manera en un Form con VB
Muchas gracias
↧
October 12, 2016, 10:05 am
Hola, por que puede ser este error?
"El codigo del usuario no controlo ObjectDisposedeExepcion"
Me sale cuanto trato de guardar tengo un picture box y me sale el error ahi.
El picture lo uso para generar un codigo de barras
Este es el boton que lo genera:
Dim bcode As New Barcode128
bcode.BarHeight = 50
bcode.Code = txtId.Text
bcode.GenerateChecksum = True
bcode.CodeType = Barcode.CODE128
Try
Dim bm As New Bitmap(bcode.CreateDrawingImage(Color.Black, Color.White))
Dim img As Image
img = New Bitmap(bm.Width, bm.Height)
Dim g As Graphics = Graphics.FromImage(img)
g.FillRectangle(New SolidBrush(Color.White), 0, 0, bm.Width, bm.Height)
g.DrawImage(bm, 0, 0)
PictureBox1.image = img
Catch ex As Exception
MsgBox("No se pudo generar el codigo de baras")
End Try
En la parte marcada en negrita me sale error cuando lo ejecuto.
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim bm As New Bitmap(PictureBox1.Width, PictureBox1.Height)
PictureBox1.DrawToBitmap(bm, New Rectangle(0, 0, bm.Width, bm.Height))
e.Graphics.DrawImage(bm, 0, 0)
End Sub
Espero me sepan responder, desde ya gracias.
↧
October 13, 2016, 7:08 pm
hola a todos lo q intento hacer, que el usuario tenga que escribir todos los demas registros, pero no el CODIGO, pero que siempre en la Base de Datos se guarde..
como seria el codigo, para que el primer Repuestos de Automóvil que entre el Codigo se "CODIGO-100" y luego se guarde y cuando ingrese otro sea este "CODIGO-101" y asi a trabajo una base de datos de Firebird
sucesivamente aprendiendo a programar vb.NET, tengo conocimientos en VB 6.0
Aquí dejo código conexiones
Código:
mports System.Data.Odbc
Public Base As New OdbcConnection("DSN=REPUESTOS; Uid=SYSDBA; Pwd=masterkey")
Public Sub conectar()
Try
Base.Open()
Catch ex As Exception
MsgBox("No se establecio la conexión con la Base de Datos", MsgBoxStyle.Question, "Repuestos")
End
End Try
End Sub
Aquí dejo código de contador en .NET
Código:
Private Sub BuNuevo_Click(sender As Object, e As EventArgs) Handles BuNuevo.Click
Dim dT As New DataTable
Dim s As String = ""
Dim Sql As String = "Select count(CODIGO) from REPUESTOS"
Dim Da As New OdbcDataAdapter(Sql, Base)
Da.Fill(Dt)
If dT.Rows.Count < 0 Then
Me.TeCodi.Text = "1"
Else
Me.TeCodi.Text = dT.Rows.Count + 1
End If
End Sub
si quieres te doy un ejemplo con un programa pequeño, de lo que yo necesito en .NET
Gracias por tú ayuda
↧
↧
October 15, 2016, 11:07 pm
Hola a todos, estoy trabajando en un control de usuario "dll" en visual basic net para imprimir imagenes segun el tipo de papel seleccionado y el problema que tengo es que no se como se hacen las propiedades "Property" en forma de lista desplegable, actualmente el usuario agrega los tamaños de papel por medio de un combobox pero me gustaria que esa accion este disponible en modo de programacion para prestablecer algun tamaño.
↧
October 17, 2016, 5:44 am
Buen día, tengo un problema que me molesta mucho, se trata del pestañeo al cargar información en un listview.
Es como un palpito de un segundo que se nota mucho mas al ser dos listview en un formulario.
En mi código cada vez que se realiza una búsqueda limpio el listview :
Listview1.items.clear()
y luego vuelvo a agregar los items.
Alguna sugerencia. Ya he utilizado refresh(). .ResumeLayout() .SuspendLayout() y nada ha solventado este problema.
Desde ya gracias.
Saludos
↧
October 17, 2016, 8:08 pm
Buen día.
tengo un problema, lo que sucede es que tengo un programa de tarea donde tengo un listbox con el codigo de piezas de computadora y un picturebox con la imagen de cada código, mi duda es como hago que parezca la imagen si en el ejemplo en clase el profeso nos dijo que usáramos esto:
PictureBox1.Image = Image.FromFile(" I + CStr(ListBox1.SelectedIndex) + ".jpg")
intente cambiar la I por la dirección donde estaban mis imágenes en la pc pero no funciono, me dice que la dirección es incorrecta y de verdad que yo la escribí bien, espero puedan asesorarme en este tema, de antemano gracias.
Pd: cuando apanas voy a cambiar el valor de I me sale un dialogo que dice " cree un objeto system.drawing.image apartir del archivo especificado" y la verdad no se a que se refiere.
↧
October 19, 2016, 7:44 am
hole estoy tratango de pasar un valor del formulario dos al formulario uno al hacer crlick en un boton de esta manera
Código:
Private Sub BtnSelec_Click(sender As Object, e As EventArgs) Handles BtnSelec.Click
FormRes.TxbIdCli.Text = DtgBus_Cli.Rows(DtgBus_Cli.CurrentRow.Index).Cells(0).Value
End Sub
pero no me esta funcionando el campo es de tipo integer
tambien trate creando un objeto del formulario
dim idpas as new form1
usando
Código:
form1.TxbIdcli = DtgBus_Cli.Rows(DtgBus_Cli.CurrentRow.Index).Cells(0).Value
el form1 se abre primnero luego invoco el form2 que es en el que hago la consulta con el datagridview y quiero devolver el valor del id a un textbox en el form1 desde el form2
de antemano gracias por la ayuda
↧
↧
October 19, 2016, 1:27 pm
Hola amigos del foro, mi consulta es la siguiente, hice lo siguiente tengo un programa hecho en Visual Studio 2008 y lo traspase a Visual Studio 201, ambos en Web devbeloper, me graba Ok, pero al momento de llamar los datos a través de un combobox, me manda este mensaje de error, que se adjunta.
Por otro lado ocupo el mismo código y no creo que haya cambiado de una versión a otra tanto, de todas maneras les dejo el código para que me puedan dar un ayuda.
Este es el código que utilizo para llenar los datos y los combo box
Sub llenar_combo()
Dim sql As New Data.SqlClient.SqlCommand("Select * From Liquidacion Where N_Liquidacion = '" + CMBCASO.Text + "' and activo = 1", conn)
Dim resultado As Data.SqlClient.SqlDataReader = sql.ExecuteReader()
If resultado.HasRows Then
CMBCASO.Items.Add("---")
Do While resultado.Read()
CMBCASO.Items.Add(resultado.Item("N_Liquidacion"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where Nombre_Asegurado = '" + CMBNOMBRE.Text + "' and activo=1", conn)
resultado = sql.ExecuteReader()
If resultado.HasRows Then
CMBNOMBRE.Items.Add("---")
Do While resultado.Read()
CMBNOMBRE.Items.Add(resultado.Item("Nombre_Asegura do"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where N_Siniestro = '" + CMBSINIESTRO.Text + "' and activo=1", conn)
resultado = sql.ExecuteReader()
If resultado.HasRows Then
CMBSINIESTRO.Items.Add("---")
Do While resultado.Read()
CMBSINIESTRO.Items.Add(resultado.Item("N_Siniestro "))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
sql = New Data.SqlClient.SqlCommand("Select * From Compañias Where Nombre_Compañia = '" + CMBCOMPAÑIA.Text + "' and activo=1", conn)
resultado = sql.ExecuteReader()
If resultado.HasRows Then
CMBCOMPAÑIA.Items.Add("---")
Do While resultado.Read()
CMBCOMPAÑIA.Items.Add(resultado.Item("Nombre_Compa ñia"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where N_Liquidacion = '" + CMBCASOS1.Text + "' and activo=1", conn)
resultado = sql.ExecuteReader()
If resultado.HasRows Then
CMBCASOS1.Items.Add("---")
Do While resultado.Read()
CMBCASOS1.Items.Add(resultado.Item("N_Liquidacion" ))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
End Sub
Sub llenar_datos()
Dim Sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where activo = 1 order by N_Liquidacion asc", conn)
Dim resultado As Data.SqlClient.SqlDataReader = Sql.ExecuteReader()
CMBCASO.Items.Clear()
If resultado.HasRows Then
CMBCASO.Items.Add("---")
Do While resultado.Read()
CMBCASO.Items.Add(resultado.Item("N_Liquidacion"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
Sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where activo = 1 order by Nombre_Asegurado asc", conn)
resultado = Sql.ExecuteReader()
CMBNOMBRE.Items.Clear()
If resultado.HasRows Then
CMBNOMBRE.Items.Add("---")
Do While resultado.Read()
CMBNOMBRE.Items.Add(resultado.Item("Nombre_Asegura do"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
Sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where activo = 1 order by N_Siniestro asc", conn)
resultado = Sql.ExecuteReader()
CMBSINIESTRO.Items.Clear()
If resultado.HasRows Then
CMBSINIESTRO.Items.Add("---")
Do While resultado.Read()
CMBSINIESTRO.Items.Add(resultado.Item("N_Siniestro "))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
Sql = New Data.SqlClient.SqlCommand("Select * From Compañias Where activo = 1 order by Nombre_Compañia asc", conn)
resultado = Sql.ExecuteReader()
CMBCOMPAÑIA.Items.Clear()
If resultado.HasRows Then
CMBCOMPAÑIA.Items.Add("---")
Do While resultado.Read()
CMBCOMPAÑIA.Items.Add(resultado.Item("Nombre_Compa ñia"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
Sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where activo = 1 order by N_Liquidacion asc", conn)
resultado = Sql.ExecuteReader()
CMBCASOS1.Items.Clear()
If resultado.HasRows Then
CMBCASOS1.Items.Add("---")
Do While resultado.Read()
CMBCASOS1.Items.Add(resultado.Item("N_Liquidacion" ))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
End Sub
y este es el código que utilizo para seleccionar los registros
Protected Sub CMBCASO_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CMBCASO.SelectedIndexChanged
Dim sql As New SqlClient.SqlCommand("Select * From Liquidacion Where N_liquidacion = '" + CMBCASO.Text + "' and activo = 1", conn)
Dim resultado As SqlClient.SqlDataReader
Try
resultado = sql.ExecuteReader()
Catch ex As Exception
Dim script As String = String.Format("alert('{0}');", ex.Message)
ScriptManager.RegisterStartupScript(Me, GetType(Page), "Información Incorrecta", script, True)
Exit Sub
End Try
If resultado.HasRows Then
Do While resultado.Read()
TXTPARCHE.Text = resultado.Item("N_Liquidacion")
TXTDENUNCIO.Text = resultado.Item("Fecha_Denuncio")
TXTFECHASINIESTRO.Text = resultado.Item("Fecha_Siniestro")
TXTSINIESTRO.Text = resultado.Item("N_Siniestro")
TXTDESCRIPCION.Text = resultado.Item("Descripcion")
TXTCONDUCTOR.Text = resultado.Item("Nombre_Conductor")
TXTRUT.Text = resultado.Item("Rut_Conductor")
TXTPATENTE.Text = resultado.Item("Patente_Vehiculo")
TXTCONDUCTORTERCERO.Text = resultado.Item("Nombre_Tercero")
TXTPATENTE1.Text = resultado.Item("Patente_Tercero")
CMBCOMPAÑIA.Text = resultado.Item("Nombre_Compañia")
TXTRUT1.Text = resultado.Item("Rut_Compañia")
TXTNOMBRE.Text = resultado.Item("Nombre_Asegurado")
TXTRUT2.Text = resultado.Item("Rut_Asegurado")
TXTTIPO.Text = resultado.Item("Tipo_Seguro")
TXTPOLIZA.Text = resultado.Item("N_Poliza")
TXTAJUSTADOR.Text = resultado.Item("Nombre_Ajustador")
TXTFECHADESIGNACION.Text = resultado.Item("Fecha_Designacion")
TXTFECHAINFORME.Text = resultado.Item("Fecha_Informe")
TXTMONTO.Text = resultado.Item("Monto_Pago")
TXTFECHAANTEC.Text = resultado.Item("Fecha_Antecedentes")
TXTINSPECTOR.Text = resultado.Item("Nombre_Inspector")
TXTBOLETA.Text = resultado.Item("N_Boleta")
TXTFECHABOLETA.Text = resultado.Item("Fecha_Boleta")
TXTFECHAPAGO.Text = resultado.Item("Fecha_Pago")
CMBCASO.Enabled = False
CMDGRABAR.Enabled = False
CMDMODIFICAR.Enabled = True
CMDELIMINAR.Enabled = True
TXTDENUNCIO.Focus()
Loop
Else
CMBCASO.Text = "Búsqueda por Nº"
CMBCASO.Focus()
End If
resultado.Close()
End Sub
Además les informo que estoy con el Windows 7.0, sera necesario tener otra versión, por que con el XP me funcionaba bien, desde ya muchas gracias y ojala que me puedan ayudar, desde ya muchas gracias.
↧
October 20, 2016, 12:12 am
Buenos días.
Estoy tratando de insertar mediante un parámetro una fecha en la base de datos sql server en vb.net.
If IsDBNull(_cttxtDatos_6.Text) Or Not IsDate(_cttxtDatos_6.Text) Then
comando.Parameters.Add("@FAL", SqlDbType.DateTime).Value = DBNull.Value
Else
comando.Parameters.Add("@FAL", SqlDbType.DateTime).Value = FormatDateTime(_cttxtDatos_6.Text, DateFormat.GeneralDate)
End If
Yo le pongo la fecha: 31/12/2015, pero al guardar en la base de datos lo almacena así: Dic 31 201
y por mucho que cambie el formato, siempre me lo guarda con este formato. ¿Cómo puedo decirle que lo almacene en formato dd/mm/aaaa?
Gracias
↧
October 20, 2016, 6:47 pm
hola, estoy atorado tratando de guardar una imagen en un base de dtos mysql. asi tengo estructurada mi ap.
uso un module de conexion global y clases de datos donde almaceno mis variables para conectar con las tablas y campos de la base de datos.
modulo conexion gloval
Código:
'importo las funciones de mysql
Imports MySql.Data
Imports MySql.Data.Types
Imports MySql.Data.MySqlClient
Module Mod_conexionGlobal
Public _cadena As String 'almacena los datos de conexin al server
Public _conexion As New MySqlConnection 'se declara la variable publica para abrir/cerrar la conexion
Public Function Conexion_Global() As Boolean
Dim estado As Boolean = True
Try
_cadena = ("server=localhost;User Id=misuario;database=controlrepar;Password=1234")
_conexion = New MySqlConnection(_cadena)
Catch ex As MySqlException
MessageBox.Show(ex.Message)
estado = False
End Try
Return estado
End Function
Public Sub Cerrar()
_conexion.Close()
End Sub
End Module
classe ins para guardar, editar o eliminar datos
Código:
'importo mysql drivers
Imports MySql.Data
Imports MySql.Data.Types
Imports MySql.Data.MySqlClient
Public Class Class_ins
Private _adaptador As New MySqlDataAdapter
Public Function insertarDatos_res(ByVal datos As Class_datos) As Boolean
Dim estado As Boolean = True
Try
Conexion_Global()
_adaptador.InsertCommand = New MySqlCommand("insert into recepcion(resid_Cliente, resrecep_Date, resmarca_Equipo, resmodel_Equipo, restipo_Equipo, res_Serie, resdesc_Equipo, foto_Equipo, foto_Equipo1, foto_Equipo2, foto_Equipo3) _
values (@resid_Cliente, @resrecep_Date, @resmarca_Equipo, @resmodel_Equipo, @restipo_Equipo, @res_Serie, @resdesc_Equipo, @foto_Equipo, @foto_Equipo1, @foto_Equipo2, @foto_Equipo3", _conexion)
_adaptador.InsertCommand.Parameters.Add("@resid_Cliente", MySqlDbType.Int32).Value = datos.resid_Cliente
_adaptador.InsertCommand.Parameters.Add("@resrecep_Date", MySqlDbType.Date).Value = datos.resrecep_Date
_adaptador.InsertCommand.Parameters.Add("@resmarca_Equipo", MySqlDbType.VarChar, 20).Value = datos.resmarca_Equipo
_adaptador.InsertCommand.Parameters.Add("@resmodel_Equipo", MySqlDbType.VarChar, 20).Value = datos.resmodel_Equipo
_adaptador.InsertCommand.Parameters.Add("@restipo_Equipo", MySqlDbType.VarChar, 20).Value = datos.restipo_Equipo
_adaptador.InsertCommand.Parameters.Add("@res_Serie", MySqlDbType.VarChar, 45).Value = datos.res_Serie
_adaptador.InsertCommand.Parameters.Add("@resdesc_Equipo", MySqlDbType.VarChar, 500).Value = datos.resdesc_Equipo
_adaptador.InsertCommand.Parameters.Add("@foto_Equipo", MySqlDbType.Blob).Value = datos.foto_Equipo
_adaptador.InsertCommand.Parameters.Add("@foto_Equipo1", MySqlDbType.Blob).Value = datos.foto_Equipo1
_adaptador.InsertCommand.Parameters.Add("@foto_Equipo2", MySqlDbType.Blob).Value = datos.foto_Equipo2
_adaptador.InsertCommand.Parameters.Add("@foto_Equipo3", MySqlDbType.Blob).Value = datos.foto_Equipo3
_conexion.Open()
_adaptador.InsertCommand.Connection = _conexion
_adaptador.InsertCommand.ExecuteNonQuery()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
estado = False
Finally
Cerrar()
End Try
Return estado
End Function
'funcion para actualizar datos en la tabla recepcion res
Public Function actualizarDatosres(ByVal datos As Class_datos) As Boolean
Dim estado As Boolean = True
Try
Conexion_Global()
_adaptador.UpdateCommand = New MySqlCommand("update recepcion set resid_Cliente=@resid_Cliente, resrecep_date=@resrecep_Date, resmarca_Equipo=@resmarca_Equipo, resmodel_Equipo=@resmodel_Equipo, _
restipo_Equipo=@restipo_Equipo, res_Serie=@res_Serie, resdesc_Equipo=@resdesc_Equipo, foto_Equipo=@foto_Equipo, foto_Equipo1=@foto_Equipo1, foto_Equipo2=@foto_Equipo2, foto_Equipo3=@foto_Equipo3 where resfolio_Rep=@resfolio_Rep", _conexion)
_adaptador.UpdateCommand.Parameters.Add("@resfolio_Rep", MySqlDbType.Int32).Value = datos.resfolio_Rep
_adaptador.UpdateCommand.Parameters.Add("@resid_Cliente", MySqlDbType.Int32).Value = datos.resid_Cliente
_adaptador.UpdateCommand.Parameters.Add("@resrecp_Date", MySqlDbType.Date).Value = datos.resrecep_Date
_adaptador.UpdateCommand.Parameters.Add("@resmarca_Equipo", MySqlDbType.VarChar, 20).Value = datos.resmarca_Equipo
_adaptador.UpdateCommand.Parameters.Add("@resmodel_Equipo", MySqlDbType.VarChar, 20).Value = datos.resmodel_Equipo
_adaptador.UpdateCommand.Parameters.Add("@restipo_Equipo", MySqlDbType.VarChar, 20).Value = datos.restipo_Equipo
_adaptador.UpdateCommand.Parameters.Add("@res_Serie", MySqlDbType.VarChar, 45).Value = datos.res_Serie
_adaptador.UpdateCommand.Parameters.Add("@resdesc_Equipo", MySqlDbType.VarChar, 500).Value = datos.resdesc_Equipo
_adaptador.UpdateCommand.Parameters.Add("@foto_Equipo", MySqlDbType.Blob).Value = datos.foto_Equipo
_adaptador.UpdateCommand.Parameters.Add("@foto_Equipo1", MySqlDbType.Blob).Value = datos.foto_Equipo1
_adaptador.UpdateCommand.Parameters.Add("@foto_Equipo2", MySqlDbType.Blob).Value = datos.foto_Equipo2
_adaptador.UpdateCommand.Parameters.Add("@foto_Equipo3", MySqlDbType.Blob).Value = datos.foto_Equipo3
_conexion.Open()
_adaptador.UpdateCommand.Connection = _conexion
_adaptador.UpdateCommand.ExecuteNonQuery()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
estado = False
End Try
Return estado
End Function
'funcion para eliminar datos tabla recepcion res
Public Function eliminarDatosres(ByVal datos As Class_datos) As Boolean
Dim estado = True
Try
Conexion_Global()
_adaptador.DeleteCommand = New MySqlCommand("delete from recepcion where resfolio_Rep=@resfolio_Rep", _conexion)
_adaptador.DeleteCommand.Parameters.Add("@resfolio_Rep", MySqlDbType.Int32).Value = datos.resfolio_Rep
_conexion.Open()
_adaptador.DeleteCommand.Connection = _conexion
_adaptador.DeleteCommand.ExecuteNonQuery()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
estado = False
Finally
Cerrar()
End Try
Return estado
End Function
End Class
clase datos donde tengo almacenados los campos y declare las variables a usar
Código:
Public Class Class_datos
'datos de la tabla recepcion
Private _resfolio_Rep As Integer
Private _resid_Cliente As Integer
Private _resrecep_Date As Date
Private _resmarca_Equipo As String
Private _resmodel_Equipo As String
Private _restipo_Equipo As String
Private _res_Serie As String
Private _resdesc_Equipo As String
Private _foto_Equipo As Byte
Private _foto_Equipo1 As Byte
Private _foto_Equipo2 As Byte
Private _foto_Equipo3 As Byte
Public Property resfolio_Rep() As Integer
Get
Return _resfolio_Rep
End Get
Set(ByVal value As Integer)
_resfolio_Rep = value
End Set
End Property
Public Property resid_Cliente() As Integer
Get
Return _resid_Cliente
End Get
Set(ByVal value As Integer)
_resid_Cliente = value
End Set
End Property
Public Property resrecep_Date() As Date
Get
Return _resrecep_Date
End Get
Set(ByVal value As Date)
_resrecep_Date = value
End Set
End Property
Public Property resmarca_Equipo() As String
Get
Return _resmarca_Equipo
End Get
Set(ByVal value As String)
_resmarca_Equipo = value
End Set
End Property
Public Property resmodel_Equipo() As String
Get
Return _resmodel_Equipo
End Get
Set(ByVal value As String)
_resmodel_Equipo = value
End Set
End Property
Public Property restipo_Equipo() As String
Get
Return _restipo_Equipo
End Get
Set(ByVal value As String)
_restipo_Equipo = value
End Set
End Property
Public Property res_Serie() As String
Get
Return _res_Serie
End Get
Set(ByVal value As String)
_res_Serie = value
End Set
End Property
Public Property resdesc_Equipo() As String
Get
Return _resdesc_Equipo
End Get
Set(ByVal value As String)
_resdesc_Equipo = value
End Set
End Property
Public Property foto_Equipo() As Byte
Get
Return _foto_Equipo
End Get
Set(ByVal value As Byte)
_foto_Equipo = value
End Set
End Property
Public Property foto_Equipo1() As Byte
Get
Return _foto_Equipo1
End Get
Set(value As Byte)
_foto_Equipo1 = value
End Set
End Property
Public Property foto_Equipo2() As Byte
Get
Return _foto_Equipo2
End Get
Set(value As Byte)
_foto_Equipo2 = value
End Set
End Property
Public Property foto_Equipo3() As Byte
Get
Return _foto_Equipo3
End Get
Set(value As Byte)
_foto_Equipo3 = value
End Set
End Property
End Class
este es mi boton de guardar, el erroe viene cuanto trato de pasar la imagen a bytes para cuargarla en el camp blob en mysql
Código:
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
'guardar datos nuevo comprobar si la variable nuevo es cierta/falsa para guardar nuevo/editar
Dim conexion As New Class_ins
Dim datos As New Class_datos
Dim pic1, pic2, pic3, pic4 As New System.IO.MemoryStream()
PctbImg1.Image.Save(pic1, System.Drawing.Imaging.ImageFormat.Jpeg)
PctbImg2.Image.Save(pic2, System.Drawing.Imaging.ImageFormat.Jpeg)
PctbImg3.Image.Save(pic3, System.Drawing.Imaging.ImageFormat.Jpeg)
PctbImg4.Image.Save(pic4, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim img_byte() As Byte = pic1.GetBuffer()
pic1.Close()
_dtsdatos.Reset()
datos.resid_Cliente = TxbIdCli.Text
datos.resrecep_Date = TxbFecha.Text
datos.resmarca_Equipo = TxbMarca.Text
datos.resmodel_Equipo = TxbMod.Text
datos.restipo_Equipo = Txbtipo.Text
datos.resdesc_Equipo = TxbDesc.Text
datos.foto_Equipo = img_byte '<-- error el valor byte() no puede convertirse a byte
If nuevo Then
If conexion.insertarDatos_res(datos) Then
MessageBox.Show("Datos Guardados")
Else
MessageBox.Show("Datos no guardados")
End If
Else
datos.resfolio_Rep = TxbFolio.Text
If conexion.actualizarDatosres(datos) Then
MessageBox.Show("Datos Actualizados")
Else
MessageBox.Show("Datos no actualizados")
End If
End If
End Sub
↧
October 21, 2016, 12:12 pm
Quisiera hacer un programa de BIBLIOTECA VIRTUAL en Visual basic 2010 donde los estudiantes puedan visualizar archivos PDF pero sin poder decargarlos, la descarga se habilitara segun el tipo de Usuario o el nivel de estudiante (ejm: profesor, administrador, o sea estudiante sobresaliente), ademas los PDF's estaran almacenados en un servidor.
Podrian porfavor ayudarme con el codigo???? Muchas Gracias!
↧
↧
October 22, 2016, 5:03 pm
Hola a todos. Les comento que en el momento estoy intentando configurar visual studio code en mi Mac, el sistema operativo que en éste momento tengo es el siguiente:
![]()
el error que me sale es cuando intento instalar yeoman: que normalmente se hace ejecutando el comando NPM instalar yo -g la pantalla es la siguiente:
![]()
espero me ayude alguien. de todas maneras dejo un link en donde pueden encontrar toda la información sobre lo que estoy haciendo. es una buena opción para todos los que trabajamos en el mundo de mac. ya que por fin papá Gates nos brinda la oportunidad de trabajar con código opensource. Un saludo a todos y aquí les dejo la información por si alguien quiere seguir mis pasos y aprender.!
Teleinco Ingeniería. ¡Compartimos lo mejor de nuestra experiencia!: COMENZANDO CON ASP.NET CORE Y .NET CLI - MAC OSX
↧
October 23, 2016, 3:13 am
Necesito hacer que, conforme voy tecleando en un textbox en vb6, llamado txtFormato, me impida teclear más de dos caracteres a partir del punto.
Lo que es impedir más de un punto, 0 a la izquierda si está vacío... esta hecho, pero me falta solo eso.
Tiene que ser conforme se está tecleando, no me sirve pulsar un botón para verificar si ha introducido más de dos y borrar los restantes.
Llevo muchos años sin programar y la falta de costumbre se nota.
Gracias de antemano.
↧
October 24, 2016, 2:49 am
Hola a todos.
No veo un apartado de presentación por lo que lo hago aki con mi primer mensaje.
Acabo de llegar a VB .NET despues de hacer algunos pinitos en JAVA, lo cual me ha venido muy bien para entrar a comprender la creacion de objetos pero como todo lenguaje nuevo surgen miles de dudas.
La duda que tengo es que creando cualquier objeto tipo button, label, etc puedo acceder a ellos desde cualquier parte del código pero tengo un problema con un objeto streamwriter para crear un archivo e ir añadiendo datos.
La creación del objeto no tengo problemas y funciona, el problema viene cuando después de crearlo no puedo acceder a él para añadir líneas de datos al archivo conforme se generen esos datos en tiempo real.
Necesito crear el archivo y conforme se vayan generando datos s van añadiendo al archivo y una vez finalizada la sesión cierro el archivo.
El caso es que no puedo llamarlo desde otro sub para añadir datos al archivo, alguien sabe decirme como puedo cambiar el alcance de este objeto para acceder desde cualquier parte del código?
Disculpadme si en algo no me he explicado del todo bien pero aun no domino este lenguaje.
Muchas gracias a todos.
↧
October 24, 2016, 8:16 am
Hola buenas, ando programando una aplicación Cliente/servidor con multiconexiones gracias a un tutorial (War ghost)
A la hora de agregarle funciones es donde me surge el problema. Espero, que me pudierais ayudar.
En la llegada de datos del tutorial consta lo siguiente:
Private Sub ws_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim data As String 'Declaracion
Dim vData As Variant 'Declaracion
Dim pr
Dim cmsgsep As Long 'Declaracion
ws(index).GetData data
vData = Split(data, "|")
Select Case vData(0)
Case "Conexion" 'Cose de conexion
Set pr = Listconexion.ListItems.Add(, index & "|", vData(1)) 'Agreamos una nueva conexion a listview
pr.SubItems(1) = vData(2) & "/" & ws(index).RemoteHostIP
pr.SubItems(2) = vData(3) & "/" & vData(4)
pr.SubItems(3) = vData(5)
pr.SubItems(4) = vData(6)
End select
End sub
Por lo tanto, cuando el servidor (index) envie conexion se rellenarán los campos del listbox con sus datos, hasta ahi todo correcto.
El problema es que he añadido al server un keylogger muy rudimentario, simplemente un texbox que recoge todo lo que teclea el ordenador, mi duda es la siguiente.
¿Como puedo configurar el server para que envie el contenido del texbox al cliente y este lo recoga en otro textbox del cliente?
Entiendo que será declarar en el server una variable que contenga el contenido del texbox.
Dim variable1 as string
variable = text1.text
Ws.senddata variable
Pero el problema es que no se configurar el cliente para que este lo reciba y lo aplique en el texbox.
Saludos y gracias por vuestro tiempo.
↧
↧
October 25, 2016, 3:17 am
Buenas, quiero que se guarde en una carpeta determinada y el contenido de un textbox determinado.
Quedaria algo asi:
MkDir "c:\texto"
Dim linea As String
linea = Text1.Text
Open "C:\texto\texto.txt" For Output As #1
Print #1, linea
Close #1
MsgBox "Se ha creado un archivo de texto en la siguiente ruta C:\texto\texto.txt"
End If
End Sub
Vale, eso para crearlo y escribirlo, el problema es que quiero añadirle código para que si ya está creado no cree el fichero y añada al texto ya existente en el texto el texto que quiero añadir nuevo.
↧
October 25, 2016, 4:22 pm
Hola a todos.
En mi lugar de trabajo recibimos múltiples archivos con contenido como el siguiente
||Hola|||Saludos||||||Mensaje
¿Alguien sabe como puedo hacer para leer el texto y pasar cada una de las palabras a una variable?
En pocas palabras quedaría.
VariableA = Hola
VariableB = Saludos
VariableC = Mensaje
Gracias
↧
October 26, 2016, 12:24 pm
Buenos días amigos del Foro:
Soy nuevo en VB.Net y estoy haciendo mi primer aplicación... Vengo de Vb6.0 Empresarial y se me ha hecho un poco complicado la manipulación de los datos en los Dataset o en DataTable con cuales quiero trabajar... comprendo bien la diferencia entre estos dos objetos.-
Creo manejar bien la Inserción, Modificación, Eliminar y Actualizar cuando se refiere a un Registro determinado, el cual lo puedo buscar por su Campo Indice.- Pero resulta que quiero hacer una actualización masiva en una tabla de mi base de datos Accesss y no puedo referirme a los campos de mis objetos para su debido cambio.-
En el ejemplo que les envíos para mi ayuda, se trata de actualizar la Mora de una tabla donde tengo los datos de estudiantes Universitarios... En ella se encuentra la fecha de vencimiento y con ésta hago cierto cálculo para determinar los días y así mismo determinar el monto de la Mora... los Campos que se modificarán son solamente «Días» y «Mora» y es aquí donde no puedo referirme a ellos y actualizarlos con los nuevos datos...
Por favor, ayuda...
Aquí mi trabajo, del cual ya agoté las posibilidades de resolverlo adecuadamente
Dim Tabla As New DataTable
Dim selectcmd As New OleDbDataAdapter
selectcmd = New OleDbDataAdapter("SELECT Fecha, Concepto, Importe, FechaVen, Dias, Mora, Trans FROM Aranceles", cnn)
selectcmd.Fill(Tabla)
selectcmd.Fill(ArancelDataGridView.DataSource = Tabla
For Each row As DataRow In Tabla.Rows
Dim FecAux As Date = tabl.Tables("Aranceles").Rows(0)("FechaVen".ToStri ng)
Dim DiaAux As Integer = Math.Round(DateDiff(DateInterval.Day, Today, FecAux))
Dim MorAux As Double = 0
If DiaAux > 0 Then
DiaAux = 0
MorAux = 0
Else
MorAux = (Math.Round((0.1 * DiaAux), 2))
End If
row.Item(4) = DiaAux
row.Item(5) = MorAux
Next
Nota:
En el DataGridView visualizo el cambio, tanto de los días y la mora por cada uno de los registros, pero en la tabla Aranceles no ocurre nada en estos dos campos (Dias... Mora)
Les agradezco mucho de antemano a quienes me quieran ayudar.... Saludos
↧