Inserto into en Visual basic 6.0
Hola Expertos... Estoy necesitando su ayuda...
Tengo un form + 1 boton + 2 textbox
dentro del boton tengo el siguiente codigo.
Private Sub Command1_Click()
Dim cn1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn1.Open ("provider=MSDASQL.1;" & "extended properties=DSN=sql;UID=;PWD=;DATABASE=master;persist security info=false")
If rs.State <> ADODB.ObjectStateEnum.adStateClosed Then
rs.Close
End If
rs.CursorLocation = adUseClient
rs.Open "insert into tabla1 (campo1, campo2)VALUES('value1', ' value2')", cn1, adOpenStatic, adLockBatchOptimistic, ADODB.CommandTypeEnum.adCmdText
End Sub
Lo que estoy necesitando es que pueda reemplazar value1y value 2 con los valores que yo tipee dentro de los textbox...
¿Me porian ayudar con esto?
Gracias !
Tengo un form + 1 boton + 2 textbox
dentro del boton tengo el siguiente codigo.
Private Sub Command1_Click()
Dim cn1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn1.Open ("provider=MSDASQL.1;" & "extended properties=DSN=sql;UID=;PWD=;DATABASE=master;persist security info=false")
If rs.State <> ADODB.ObjectStateEnum.adStateClosed Then
rs.Close
End If
rs.CursorLocation = adUseClient
rs.Open "insert into tabla1 (campo1, campo2)VALUES('value1', ' value2')", cn1, adOpenStatic, adLockBatchOptimistic, ADODB.CommandTypeEnum.adCmdText
End Sub
Lo que estoy necesitando es que pueda reemplazar value1y value 2 con los valores que yo tipee dentro de los textbox...
¿Me porian ayudar con esto?
Gracias !
1 respuesta
Respuesta de jclaveria
1
Esto es lo que tu tienes...
Rs. Open "insert into tabla1 (campo1, campo2)VALUES('value1', ' value2')", cn1, adOpenStatic, adLockBatchOptimistic,
Para hacer la sustitución que necesitas deberías poner:
rs.Open strSQL,cn1,adOpenStatic,adLockBatchOptimistic,
o lo que seria lo mismo
strSQL = "insert into tabla1 (campo1,campo2) values (" & valor1 & "," & valor2 & ")"
Rs. Open strSQL, cn1, adOpenStatic, adLockBatchOptimistic.
Rs. Open "insert into tabla1 (campo1, campo2)VALUES('value1', ' value2')", cn1, adOpenStatic, adLockBatchOptimistic,
Para hacer la sustitución que necesitas deberías poner:
rs.Open strSQL,cn1,adOpenStatic,adLockBatchOptimistic,
o lo que seria lo mismo
strSQL = "insert into tabla1 (campo1,campo2) values (" & valor1 & "," & valor2 & ")"
Rs. Open strSQL, cn1, adOpenStatic, adLockBatchOptimistic.
