Ayuda con INSERT INTO
este es el problema: Tengo en mi base de datos Access 2000 una tabla con dos campos:
- RIF que es de tipo numerico
-DECISION que es de tipo Si / No
en el formulario tengo un Texbox donde escribo lo que voy a guardar en el campo RIF, tambien tengo un Checkbox que activo o desactivo y lo guardo en el campo DECISION.
como introduzco esto en la base de datos
dim cn as adodb.connection
set cn = New adodb.connection
cn.execute " Insert into TABLA (RIF, DECISION) Values ( ???????????? )
como es la sintaxis para esto???
- RIF que es de tipo numerico
-DECISION que es de tipo Si / No
en el formulario tengo un Texbox donde escribo lo que voy a guardar en el campo RIF, tambien tengo un Checkbox que activo o desactivo y lo guardo en el campo DECISION.
como introduzco esto en la base de datos
dim cn as adodb.connection
set cn = New adodb.connection
cn.execute " Insert into TABLA (RIF, DECISION) Values ( ???????????? )
como es la sintaxis para esto???
Esta prueba la realize en base a lo que comentas y con esto trabaja perfectamente, espero te sirva y enviame un correo si tienes algun otro problema
SALUDOS!!!
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim V_Rif As Integer
Dim V_Decision As Integer
Set cn = New ADODB.Connection
cn.Open "UID=;PWD=;DSN=prueba4;"
V_Rif = Val(Combo1.Text)
V_Decision = Check1.Value
cn.Execute " Insert into tabla (RIF,decision) Values ('" & V_Rif & "'," & " '" & V_Decision & " '" & ") "
End Sub
SALUDOS!!!
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim V_Rif As Integer
Dim V_Decision As Integer
Set cn = New ADODB.Connection
cn.Open "UID=;PWD=;DSN=prueba4;"
V_Rif = Val(Combo1.Text)
V_Decision = Check1.Value
cn.Execute " Insert into tabla (RIF,decision) Values ('" & V_Rif & "'," & " '" & V_Decision & " '" & ") "
End Sub
Hola Baudy,
La instrucción en SQL para la consulta de acción que te permitirá añadir un nuevo registro a tu base de datos sería:
dim A as single
dim B as string
dim InstruccionSQL as string
A=csng(TextBox1.Text) 'Pasamos el contenido texto del TextBox a número
If CheckBox1.Value=1 then B="Yes" else B="No"
InstruccionSQL = "INSERT INTO tbl_Tabla1 (tbl_Tabla1.RIF, tbl_Tabla1.Decision) VALUES (" & A & ",'" & B & "')"
'Ahora ejecutas la instrucción SQL.
'No sé que complemento .ocx utilizas para trabajar con la base de datos.
cn.execute InstruccionSQL
Saludos.
seispesetas
La instrucción en SQL para la consulta de acción que te permitirá añadir un nuevo registro a tu base de datos sería:
dim A as single
dim B as string
dim InstruccionSQL as string
A=csng(TextBox1.Text) 'Pasamos el contenido texto del TextBox a número
If CheckBox1.Value=1 then B="Yes" else B="No"
InstruccionSQL = "INSERT INTO tbl_Tabla1 (tbl_Tabla1.RIF, tbl_Tabla1.Decision) VALUES (" & A & ",'" & B & "')"
'Ahora ejecutas la instrucción SQL.
'No sé que complemento .ocx utilizas para trabajar con la base de datos.
cn.execute InstruccionSQL
Saludos.
seispesetas
Gracias por la respuesta muchachos fue de gran ayuda...
Saludos desde Venezuela
Saludos desde Venezuela
