de ASP a VB...

[pcarvajal]

si inserto datos, en ASP es asi:
<%
SQL="INSERT INTO tabla (campo1, campo2) VALUES ('" & valor1 & "','" & valor2 & "')"
oConn.Execute(SQL)
%>

en visual como deberia hacerlo?????
seria algo asi?????

Private Sub Grabar()
SQL="INSERT INTO tabla (campo1, campo2) VALUES ('" & valor1 & "','" & valor2 & "')"
oConn.Execute(SQL)
end Sub

[u_goldman]

Visual 6??

Supongo que estás haciendo un componente?

Primero necesitas agregar las referencias de ADO
Microsoft ActiveX Data Object Library

Después lo más recomendable es que hagas tu conexión y cadena de conexión, en este caso una constante cadConx desde la sección general de declaraciones

Private Oconn As ADODB.Connection
Const cadConx = "DSN=tuDSN"



Despues tienes tu Sub

Private Sub Grabar(valor1, valor2)
Set Oconn = New ADODB.Connection
Oconn.Open cadConx
Oconn.Execute("INSERT INTO tabla (campo1, campo2) VALUES ('" & valor1 & "','" & valor2 & "')")
End Sub

Algo así...

Salu2,

[pcarvajal]

el ejemplo original (y que no me funciona) es algo asi:

Private Sub Grabar_bien()
If txtcompleto.Text <> "" And txtdescripcion.Text <> "" Then
If MsgBox("Graba Bien", vbQuestion + vbYesNo, "Pregunta") = vbYes Then
Sql = "SELECT * FROM BIEN WHERE Codigo_bien = '" & txtcompleto.Text & "'"
Set Rs = New ADODB.Recordset: Rs.Open Sql, BaseDatos, adOpenDynamic, adLockOptimistic

If Not Rs.EOF Then

Sql1 = "insert into bien values('" & txtfam & "','" & lblfamilia.Caption & "','" & txtsubfam & "', '" & lblsubfam.Caption & "', '" & txttiposub & "', '" & lbltiposub.Caption & "', '" & txtcorrelativo & "', '" & txtcompleto & "', '" & txtalternativo & "', '" & txtdescripcion & "'," _
& " '" & txtcorto & "','" & txttemporada & "','" & lbltemporada.Caption & "','" & txtrut & "', '" & txtdv & "', '" & lblnombre.Caption & "', '" & txtanalisis & "', '" & lblanalisis.Caption & "', '" & txtdocumento & "', " _
& " '" & lbldocumento.Caption & "','" & txtnumdoc & "','" & txtunidad & "','" & lblunidad.Caption & "', " & txtvalororig & ", '" & txtmoneda & "', '" & lblmoneda.Caption & "', " & txttcambio & ", '" & txtfinanciam & "', " _
& " '" & lblfinancia.Caption & "','" & fechaCompra & "','" & txtcantidad & "','" & txtcorrelibro & "', '" & txttipodepre & "', '" & lbldepreciacion.Caption & "', '" & txtestado & "', '" & lblestado.Caption & "', '" & txtctaactivo & "', " _
& " '" & txtctadepre & "','" & txtctadepreacum & "','" & txtcta & "','" & txtzona & "', '" & lblzona.Caption & "', '" & txtSeccion & "', '" & lblSeccion.Caption & "', '" & txtsubseccion & "', '" & lblsubseccion.Caption & "', '" & txtcencosto & "', '" & lblcencosto.Caption & "', '" & txtcuartel & "', '" & lblcuartel.Caption & "', '" & txtrutencarg & "', '" & txtdvencarg & "', '" & lblencargado.Caption & "', " & txtVlibro & ", " & txtVresidual & ", '" & FechaIncorp & "', '" & FechaBaja & "', '" & txtseguro & "', '" & lblseguro.Caption & "', '" & txtpoliza & "', " _
& " '" & txtcorrmon & "','" & txtdepacum & "'," & txtvalorcorr & "," & txtamorcorr & ", '" & txtdepmensual & "', '" & txtvidautil & "', '" & txtultmesdep & "', '" & txtultanodep & "', '" & txtmesesdep & "', '" & TxtNota & "')"
Else
MsgBox "", vbExclamation, "Alerta"
End If
End If
Else
MsgBox "Debe crear el codigo antes de grabar", vbExclamation, "Alerta"
End If
End Sub


en el fondo no me ejecuta el insert, y no entiendo porqué.

[u_goldman]

que es eso??? ja ja ja, a ver...eso será mejor por partes porque si no pos nomás no le vamos a dar, primero, que error te manda?
después imprime la salida, preferentemente por partes para ver de que se trata, y ya veremos cual es el error.

Salu2,