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.