Visual Basic - aplicacion Cliente Servidor

Life is soft - evento anual de software empresarial
 
Vista:

aplicacion Cliente Servidor

Publicado por niwdeloko (8 intervenciones) el 28/04/2008 23:50:05
Holas..-..
tengo una aplicacion de escritorio que ahora tiene que funcionar cliente servidor osea...el programita es algo sencillo es ed cobranza en un pequeño supermercado...
trabajo con vb6 - mysql todo va bien pero cuando guardo se demora en guardar mediante la red... esta es mi conexion:
chekenla:
Public Sub CONECTAR()
Dim STRHOST As String
Dim STRDATABASE As String
Dim STRUSER As String
Dim STRPASS As String
Dim STRCONSTRING As String

If CON.State = 0 Then

On Error GoTo conexion
STRHOST = "192.168.1.20"
STRDATABASE = "lujan"
STRUSER = "root"
STRPASS = "lujan"
Source=\Servidorddd1.mdb;Persist Security Info=False"
STRCONSTRING = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & STRHOST & ";" _
& "DATABASE=" & STRDATABASE & ";" _
& "UID=" & STRUSER & ";PWD=" & STRPASS & "; OPTION=3"
'On Error GoTo CONERROR
With CON
.ConnectionString = STRCONSTRING
.CursorLocation = adUseClient
.Open
End With
COMM.ActiveConnection = CON
Exit Sub
conexion:
MsgBox Err.Number & " " & Err.Description & " ", vbCritical, "Asegurese que el Servidor este encendido..."
Else
End If
end sub

Y ESTA MI FUNCION CON LA QUE GUARDO
...-.-
Public Sub GUARDARDATOS(CAMPOS As String, VALORES As String, Tabla As String)
Dim RSQL As New Recordset

RSQL.Open "INSERT INTO " & Tabla & CAMPOS & " VALUES " & VALORES, CON, adOpenStatic, adLockOptimistic

Set RSQL = Nothing

End Sub

Y DESDE AQUI LLAMO AMI FUNCION DESDE OTRO FORMULARIO CLARO
-.-.
Private Sub GuardarVenta()
Dim VALORES As String
Dim CAMPOS As String
Dim CAMBIOS As String
Dim SQL As String
Dim TM As New Recordset
Dim I As Integer

If CONDECIMAL(Text8.Text) > CONDECIMAL(Text6.Text) Then
Else
MsgBox "El Monto Es menor o NO ingreso ni una Cantidad", vbCritical
Text8.SetFocus
SendKeys "{Home}+{End}"
Exit Sub
End If

With FRM_CAJA

CAMPOS = "(NUMERO, NOTA, TIPO, CLIENTE, FECHA, DOLAR, CAJERO, TOTAL, ENTREGADO, CAMBIO, USUARIO, FACTURA, NUMFACTURA, NIT, SENOR, CDOLAR)"
VALORES = "( " & CrearID("VENTAS") & "," & "'" & .Text1.Text & "', " & _
"" & "'" & Combo1.Text & "'," & "'" & Text1.Text & "', " & _
"" & "'" & Format(.Text5.Text, "YYYY/MM/DD") & "'," & "'" & ConPunto(Text9.Text) & "', " & _
"" & "'" & .Text3.Text & "'," & "'" & ConPunto(.Text12.Text) & "', " & _
"" & "'" & ConPunto(Text8.Text) & "'," & "'" & ConPunto(Text10.Text) & "', " & _
"" & "'" & USERLINE & "'," & "'" & Check1.Value & "', " & _
"" & "'" & .Text2.Text & "'," & "'" & Text5.Text & "', " & _
"" & "'" & Text4.Text & "'," & "'" & ConPunto(Text11.Text) & "')"

Call GUARDARDATOS(CAMPOS, VALORES, "VENTAS")

For I = 1 To .Grilla.Rows - 1
If .Grilla.TextMatrix(I, 1) <> "" Then
CAMPOS = "(NUMERO, NOTA, COD_PRO, UND, CANTIDAD, PRECIO)"
VALORES = "( " & CrearID("VENTAS_DETALLE") & ", '" & .Text1.Text & "', " & _
"" & "'" & .Grilla.TextMatrix(I, 1) & "'," & "'" & .Grilla.TextMatrix(I, 4) & "', " & _
"" & "'" & .Grilla.TextMatrix(I, 3) & "'," & "'" & ConPunto(.Grilla.TextMatrix(I, 6)) & "')"

Call GUARDARDATOS(CAMPOS, VALORES, "VENTAS_DETALLE")

Dim VALOR As Integer
SQL = "SELECT CANTIDAD FROM ALMACEN WHERE COD_PRO = " & "'" & .Grilla.TextMatrix(I, 1) & "'"
Set TM = CON.Execute(SQL)
If TM.BOF Then
Else
VALOR = TM.Fields("CANTIDAD").Value - CDec(.Grilla.TextMatrix(I, 3))
CAMBIOS = "cantidad =" & VALOR & ""
CON.Execute "UPDATE ALMACEN SET " + CAMBIOS + " WHERE COD_PRO = " & "'" & .Grilla.TextMatrix(I, 1) & "'"

End If


End If
Next
End With
Call ImprimirNota
Unload Me
Unload FRM_CAJA
FRM_CAJA.Show

End Sub

AHBER QUE ME DICEN ALGUN CONSEJO DE CONEJO

desde ya Gracias..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder