Visual Basic - Ayuda Por Favor

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda Por Favor

Publicado por Betsy M. (28 intervenciones) el 05/11/2007 18:46:41
hola necesito ayuda yo tengo mi base de datos que se llama comisiones y tengo una tabla que se llama contratos en visual basic quiero crear una tabla temporal y guardarla en mi base de datos con 4 campos de la tabla contratos y en esa tabla temporal guardar los datos que yo le indique.

me explico.

tengo dos cajas de texto una se llama fecha_inicial y la Otra fecha_final donde yo coloco las respectivas fechas eso me lo buscaria en mi tabla de contratos y luego si me consigue esas fechas quiero que me las guardara en mi tabla temporal .

mi codigo es este:

Private Sub CmdProceso_Click()

Dim db As ADODB.Connection
Dim miRS As ADODB.Recordset
Dim sSQL As String
Dim SQL As String

Set db = New ADODB.Connection
Set miRS = New ADODB.Recordset

' AQUI CREO MI TABLA TEMPORAL

SQL = "CREATE TABLE Tabla "
SQL = SQL & "(CONT DOUBLE, "
SQL = SQL & "FECHACON DATETIME, "
SQL = SQL & "NOMBRE1 TEXT(30),"
SQL = SQL & "FECHAPRO DATETIME )"

db.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & RutaBD() & ";" & _
"Jet OLEDB:Database Password=1234"

'Ejecución de la sentecia sql sobre la BD
db.Execute SQL
db.Close
'Set db = Nothing

Set db = New ADODB.Connection
Set miRS = New ADODB.Recordset

sSQL = "SELECT Contratos.CONT, Contratos.FECHACON, Contratos.NOMBRE1, Contratos.FECHAPRO FROM Contratos"
MsgBox sSQL

db.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & RutaBD() & ";" & _
"Jet OLEDB:Database Password=1234"

miRS.Open sSQL, db, adOpenDynamic, adLockOptimistic

EN ESTE PUNTO ES DONDE ME SALE UN ERROR 3265 NO ENCONTRO EL ELEMENTO

miRS.MoveNext
If Not miRS.EOF Then
miRS.MoveFirst
If miRS("Contratos.FECHAPRO") >= TxtFechaInicial.Text And miRS("Contratos.FECHAPRO") <= TxtFechaFinal.Text Then
miRS.AddNew
End If
End If

End Sub

si me pueden ayudar se los agradecere milll gracias de antemano-.
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:Ayuda Por Favor

Publicado por ivan (1041 intervenciones) el 05/11/2007 19:04:51
¿¿¿ miRS("Contratos.FECHAPRO") ???

Eso está mal, prueba así:
If miRS("FECHAPRO") >= TxtFechaInicial.Text And miRS("FECHAPRO") <= TxtFechaFinal.Text Then
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

gracias

Publicado por Betsy M (28 intervenciones) el 05/11/2007 19:23:07
gracias ivan me funciono
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