Ver Mensaje Individual
  #3 (permalink)  
Antiguo 11/07/2011, 14:16
pipeman2009
 
Fecha de Ingreso: septiembre-2010
Mensajes: 27
Antigüedad: 14 años, 2 meses
Puntos: 0
Respuesta: Multiples usuarios sobre una base de datos VFP

Es que el problema es que si lo hago, uso este sistema deja mostrate
Código vb:
Ver original
  1. Dim consulta As New OleDbCommand("SELECT nsol,norden FROM solicitu WHERE nsol = (SELECT max(nsol) FROM solicitu)", myConn)
  2.             myConn.Open()
  3.             Dim Lector As Object = consulta.ExecuteReader
  4.             Lector.Read()
  5.             codigoAnterior = Lector.item("nsol").ToString.Trim
  6.             NOrdenAnterior = Lector.item("norden").ToString.Trim
  7.             myConn.Close()
  8.  
  9.             codigo = " " & (Int(codigoAnterior) + 1)
  10.             txtAnalisisNLab1.Text = Int(NOrdenAnterior) + 1
  11.             NOrden = txtAnalisisNLab1.Text
  12.  
  13.             myConn = New OleDbConnection(sConexion)
  14.             myConn.Open()
  15.             commin.Connection = myConn
  16.             commin.CommandText = "INSERT INTO solicitu (soltipo,nsol,norden) VALUES ('" & tipoSolicitud & "','" & codigo & "',' " & NOrden & "')"
  17.             With commin
  18.                 .CommandType = CommandType.Text
  19.                 .ExecuteNonQuery()
  20.             End With
  21.             myConn.Close()

Todo eso dentro del boton que crea un nuevo numero de solicitud, pero al accionar dos usuarios, en distintos equipos, el boton a la vez ambos tomas el numero 10 en vez de que uno tome el 10 y el otro el 11