Insert Into

[dieguicho]

Hola a todos.
estoy insertando registros asi

Código PHP:

  set Command1 = Server.CreateObject("ADODB.Command") 
Command1.ActiveConnection = MM_coneccion_STRING 
Command1.CommandText = "INSERT INTO usuarios (empresa,pais,provincia,localidad,telefono,email,usuario,clave) VALUES (empresa,pais,provincia,localidad,telefono,email,usuario,clave)" 
Command1.CommandType = 1 
Command1.CommandTimeout = 0 
Command1.Prepared = true 
Command1.Execute()  
   

se puede en vez de declarar todo dentro del commandtext

hacerlo como si fuera agregando un registro desde un recordset?
por ej

rs1.addnew
rs1("campo") = algun valor
rs1.update

solo porque es mas comodo.. y se podria utilizar algun if o algo..
es posible?

saludossssssssssssssss

[LeCLUB]

Hombre, más cómodo no creo que sea, ya que de esta manera es más rápida, limpia, y además tienes la BBDD abierta un tiempo francamente bajo.

Que lo otro sea más "amigable", más "entendible" o más "casero", pues si, puede ;)

En cuanto a los If...End If, tambien los puedes utilizar en la forma que creas la consulta SQL actualmente

Pero bueno, respondiendo a tu pregunta, SI, se puede hacer de la forma que dices, utilizando RecordSets:

Código PHP:

  Conexion = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\db.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
set Rs = CreateObject("ADODB.Recordset")
Conn.open = Conexion
SQL = "Select * from usuarios"
Rs.open SQL, Conn, 2,3
Rs.addnew
Rs("campo") = algun valor
Rs.update
Rs.close
Conn.close
set Rs = Nothing
set Conn = Nothing  
   

Un saludo

[dieguicho]

si, lo se, que con recordsets se puede ... pero con commands no se puede "acomodar" de esa forma? ya uqe como dices que es mas veloz, etc. conviene utilizar commands en vez de recordsets

[LeCLUB]

También puedes ir "añadiendo" más datos a la consulta SQL:

Command1.CommandText = "SELECT * "
Command1.CommandText = Command1.CommandText & = "FROM Tabla1 "
Command1.CommandText = Command1.CommandText & = "WHERE bla bla bla"

y así tantas veces como quieras, y si quieres utilizar If...End if, tambien puedes:

Command1.CommandText = "SELECT * "
Command1.CommandText = Command1.CommandText & = "FROM Tabla1 "
if Request.QueryString("campo") = 1 Then
Command1.CommandText = Command1.CommandText & = "WHERE id=1"
else
Command1.CommandText = Command1.CommandText & = "WHERE id=2"
End if

Un saludo