Se requiere un objeto
Me podrías explicar porque me sale "se requiere un objeto " con este código
Que hago mal, quiero borrar todos los registros de la tabla "xdiario"
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
adoR1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\reparaciones.mdb"
adoR1.RecordSource = "select * from xdiario"
adoR1.Refresh
adoR1.Recordset.MoveFirst
While adoR1.Recordset.EOF = False
adoR1.Recordset.Delete
adoR1.Recordset.MoveNext
Wend
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Que hago mal, quiero borrar todos los registros de la tabla "xdiario"
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
adoR1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\reparaciones.mdb"
adoR1.RecordSource = "select * from xdiario"
adoR1.Refresh
adoR1.Recordset.MoveFirst
While adoR1.Recordset.EOF = False
adoR1.Recordset.Delete
adoR1.Recordset.MoveNext
Wend
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
1 Respuesta
Respuesta de denciso
1
Y cuando instanciaste el objeto adoR1, sugiero utilizar mejor un delete from xdiario
cuando pongo la instruccion delete from xdiario , me sale un error " error de compilacion : se esperaba: fin de la instruccion "
Sugiero que uses el objeto connection, este te permite ejecutar la sentencia de sql que te envíe...
http://www.w3schools.com/ado/ado_connect.asp
http://www.w3schools.com/ado/ado_connect.asp
Esta es toda la instrucción y me sigue dando error
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "northwind"
Delete from xdiario
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Gracias por tu esfuerzo, pero no se lo que pasa
Saludos
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "northwind"
Delete from xdiario
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Gracias por tu esfuerzo, pero no se lo que pasa
Saludos
He probado esto otro y me sale : "error de compilación: error se sintaxis "
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "f:/mis documentos/empresa/reparaciones.mdb"
'Set conn = Server.CreateObject("ADODB.Connection")
'conn.Open "xdiario"
Delete from xdiario
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Saludos
franespi
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "f:/mis documentos/empresa/reparaciones.mdb"
'Set conn = Server.CreateObject("ADODB.Connection")
'conn.Open "xdiario"
Delete from xdiario
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Saludos
franespi
Esto último va bien:
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "f:/mis documentos/empresa/reparaciones.mdb"
conn.execute "Delete from xdiario"
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
El cambio solo se presenta en lo que incluí como propiedad execute de la conexión...
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "f:/mis documentos/empresa/reparaciones.mdb"
conn.execute "Delete from xdiario"
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
El cambio solo se presenta en lo que incluí como propiedad execute de la conexión...
Con la instrucción
dim conn as ADODB.Connection
Me sale " error compilación : no se ha definido el tipo definido por el usuario "
Y con la instrucción
dim conn as variant
Me sale " se requiere un objeto "
Saludos
franespi
dim conn as ADODB.Connection
Me sale " error compilación : no se ha definido el tipo definido por el usuario "
Y con la instrucción
dim conn as variant
Me sale " se requiere un objeto "
Saludos
franespi
Esto es lo que he puesto, lo he copiado directamente y cuando lo ejecuto me sale
" Se requiere un objeto ", no lo entiendo ! Perdona pero es un desespero
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "f:/mis documentos/empresa/reparaciones.mdb"
conn.Execute "Delete from xdiario"
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Saludos
franespi
" Se requiere un objeto ", no lo entiendo ! Perdona pero es un desespero
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "f:/mis documentos/empresa/reparaciones.mdb"
conn.Execute "Delete from xdiario"
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Saludos
franespi
Creo que falta al principio un
dim conn as ADODB.Connection
o
dim conn as variant
dim conn as ADODB.Connection
o
dim conn as variant
Gracias por tu colaboración, ya he conseguido el resultado te mando el código
para que lo veas
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Dim Conn, Rs, sql
Set Conn = CreateObject("ADODB.Connection")
Conn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "f:/mis documentos/empresa/reparaciones.mdb")
sql = "Delete from xdiario"
Set Rs = Conn.Execute(sql)
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Muchas gracias
Saludos
Seguiré esperando tu ayuda futura
franespi
para que lo veas
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Dim Conn, Rs, sql
Set Conn = CreateObject("ADODB.Connection")
Conn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "f:/mis documentos/empresa/reparaciones.mdb")
sql = "Delete from xdiario"
Set Rs = Conn.Execute(sql)
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Muchas gracias
Saludos
Seguiré esperando tu ayuda futura
franespi
Ok, perfecto, me parece bien, tome como consideración que tenemos que definir el tipo de variable que vamos a usar y dentro de access el dim variable te las define por defecto de tipo variable...
