|
Mostrar Mensajes
|
Páginas: 1 [2] 3
|
13
|
Foros Generales / Dudas Generales / Re: Ayuda maestros del hacking!
|
en: 16 Junio 2012, 04:40 am
|
Posiblemente, pudo haber sido, aunqe es remota la posibilidad, por que necesitaria un metodo de sofisticacion muy complejo, ademas de que no podria ser uno solo; por otra parte revisa las leyes que existen en el banco cuando eso sucede, deberia haber algo por otra parte, mirar la PC de donde se hizo la sustraccion, puede haber muchas posibilidades. Lo siento
|
|
|
14
|
Seguridad Informática / Bugs y Exploits / Ayuda con Bug
|
en: 15 Junio 2012, 21:04 pm
|
Hola no se si sea aqui el lugar correcto para exponer, muchas disculpas si esto es asi, tengo una duda, alguien sabe lo que significa este error me tope con el. Alguien sabe que provecho puedo sacar de el?, todo es con fines de aprender. Esto me manda cuando quiero entrar en: http://66.181.61.171/sistema/admin.phpLa direccion es local, con XAMPP al parecer.
Warning: sybase_select_db() [function.sybase-select-db]: 0 is not a Sybase link index in /opt/apache/htdocs/sistema/admin.php on line 4 insert into acceso values ('administrador','Administrador','91f5167c34c400758115c2a6826ec2e3','SAD','A')
Warning: sybase_query() [function.sybase-query]: -1 is not a Sybase link index in /opt/apache/htdocs/sistema/admin.php on line 9
|
|
|
15
|
Programación / .NET (C#, VB.NET, ASP) / Re: textbox - listview
|
en: 12 Junio 2012, 06:40 am
|
SOLUCIONADO!!!, pongo el codigo amigos, por si alguien lo llegase a necesitar. Aparte agrege otros dos textbox, que si se podran dar cuenta son archivo y descripcion saludos For i = 0 To Form1.lsvProductos.Items.Count - 1 If Form1.lsvProductos.Items(i).SubItems(1).Text = nombre Then cant = Form1.lsvProductos.Items(i).SubItems(2).Text cant = cant + Form1.TextBox1.Text.ToString Form1.lsvProductos.Items(i).SubItems(2).Text = cant.ToString subtotal = cant.ToString * costo Form1.lsvProductos.Items(i).SubItems(4).Text = subtotal
descripcion = Form1.lsvProductos.Items(i).SubItems(6).Text Form1.lsvProductos.Items(i).SubItems(6).Text = descripcion.ToString
archivo = Form1.lsvProductos.Items(i).SubItems(7).Text Form1.lsvProductos.Items(i).SubItems(6).Text = archivo
Exit For 'b = True End If Next
'If b = False Then If (i = Form1.lsvProductos.Items.Count) Then Form1.lsvProductos.Items.Add(Form1.lsvProductos.Items.Count + 1) Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(nombre) Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(Form1.TextBox1.Text.ToString) Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(costo) subtotal = Form1.TextBox1.Text.ToString * costo Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(subtotal)
Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(Form1.descriciontexbox.Text.ToString) Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(Form1.archivotextbox.Text.ToString) End If
|
|
|
16
|
Programación / .NET (C#, VB.NET, ASP) / textbox - listview
|
en: 12 Junio 2012, 04:46 am
|
alguien sabe como solucionar esto, lo que pasa es que quiero agregar desde el textboxcantidad la cantidad al listview pero no funciona, recorro mi listview pero no me inserta el dato dejo mi codigo... For i = 0 To Form1.lsvProductos.Items.Count - 1 If Form1.lsvProductos.Items(i).SubItems(1).Text = nombre Then
'cant = Form1.lsvProductos.Items(i).SubItems(2).Text cant = Form1.txtcantidad.Text.ToString Form1.lsvProductos.Items(i).SubItems(2).Text = cant 'aqui le digo que en el subitem 2 ponga la cant que es el txtcantidad subtotal = cant * costo Form1.lsvProductos.Items(i).SubItems(4).Text = subtotal Exit For 'b = True End If Next
'If b = False Then If (i = Form1.lsvProductos.Items.Count) Then Form1.lsvProductos.Items.Add(Form1.lsvProductos.Items.Count + 1) Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(nombre) Form1.lsvProductos.Items.SubItems.Add(Form1.txtcantidad.Text) ' aqui se supone que lo debo de agregar pero no lo hace Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(costo) subtotal = 1 * costo Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(subtotal) End If
|
|
|
17
|
Programación / .NET (C#, VB.NET, ASP) / Re: ¿Alguien me ayuda?
|
en: 10 Junio 2012, 15:58 pm
|
Amigo, al parecer eso no es visual .net, es otro programa; Autorun, en .NET tambien se puede, pero lleva condificacion eso creo.
Autorun: crea ejecutables, esta muy bueno, lo eh usado, le puedes introducir diferentes efectos
|
|
|
18
|
Programación / .NET (C#, VB.NET, ASP) / Ayuda con datagridview
|
en: 10 Junio 2012, 04:39 am
|
Hola, tengo un problema con una base de datos y mi interface, esta tiene que realizar una venta, explicandolo mejor: -una tabla ventas que tiene actualizar el total cuando se inserten los datos en pv osea cantidad y precio, esto pasa cuando yo agrego la informacion con un triger esto esta resuelto -tengo una tabla pv -tengo una tabla productos que disminuyen las existencias cuando inserto en pv la cantidad mediante un triger. Tengo este error; executenonquery requiere una connection abierta y disponible. el estado actual de la conexión es cerrada, creo que es por la conexion, pero no se como solucionarlo. En mi base de datos, se tiene que preparar una venta, para ello primero busco mediante la clave de la venta cual es la mayor, y depende a ella le sumo otra mas (no se si este bien ahi), sucesivamente puedo mandar a traer un procediemiento almacenado para que ejecute los trigers y sumen total y bajen existencias en las sucesivas tablas, pero hice por ahi un insert tambien. Podria alguien ayudarme, soy nuevo en esto gracias. Anexo mi codigo
Imports System.Data.SqlClient Imports System.Data
Public Class Form1 Public objBD As New clasBD()
Private Con As SqlConnection Private sql As String Private Da As SqlDataAdapter Private Cmd As SqlCommand
Public Connection As New SqlConnection("Data Source=localhost;Initial Catalog=BdRhema;Persist Security Info=True;User ID=sa;Password=bdd")
Private res As Double Private Sub Form1_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 'BdRhemaDataSet.pv' Puede moverla o quitarla según sea necesario. Me.PvTableAdapter.Fill(Me.BdRhemaDataSet.pv) 'TODO: esta línea de código carga datos en la tabla 'BdRhemaDataSet.productos' Puede moverla o quitarla según sea necesario. Me.ProductosTableAdapter.Fill(Me.BdRhemaDataSet.productos)
Me.DescripcionTextBox1.Text = "" Me.ArchivoTextBox.Text = "" Me.CantidadTextBox.Text = "" Me.CvventaTextBox.Text = ""
End Sub Private Sub btnpagar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpagar.Click Dim total As Double Dim cant As String Dim descripcion As String Dim preciov As String
'res = txtcantidad.Text * CostoTextBox.Text 'lbltotal.Text = "$ " + res.ToString
'sql = "SELECT MAX(cvventa)+1 AS 'cvv' FROM ventas" 'Da = New SqlDataAdapter(sql, Con) 'Da.Fill(DatSet) 'If DatSet.Tables(0).Rows.Count > 0 Then ' cvventa = DatSet.Tables(0).Rows(0).Item("cvv") 'End If
'sql = "ventas_insertar " + cvventa.ToString + ",2211" 'Cmd = New SqlCommand(sql, Con) 'Cmd.ExecuteNonQuery()
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End End Sub Private Sub NombreLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click If Me.DescripcionTextBox1.Text <> "" Then If Me.ArchivoTextBox.Text <> "" Then If Me.CostoTextBox.Text <> "" Then If Me.CantidadTextBox.Text <> "" Then If Me.CvventaTextBox.Text <> "" Then End If End If 'agregamos la informacion a un row o fila del datagrid Me.DataGridView2.Rows.Add(Me.CvproductoTextBox.Text, Me.DescripcionTextBox1.Text, Me.ArchivoTextBox.Text, Me.CostoTextBox.Text, Me.CantidadTextBox.Text, Me.CvventaTextBox.Text) 'limpiamos los controles Me.DescripcionTextBox1.Text = "" Me.ArchivoTextBox.Text = "" Me.CantidadTextBox.Text = "" Me.CvventaTextBox.Text = "" End If Else MessageBox.Show("Ingres bien el producto PLEASE", "", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End If
End Sub
Private Sub DataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellContentClick
' hacer referencia al nombre de la columna para saber donde hicieron click o solo con el e.columnindex sabiendo la posicion de la columna 'yo lo manejo asi por que se daran cuenta que en algun caso las columnas pueden aumentar o disminuir 'y se complicaria la cosa por que si cambia el numero de columnas habria que corregir siembre el indice
'si hicieron clic en la columna eliminar If DataGridView2.Columns(e.ColumnIndex).Name = "Eliminar" Then 'eliminar row DataGridView2.Rows.RemoveAt(e.RowIndex) End If End Sub Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click
Dim DatSet As New DataSet Dim cvventa As Integer
If DataGridView2.Rows.Count > 0 Then
Dim SqlString As String = "" ' variable a la que asignaremos la sentencia Dim ListSqlStrings As New ArrayList 'arregla donde ingresaremos las sentencias 'recorremos el datagrid como ya sabemos siempre se toma desde cero For i As Integer = 0 To DataGridView2.Rows.Count - 1 'creamos la sentencia el row siempre tendra el valor de i para ir pasando de row en row 'el campo .cells(0) indica la columna que esta ese dato, tambien puede hacerlo con el nombre de la celda .cells("Nombre")
sql = "SELECT MAX(cvventa)+1 AS 'cvv' FROM ventas" Da = New SqlDataAdapter(sql, Connection) Da.Fill(DatSet) If DataGridView2.Rows.Count > 0 Then cvventa = DataGridView2.Rows(0).Cells("cvv").ToString End If
'sql = "ventas_insertar " + cvventa.ToString + "" 'Cmd = New SqlCommand(sql, Connection) 'Cmd.ExecuteNonQuery()
SqlString = "INSERT pv (descripcion, archivo, precio, cantidad, cvproducto, cvventa) VALUES ('" + DataGridView2.Rows(i).Cells(0).Value.ToString + "','" + DataGridView2.Rows(i).Cells(1).Value.ToString + "','" + DataGridView2.Rows(i).Cells(2).Value.ToString + "','" + DataGridView2.Rows(i).Cells(3).Value.ToString + "','" + DataGridView2.Rows(i).Cells(4).Value.ToString + "','" + cvventa.ToString + "')" '" + DataGridView2.Rows(i).Cells(0).Value.ToString + "," + DataGridView2.Rows(i).Cells(1).Value.ToString + "," + DataGridView2.Rows(i).Cells(2).Value.ToString + "," + DataGridView2.Rows(i).Cells(3).Value.ToString + "," + DataGridView2.Rows(i).Cells(4).Value.ToString + "," + DataGridView2.Rows(i).Cells(5).Value.ToString + ""
'agregamos la sentencia a la lista ListSqlStrings.Add(SqlString) Next If EjecutarTransaccion(ListSqlStrings) Then MessageBox.Show("Info. guardada correctamente") 'Close() Else MessageBox.Show("La Info. no se guardo") End If Else MessageBox.Show("No hay informacion para guardar") End If
'res = PrecioTextBox.Text * CantidadTextBox.Text 'lbltotal.Text = "$ " + res.ToString
End Sub
'abre la conexion
Public Function AbrirConexion() As Boolean Dim band As Boolean = False Try Connection.Open() band = True Catch ex As Exception MessageBox.Show(ex.Message) End Try Return band End Function
'cierra la conexion Public Function CerrarConexion() As Boolean Dim band As Boolean = False Try Connection.Close() band = True Catch ex As Exception MessageBox.Show(ex.Message) End Try Return band End Function
Public Function EjecutarTransaccion(ByVal ListaSentencias As ArrayList) As Boolean Dim band As Boolean = False If AbrirConexion() Then Dim command As SqlCommand = Connection.CreateCommand() Dim transaction As SqlTransaction Dim strSentencia As Object Dim sentencia As String = "" transaction = Connection.BeginTransaction() command.Connection = Connection command.Transaction = transaction Try For Each strSentencia In ListaSentencias sentencia = strSentencia.ToString() command.CommandText = sentencia.ToString() command.ExecuteNonQuery() Next transaction.Commit() band = True Catch ex As Exception MessageBox.Show(ex.Message) Try transaction.Rollback() Catch ex2 As Exception MessageBox.Show(ex2.Message) End Try Finally CerrarConexion() End Try End If Return band End Function
end sub End Class
|
|
|
19
|
Programación / .NET (C#, VB.NET, ASP) / Ayuda con datagrid
|
en: 8 Junio 2012, 00:50 am
|
Hola foro, eh tengo un detalle con un proyecto pequeño, lo que pasa es que tengo una base de datos en SQL server 2008, y estoy haciendo una interface en Visual estudio 2008:
-inserte un DataGridView, realize la conexion a la base de datos, exactamente a la tabla "productos", ahora mi pregunta es como puedo hacer para agregar un producto desde el DataGrid, que se guarde en el mismo y tambien en mi base de datos.
Gracias
|
|
|
|
|
|
|