Quantcast
Channel: Canal Visual Basic
Viewing all 1863 articles
Browse latest View live
↧

problema con datagrid y sql

August 21, 2013, 2:40 pm
$
0
0
hola a todos tengo un problemilla y no lo he podido solucionar ...recurro a uds a ver si me echan una mano
revise el foro y no encontre un tema que me pueda ayudar por eso abro uno nuevo
Me aparaece ese error en un boton programado para guardar registros en una base de datos y luego mostrarlo en una grilla ....lo guarda pero a la hora de mostrar en la grilla el programa se cae y muestra este mensaje
"La matriz de entrada es más larga que el número de columnas en esta tabla."

los parametros son iguales a las columnas asi que no se por que me sale esto los tipos de datos son iguales
coloco el codigo delñ boton a ver si me ayudan un poquito

guardar.CommandType = CommandType.StoredProcedure
guardar.CommandText = "agregareg2"
guardar.Parameters.Add("@fecha", SqlDbType.Char).Value = TextBox1.Text
guardar.Parameters.Add("@hora", SqlDbType.Char).Value = Label2.Text
guardar.Parameters.Add("@empresa", SqlDbType.VarChar).Value = "Express"
guardar.Parameters.Add("@servicio", SqlDbType.VarChar).Value = "G4"
guardar.Connection = (conexion)
conexion.Open()
guardar.ExecuteNonQuery()
conexion.Close()


'mostrar registros en datagrid
registrodt.Rows.Clear()
comando.CommandText = "select * from REGISTRO where FECHA ='" & Me.TextBox1.Text & "'"
comando.Connection = (conexion)
conexion.Open()
leer = comando.ExecuteReader
While leer.Read
registrodt.Rows.Add(leer.Item("FECHA"), leer.Item("HORA"), leer.Item("EMPRESA"), leer.Item("SERVICIO"))
End While
leer.Close()
conexion.Close()
DataGridView1.DataSource = registrodt
↧
Search

Modulo de ASP .Net

August 21, 2013, 4:17 pm
$
0
0
Hola comunidad buenas tardes:

Estoy desarrollando una solución en ASP .NET con VB como code behind intento hacer un modulo que contenga funciones y métodos genéricos al igual como lo hago con una aplicación de escritorio para reutilizar código pero no logro llamar ninguna función o método declarado ahí!!

Como puedo acceder a las funciones o métodos creados en un Modulo de ASP .NET desde mi página ASP? Gracias y saludos cordiales
↧
↧

JVO SDK - Libreria de controles y funciones

August 16, 2013, 5:36 am
$
0
0
Buenas , traigo un miniproyecto entre manos, una libreria con funciones y controles para programadores. Esta ambientada a la gente que esta un poco cansada de los controles por defecto de Windows y que quieren dar otro aspecto a sus programas.

Por ahora contiene:

JProgressbar-Progressbar que puede usar colores e imagenes para el progreso y tiene algunas mas personalizaciónes, tambien contiene para insertar texto en el progreso , para los que odien tener que hacer un texto(Opcional) aparte.

JHDCheckButton-Conoces el viejo ¿check box? ¿Te gustaria uno mas llamativo? Este es HD xD

JMetalicButton-Boton con estilo metalizado, con texto en el centro, ademas posee sistema de skins

JSearchControl- ¿Estas creando un buscador? Pero te da flojera hacer el boton y el cuadro de busqueda. Pues este es tu control.

JMessages-¿Cansado del Msgbox? ¿Quieres probar uno nuevo? Aqui lo tienes.(De momento solo posee un tipo de mensaje)

JColorSelector-¿Cansado de usar el selector en nueva ventana para los colores? Dale estilo a tu programa con este.

JCheckButton- Un boton para marcar si o no a las opciones, Redimensionable, de alta resolución.

JWinsocks-Aun en fase de prueba, no se garantiza buen funcionamiento

AndroidStyleNotification-¿Te gu stan las notificaciones de android con estilo neon?, pues puedes usarlas a traves de esta libreria, permite elegir donde se mostrara , que color, mensaje y duración tendra.



