tipo cursor conexion sql y vb

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

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

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
>
>

Hola Maxi

Donde puedo conseguir un buen tutorial de SP???

Un saludo,

"MAXI [MVP SQL]" escribió en el mensaje
news:
Mostrar la cita

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
>
>

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