¿Existe una forma elegante de insertar registros? Soluccionado!!

[lucasarts_18]

Hola a todos:

Existe alguna mejor forma de insertar registros que no sea de la siguiente forma:

Código:

varSql = "insert into tb_seguimiento_deudor (nr_ficha, nm_observacion_d, fc_seguimiento_d) values ('" & 5 & " ','" & obs & " ','" & fecha & "')"

En realidad la forma que ando buscando es preparar el comando y pasarle los valores por
parámetros y no directamente (lo encuentro una mala práctica).


Ando buscando algo similar a lo que se hace en php.

Código PHP:

  /* Prepare an insert statement */ 
$query = "INSERT INTO myCity (Name, CountryCode, District) VALUES (?,?,?)"; 
$stmt = $mysqli->prepare($query); 
 
$stmt->bind_param("sss", $val1, $val2, $val3); 
 
$val1 = 'Stuttgart'; 
$val2 = 'DEU'; 
$val3 = 'Baden-Wuerttemberg'; 
 
/* Execute the statement */ 
$stmt->execute(); 
 
$val1 = 'Bordeaux'; 
$val2 = 'FRA'; 
$val3 = 'Aquitaine'; 
 
/* Execute the statement */ 
$stmt->execute(); 
 
/* close statement */ 
$stmt->close();  
   

Gracias por el tiempo,

Saludos .-

[lucasarts_18]

Estimados:

He encontado la manera, hay que realizarlo mediante la instrucción command.

Ej:

Código:

Private Sub mostrarCliente(varRut, varNroFicha)
   
   Dim cmd As ADODB.Command
   Dim rs1 As Recordset
   
   Set cmd = New ADODB.Command
   cmd.ActiveConnection = cnn
   
   varSql = "select * from hfpaci where rut_paciente = ? or numero_ficha = ?"
   
   cmd.CommandText = varSql
   If Not IsNull(varRut) Then
      cmd.Parameters(0).Value = varRut
   Else
      cmd.Parameters(0).Value = Null
   End If
   If Not IsNull(varNroFicha) Then
      cmd.Parameters(1).Value = varNroFicha
   Else
      cmd.Parameters(1).Value = Null
   End If
   
   Set rs1 = cmd.Execute()
      
   Set DGridClientes.DataSource = rs1
   DGridClientes.Refresh
   
   
   
   'rs.Close

End Sub

Me funciona, pero al momento de asignar el recorset el datagrid me dice lo siguiente:

El conjunto de registro no acepta marcadores

¿Qué podría ser?

Saludos .-

[Avellaneda]

Iniciado por lucasarts_18

Estimados:

He encontado la manera, hay que realizarlo mediante la instrucción command.

Ej:

......

Me funciona, pero al momento de asignar el recorset el datagrid me dice lo siguiente:

El conjunto de registro no acepta marcadores

¿Qué podría ser?

Saludos .-

Antes de ejecutar el comando, pon el cursor de la conexión del lado cliente:

cnn.CursorLocation = adUseClient

[lucasarts_18]

Iniciado por Avellaneda

Antes de ejecutar el comando, pon el cursor de la conexión del lado cliente:

cnn.CursorLocation = adUseClient

Gracias, funciona bien...