IMPORTANTE:Si veo actividad en este post prometo sacar nuevas versiones mejorando el contenido existente y añadiendo nuevas funciónes.

*

Descarga:226KB
*https://www.dropbox.com/s/khy2mdwz1e...lpha%200.1.rar

ESPERO QUE ESTA LIBRERIA LES SEA DE AYUDA EN EL DESARROLLO DE SUS PROGRAMAS, ASI COMO AMI PARA APRENDER Y MEJORAR

AGRADECERIA FUERTEMENTE QUE ME DIESEN IDEAS DE CONTROLES Y FUNCIONES PARA AÑADIRLAS

GRACIAS POR LEER.
↧

Sobreescribe cuando quiere, cuando no quiere no...

August 22, 2013, 7:50 am
$
0
0
Hola de nuevo...

Tengo un problema nuevo y despues de darle muchas vueltas no logro encontrarle solucion...
Tengo el siguiente codigo:

Código:
           
Case1 = ListView1.FocusedItem.Text 'Q:\reqact\21-08-2013 02-45-13.txt'
...
Dim TEMP As String() = Case1.Split("\")
            Dim objWriter As New System.IO.StreamWriter("Q:\Desarrollo de Sistemas\reqact\candid\" & TEMP(3))
            objWriter.WriteLine('CADENA'"#")
            objWriter.Close()

(Donde dice 'CADENA' va la captura de todos los TextBox de mi formulario)

El problea es que el mismo codigo en otro formulario si sigue escribiendo en la siquiente linea y en este no, este lo sobrescribe...

Alguien me puede ayudar con este sencillo problema? n_ñU
↧

ayuda con evento oncomm vb6

August 22, 2013, 10:16 am
$
0
0
Hola amigos del foro ando con un probema me gustaria y me ayudaran

una pregunta: se puede detener el evento MSComm1_OnComm si es asi me podrian ayudar o explicarme como? gracias se los agradezco, saludos.
↧
↧

Ayuda - Desbordamiento con archivo de texto demasiado extenso

August 23, 2013, 1:02 am
$
0
0
Quiero buscar palabras en un archivo de texto muy extenso (53000 caracteres) y como el textbox no es suficientemente grande, use un richtextbox.

Tengo el siguiente codigo.

Dim x as integer
for x= 1 to len (richtextbox1)
if (mid (richtextbox1, x) like text1 & "*") then
richtextbox1.setfocus
richtextbox1.selstart = x - 1
end if
next x

Cuando le doy a ejecutar me sale el error de desbordamiento.

Hay alguna forma de solucionarlo o algun control que pueda agregar y que funcione como un textbox?.

Aclaracion: Es obligatorio trabajar con el texto desde el control, o sea que no quiero usarlo y/o abrirlo con open, shell etc.

Saludos
↧

Agregar dos columnas a un datagridview lleno con excel

August 23, 2013, 4:09 pm
$
0
0
Muy buenas tardes a todos los del foro, les saludo su amigo alejandro, nuevo por aqui, desde hace unas estoy dandole con un problema que no eh conseguido resolver, a ve si alguno de este foro me puede ayudar el problema es el siguiente:

Estoy llenando un datagridview exportando los datos desde excel, hasta ahi todo bien, lleno mi DGV, con los datos de la hoja de excel, ahora lo que quiero hacer es que despues de llenado, quiero añadirle dos columnas mas , una para que me traiga la precios de la base de datos (una consulta sql), y la otra para que me compare el precio que traje de excel contra el precio de la base de datos(una consulta sql), eh creado las dos columnas al momento de de llenar el grid con el excel y luego recorrer los filas pero me marca error de indices fuera.

Si alguno tiene alguna idea o un ejemplo, les agradeceria.

If DataGridView1.Rows.Count > 0 Then

For i As Integer = 0 To DataGridView1.Rows.Count - 1

Dim daa As New SqlDataAdapter("select Pp_Precio_1 as PRECIO_ACTUAL, (Pp_Precio_1 - " & CDbl(DataGridView1.Rows(i).Cells(4).Value()) & ") as DIFERENCIA From Producto_Precio where Pr_Cve_Producto = '" & DataGridView1.Rows(i).Cells(0).FormattedValue() & "' ", cnnx)
Dim dst As New DataSet
daa.Fill(dst, 0)
'Me.DataGridView1.Columns(Me.DataGridView1.Columns .Count - 1).DisplayIndex = 9 ' Es para que la columna sea la primera en la grilla
Me.DataGridView1.DataSource = dst.Tables(0)
Me.DataGridView1.Columns(9).DataPropertyName = dst.Tables(0).Columns(0).ColumnName
Me.DataGridView1.Columns(10).DataPropertyName = dst.Tables(0).Columns(1).ColumnName

'Me.DataGridView1.Focus()
Next

Else
MessageBox.Show("No hay Informacion Comparar", "Compara Precios")
End If

Espero comentario
gracias
↧

Separación en columnas de Archivo txt

August 25, 2013, 4:14 am
$
0
0
Buenas días,

Hace un tiempo dejé el siguiente mensaje en el foro de VB6 y me han derivado a .NET. A ver si me podéis echar una mano.

"Estoy empezando con VB y estoy un poco pez. Mi problema es que tengo una aplicación que realiza una serie de cálculos matemáticos y quiero que la solución me aparezca en un archivo txt. Hasta ahí lo tengo más o menos controlado y consigo que aparezcan los resultados en el archivo. Mi problema es que quiero separarlos en columnas para que aparezcan con un cierto orden.

He visto algún ejemplo en VB 6 y lo hace con "comas" (,), pero en VB2010 no me las acepta. Yo estoy usando vbTAb para separar los resultados con tabulaciones, pero en función de la longitud del número, a veces se me descuadra apareciendo los resultados en la columna que no toca.

Voy a ver si soy capaz de dejaros un ejemplo del código y a ver si me podéis echar una mano:

Código:
1.        objGuardar.WriteLine("")
 objGuardar.WriteLine("P00" & vbTab & vbTab & "T00" & vbTab & vbTab & "PS0" & vbTab & vbTab & "cp " & vbTab & vbTab & "gamma")
objGuardar.WriteLine("bar" & vbTab & vbTab & "K" & vbTab & vbTab & "bar" & vbTab & vbTab & "J/kgK" & vbTab & vbTab & "----")
 objGuardar.WriteLine(Format(sngP00, "0.0000") & vbTab & vbTab & Format(sngT00, "0.0000") & vbTab & Format(sngPs0, "0.0000") & vbTab & vbTab & Format(sngCp, "0.0000") & vbTab & Format(sngGamma, "0.0000"))
objGuardar.WriteLine("")
"

En el foro de VB6 me han comentado la posibilidad de utilizar un len, pero igual hay una forma más sencilla.

Un saludo y gracias
↧
Search

no puedo solucionar este error!!

August 25, 2013, 6:20 pm
$
0
0
hola, soy nuevo programando .NET, tengo un proyecto de un drugstore, este es el codigo del boton " agregar" para ir llenando el grid con los art.de la venta

Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
'una vez definida la cantidad de lo que se esta vendiendo, lo vinculamos a la venta actual
Dim dbConnection As New SqlConnection(cnString)
Dim sqlInsert As String = "INSERT INTO ventas (nroventa, id, cantidad, preciounitario, subtotal)"
Dim sqlValores As String = "VALUES(" & CSng(lblVenta.Text) & "," & lblDesc.Tag & "," & txtCantidad.Text & "," & lblImporte.Text & "," & lblSubt.Text & ")"
Dim cmd As New SqlCommand(sqlInsert + sqlValores, dbConnection)
dbConnection.Open()
cmd.ExecuteNonQuery()
Me.Vw_ventasTableAdapter.Fill(Me.DrugstoreDataSet. vw_ventas)
Me.VwventasBindingSource.Filter = "nroventa=" & CSng(lblVenta.Text)
cmd = Nothing
dbConnection.Close()
lblDesc.Text = "Descripción del producto"
lblStk.Text = "Stock actual"
lblImporte.Text = "Importe unitario"
txtCantidad.Text = ""
lblSubt.Text = "Subtotal"
calculoTotal()
End Sub

cuando ejecuto me da este error :

"Hay menos columnas en la instrucción INSERT que valores en la cláusula VALUES. El número de valores de VALUES debe coincidir con el de columnas de INSERT."...:confused:
↧
↧

Cambiar el formato a un archivo TXT

August 25, 2013, 7:32 pm
$
0
0
Amigos.. necesito su ayuda

Subi un archivo .txt en un textbox.



pero necesito leer ciertos datos y luego guardarlo de la siguiente forma

https://skydrive.live.com/redir?resi...QPABGVK-jc&v=3

mi codigo en visual basic 2010 es el siguiente

Dim TodoTexto As String = ""
Dim LineaDeTexto As String = ""

OpenFileDialog1.Filter = "Formato de archivo (*.txt)|*.txt"
OpenFileDialog1.ShowDialog() 'cuadro de dialogo abrir
If OpenFileDialog1.FileName <> "" Then 'si el nombre del archivo no es nulo
Try 'detecta posibles errores al abrir
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) ' el archivo que hemos abierto se denotara por 1
Do Until EOF(1) 'EOF devuelve verdadero si se termina de leer un archivo (archivo=1)
LineaDeTexto = LineInput(1) 'LineInput lee linea por linea de un archivo (archivo=1)
TodoTexto = TodoTexto & LineaDeTexto & vbCrLf
Loop
TextBox1.Text = TodoTexto

Catch
MsgBox("Error al leer el archivo") 'Error al leer
Finally
FileClose(1) 'cierra el archivo
End Try
End If



COMO PODRIA GUARDAR LOS DATOS EN EL FORMATO DESEADO
↧

filtro de base de datos

August 25, 2013, 10:37 pm
$
0
0
Hola! espero alguien me pueda ayudar creo que es sencillo pero no he logrado lo que quiero.

tengo en hoja1 una base de datos con autofiltro, y necesito activar el filtro de una columna dependiendo del contenido de una celda que está en hoja 2, ¿cómo puedo cambiar este valor para que no sea una palabra definitiva, en este caso "ANTIOQUIA", sino el contenido de una celda en hoja2 que es variable?

ActiveSheet.Range("$A$2:$AK$881").AutoFilter Field:=5, Criteria1:= _
"ANTIOQUIA", Operator:=xlAnd

muchas gracias a quien me pueda ayudar.
↧

Tabla HTML en ASP.NET

August 27, 2013, 11:40 am
$
0
0
Estimado señores, estoy desarrollando un pequeña aplicación en ASP.NET, la cual se conecta a un servidor SQL, mi consulta es la siguiente:

En una tabla HTML, necesito desplegar los datos generados mediante un procedimiento almacenado, hasta el momento tengo lo siguiente:

Llama al procedimiento almacenado para traer los datos,
Try
cnx.Open()

Dim daDetalle As SqlDataAdapter
Dim dr As SqlDataReader

daDetalle = New SqlDataAdapter
cmd = New SqlCommand
cmd.CommandText = "dbo.InventarioRegla16"
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = cnx
daDetalle.SelectCommand = cmd
dr = cmd.ExecuteReader

Do While dr.Read
dim anio=dr(item(0)
Loop
dr.Close()

**Hasta aca funciona bien, va leyendo cada uno de los datos, ahora lo que necesito es crear tabla html con las columnas Año Mes Cantidad y se llene con los datos anteriores.
**La tabla debe crearse dinamicamente, depediendo de los registros que tenga la consulta del procedimiento almacenado.

Agradeco la ayuda al respecto.

Saludos Cordiales, Tortos, Costa Rica
↧

ejecutar procesos continuos

August 28, 2013, 8:05 am
$
0
0
Hola amigos del foro buen dia estoy buscando ayuda, tengo un problema para ejecutar una sentencia

Uso un comando AT+CMGD=1 & vbcrlf cuando envio este comando si se realizo con exito me devuelven un OK si no un ERROR

como podria validar que el proceso continue hasta que sea igual a OK, saludos. lo necesito.gracias.
↧
↧

ejecutar procesos continuos

August 28, 2013, 8:11 am
$
0
0
Hola amigos del foro buen dia estoy buscando ayuda, tengo un problema para ejecutar una sentencia

Uso un comando AT+CMGD=1 & vbcrlf cuando envio este comando si se realizo con exito me devuelven un OK si no un ERROR

como podria validar que el proceso continue hasta que sea igual a OK, saludos. lo necesito.gracias.
↧

POO Base de datos Insert

August 28, 2013, 9:26 am
$
0
0
Hola tengo una duda, estoy empezando con C# y la programación orientada a objetos, en mi aplicación de windows forms tengo un objeto "empleado", con sus propiedades y atributos, la cuestión es, de que manera puedo insertar los datos directamente a la base de datos?, es aconsejable realizar el insert haciendo referencia a la propiedad "text"desde los textbox's que tengo en mi formulario, o creo mi objeto empleado con los datos de los textbox's de mi formulario y a continuación realizo el insert haciendo referencia a las propiedades del objeto "empleado".

por su atención muchas gracias.
↧
Search

como actualizar tabla de bd con datagridview no enlazada a bd? vbnet

August 28, 2013, 9:26 pm
$
0
0
(EL DATAGRIDVIEW NO ESTA ENLAZADO A NINGUNA BASE DE DATOS)

DESEO HACER LO SIGUIENTE TODO TENGO UN DATAGRIDVIEW Y QUE CON UN BOTON VOY LO VOY LLENANDO,CON ESOS DATOS QIERO ACTUALIZAR UNA TABLA DE MI BASE DE DATOS PERO SOLO AQUELLOS Q TENGAN EL MISMO CODIGO DE PRODUCTO QUE ESTAN EN EL DATAGRIDVIEW.

POR ELMOMENTO ESTOY REALIZANDO LO SIGUIENTE AGREGO UNICAMENTEO 2 PRODUCTO AL DATAGRIDVIEW Y AL HACER CLIC EN EL BOTON COMPARAR ME COMPARA EL 1ER CODIGO DEL PRODUCTO QUE ESTA EN EL DATAGRIDVIEW CON EL QUE ESTA EN LA BASE DE DATOS Y EN OTRO DATAGRIDVIEW ME MUESTRA EL CODIGO QUE ACABO DE COMPARA DEMOSTRANDO QUE SI EXISTE EN LA TABLA DE LA BD EL PROBLEMA ES EL SIGIENTE QUE UNICAMENTE SOLO COMPARA EL 1ER PRODUCTO DEL DATAGRIDVIEW NO AVANZA AL SIGUIENTE PARA ESTE SER COMPARADO CON LOS QUE ESTAN EN LA BASE DE DATOS.

AQUI LES DEJO EL CODIGO DE COMO LO TENGO TAL ME PUEDAN AYUDAR.

RECUERDEN QUE LO QUE QIERO HACER ES LO QUE DICE EL 1ER PARRAFO Y EL 2DO PARRAFO ES PARA VER SI EL CODIGO LO LLEVO CORRENTO O SI ESTA ACIENDO BIEN LA COMPARACION.

Código:
Public Sub actualizar_tabla_producto()
        Dim codigos, sqlbuscar As String
        Dim i As Integer = 0
        codigos = DataGridView1.CurrentRow.Cells(1).Value
        Try
            ' Establecemos la conexión con la base' 
            Using cnn As New SqlConnection("Data Source=BT-PC\SQLEXPRESS;Initial Catalog=ferr2013;Integrated Security=True")
                sqlbuscar = ("SELECT cod_producto FROM producto WHERE cod_producto ='" & codigos & "'")
                ' Creamos el adaptador de datos'
                Dim da As New SqlDataAdapter(sqlbuscar, cnn)
                ' Creamos un nuevo objeto DataTable'
                Dim dt As New DataTable("producto")
                ' Rellenamos el objeto DataTable'
                da.Fill(dt)

                For Each Dt_Row As DataGridViewRow In DataGridView1.Rows
                    If Dt_Row.Cells("codprod").Value.ToString = dt.Rows(i)("cod_producto").ToString Then
                        DataGridView2.DataSource = dt
                    End If   
                Next
            End Using
        Catch ex As Exception
                      MessageBox.Show(ex.Message)  'Se ha producido un error'
        End Try
    End Sub
↧

ayuda urgente (procesamiento de imagenes)

August 28, 2013, 9:43 pm
$
0
0
hola estoy haciendo un pequeño programita de edicion de imagenes y necesito saber si alguien de uds sabe como realizar las operaciones basicas como suma, resta, multiplicar y divicion de una imagen picturebox
↧
↧

Ayuda con tabcontrol y MDI from

August 29, 2013, 8:13 am
$
0
0
Que tal foro saludos, estoy haciendo una aplicacion en un mdi en el cual muestro algunos forms hijos en un tabcontrol, como hago para poder mostrar un form hijo sobre el control tabcontrol, les dejo una imagen sobre mi duda, les agradeceria mucho su ayuda.

↧

Moverse por los registros con controles enlazados

August 29, 2013, 10:07 pm
$
0
0
Tengo escrito el siguiente código con los textBox enlazados con el DataBindings pero al tratar de moverme me da un error "No se pueden crear una lista secundaria para el campo Familias". Podria alguien indicarme el fallo que tengo.
Module Conexion
Public cn As New OleDb.OleDbConnection
Public BD As String = "C:\PozoBarria\PozoBarria\PozoBarria\PozoBarria.ac cdb"

Public Sub Open()
Dim sCnn As String
sCnn = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;D ata Source=" & BD)
Try
cn = New OleDb.OleDbConnection(sCnn)
cn.Open()
Catch ex As Exception
MsgBox("No ha conectado con la BD " & BD, vbExclamation, "Aviso")
End Try
End Sub
End Module

Imports System.Data.OleDb

Public Class ClaseFamilias
Public adaptador As OleDb.OleDbDataAdapter
Public miTabla As New DataTable
Public constructor As OleDb.OleDbCommandBuilder
Public ds_Familia As New DataSet
End Class

Public Class frmCargarFamilia
Dim objetoFamilia As New ClaseFamilias

Private Sub frmCargarFamilia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'PozoBarriaDataSet.Familias' Puede moverla o quitarla según sea necesario.
Me.FamiliasTableAdapter.Fill(Me.PozoBarriaDataSet. Familias)
Open()
objetoFamilia.adaptador = New OleDb.OleDbDataAdapter("Select * FROM Familias", cn)
objetoFamilia.ds_Familia.Clear()
objetoFamilia.adaptador.Fill(objetoFamilia.ds_Fami lia)
End Sub

Private Sub btnSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.Click
Try
Me.BindingContext(objetoFamilia.ds_Familia, "Familias").Position += 1
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

End Class

Un saludo y gracias
↧

Formato Numérico de columnas en Gridview con C#

August 30, 2013, 8:28 am
$
0
0
Buen día a todos, mi nombre es Raúl y soy nuevo por acá, bueno...tengo la siguiente duda, tengo una aplicación en ASP.NET con C#, donde tengo un gridview que cargo desde un datatable, el punto es que tengo una columna con cifras de dinero donde me muestra los valores como 100000 (cien mil) y quiero mostrarlo como 100.000. Y otra columna donde salen valores como 0,000000 y simplemente debiera salirme 0. Espero su ayuda, me serviría mucho.Gracias desde ya. Saludos a todos
↧
Viewing all 1863 articles
Browse latest View live
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>