Migrar a MySQL
Publicado por Alberto Medina (1 intervención) el 02/11/2007 14:59:49
Buenos dias a todos.
Tengo desarrollada una aplicacion en visual basic 6 y access (DAO) y por problemas con la el volumen de informacion que maneja nuestra empresa necesito urgente cambiarlo a MySQL o SQL Server, se que para esto tengo que cambiar la forma de conectarme a la base de datos, y no se si los queries que hago sobre la base de datos tambien haya que cambiarlos, ejemplos:
ws = "select * from Clientes where Clave = " & Val(txtClave)
Set frsVal = gdbBase.OpenRecordset(ws, dbOpenSnapshot)
ws = "select * from Clientes where Clave = " & Val(txtClave)
Set frsVal = gdbBase.OpenRecordset(ws, dbOpenDynaset)
If frsVal.EOF Then
frsVal.AddNew
Else
frsVal.Edit
End If
frsVal!Clave = Val(txtClave)
frsVal!Nombre = Trim(txtNombre)
frsVal.Update
frsVal.Close
ws = "UPDATE Det_Ordenes SET Factura = " & Val(txtFolio) & _
", FecFac = #" & Format(CDate(mskFecha), "yyyy-mm-dd") & "# where RegOC = '" & wsReg & "'"
gdbBase.Execute (ws)
Tengo desarrollada una aplicacion en visual basic 6 y access (DAO) y por problemas con la el volumen de informacion que maneja nuestra empresa necesito urgente cambiarlo a MySQL o SQL Server, se que para esto tengo que cambiar la forma de conectarme a la base de datos, y no se si los queries que hago sobre la base de datos tambien haya que cambiarlos, ejemplos:
ws = "select * from Clientes where Clave = " & Val(txtClave)
Set frsVal = gdbBase.OpenRecordset(ws, dbOpenSnapshot)
ws = "select * from Clientes where Clave = " & Val(txtClave)
Set frsVal = gdbBase.OpenRecordset(ws, dbOpenDynaset)
If frsVal.EOF Then
frsVal.AddNew
Else
frsVal.Edit
End If
frsVal!Clave = Val(txtClave)
frsVal!Nombre = Trim(txtNombre)
frsVal.Update
frsVal.Close
ws = "UPDATE Det_Ordenes SET Factura = " & Val(txtFolio) & _
", FecFac = #" & Format(CDate(mskFecha), "yyyy-mm-dd") & "# where RegOC = '" & wsReg & "'"
gdbBase.Execute (ws)
Valora esta pregunta


0