Visual Basic - Consulta sql para insertar registro

Life is soft - evento anual de software empresarial
 
Vista:

Consulta sql para insertar registro

Publicado por kiwa (9 intervenciones) el 06/06/2002 22:26:04
Fijate lo que intento hacer es q del Formulario que tengo en pantalla que es de la tabla datos me cree un registro en la tabla Factura con algunos de los campos del formulario que tengo en pantalla que es como te dije de la tabla datos
Te agradezco q me ayudes
me da error
Dim sSQL As String
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
sSQL = "INSERT INTO factura[(Id Factura [,Datos[,fecha Factura[,factura])]]]_& VALUES (txtFields(0).text[,txtFields(1).text[,txtFields(2).text[,txtFields(3).text ])"
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\WINDOWS\Escritorio\Db1.mdb")
Set rs = db.OpenRecordset(sSQL, dbOpenTable)
With rs
If .RecordCount > 0 Then
.MoveFirst
' "" Start fields code here
'"" End Field code here
End If
End With
rs.Close
Set rs = Nothing
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Consulta sql para insertar registro

Publicado por alberto (278 intervenciones) el 07/06/2002 08:53:08
En principio la sintaxis (SQLServer, Access,...) de la sentencia de insercción es, en tu caso:
Insert into factura ([Id Factura],[Datos],[fecha Factura], [factura]) VALUES (vALOR1,vALOR2,vALOR3,vALOR4)
por lo que la sentencia que usas es sintacticamente incorrecta, fijate en los [,], por otro lado si los campos son de texto deben ir entre apostrofos (') y tener en cuenta que los valores que se ingresan en dichos campos de texto no deben contener apostrofos y si los contienen deben ser sustituidos por apostrofos dobles ('')
Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar