Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Public Cn As ADODB.Connection
Public Cmd As ADODB.Command
Private Sub Form_Load()
Dim CadCn As String
CadCn= "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\Citas\Citas.mdb;Persist Security Info=False"
Set Cn = New ADODB.Connection
Cn.ConnectionString = CadCn
Cn.Open
CadSql = "delete nombre_de_tabla"
Set Cmd = New ADODB.Command
Cmd.CommandType=adStoredProcedure
Cmd.CommandText = CadCmd
Cmd.ActiveConnection = Cn
Cmd.Execute
End Sub
Si quieres hacerlo para SQL solo cambias la cadena de conexion.