tipo cursor conexion sql y vb

04/06/2006 - 20:37 por comuner | Informe spam
Hola
Tengo una aplicacion vb que guarda datos contra sql server con ado, por
ahora lo hago asi:

Set cnn = New ADODB.Connection
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;Data
Source=server;Initial catalog=gestion;User ID=gestion;Password=gestion"
Set rsLineas = New ADODB.Recordset
With rsLineas
.ActiveConnection = cnn
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseServer
.Open "SELECT * FROM lineas_ticket", , , , adCmdText
End With
For cuenta = 0 To frmTickets.grid.Rows - 1
rsLineas.AddNew
rsLineas!serie = varNumeroCaja
rsLineas!numero = varNumeroUltimoTicket
rsLineas!cantidad = Val(frmTickets.grid.TextMatrix(cuenta, 0))
rsLineas!concepto = frmTickets.grid.TextMatrix(cuenta, 1)
rsLineas!precio_linea Val(Replace(frmTickets.grid.TextMatrix(cuenta, 2), ",", "."))
rsLineas!total_linea Val(Replace(frmTickets.grid.TextMatrix(cuenta, 3), ",", "."))
rsLineas.Update
Next
rsLineas.Close
Set rsLineas = Nothing

Mi pregunta es si es la mejor forma de añadir registros con sql server y si
es el mejor tipo de cursor.

Gracias
 

Leer las respuestas

#1 MAXI [MVP SQL]
05/06/2006 - 00:39 | Informe spam
Hola, yo realmente no uso sentencias de SQL desde la aplicacion como tu
caso. Armo Stores Procedures y los ejecuto desde la aplicacion. Hay muchas
ventajas en usar Sp's vs codigo en la aplicacion. Te paso un link para que
leas

http://www.hayes.ch/sql/sql_dinamico.html


Microsoft MVP SQL Server
Orador para Culminis
Miembro de SQLgurus (www.sqlgurus.org)
"comuner" escribió en el mensaje
news:%
Hola
Tengo una aplicacion vb que guarda datos contra sql server con ado, por
ahora lo hago asi:

Set cnn = New ADODB.Connection
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;Data
Source=server;Initial catalog=gestion;User ID=gestion;Password=gestion"
Set rsLineas = New ADODB.Recordset
With rsLineas
.ActiveConnection = cnn
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseServer
.Open "SELECT * FROM lineas_ticket", , , , adCmdText
End With
For cuenta = 0 To frmTickets.grid.Rows - 1
rsLineas.AddNew
rsLineas!serie = varNumeroCaja
rsLineas!numero = varNumeroUltimoTicket
rsLineas!cantidad = Val(frmTickets.grid.TextMatrix(cuenta, 0))
rsLineas!concepto = frmTickets.grid.TextMatrix(cuenta, 1)
rsLineas!precio_linea > Val(Replace(frmTickets.grid.TextMatrix(cuenta, 2), ",", "."))
rsLineas!total_linea > Val(Replace(frmTickets.grid.TextMatrix(cuenta, 3), ",", "."))
rsLineas.Update
Next
rsLineas.Close
Set rsLineas = Nothing

Mi pregunta es si es la mejor forma de añadir registros con sql server y
si
es el mejor tipo de cursor.

Gracias


Preguntas similares