Por ahí encontré un ejemplo en VB 6.0 de como llamar datos de un formulario desplegando automáticamente dentro de otro.
Archivado en: ‘VB’ .
Crear un formulario flotante dentro de otro
23 abril, 2008
Cómo eliminar una tabla de una base de datos con Visual Basic
24 marzo, 2008Cuando elimina una tabla, también se eliminan todos los datos almacenados en aquella tabla. Si desea conservar los datos de la tabla, va a eliminar, escribir una aplicación Visual Basic con la que copia los datos a una tabla nueva antes de eliminar la tabla existente.
Primer Ejemplo
Visual Basic:
-
Function BorraTablaTemp()
-
-
Dim DataBaseName, TableName As String
-
Dim DB As Database, t As TableDef
-
Dim TableExists As Boolean
-
-
DataBaseName = App.Path & "\data.mdb"
-
TableName = "tmpTabla"
-
-
On Error GoTo errorhandler
-
Set DB = Workspaces(0).OpenDatabase(DataBaseName)
-
On Error Resume Next
-
-
Set t = DB.TableDefs(TableName)
-
TableExists = Err.Number = 0
-
-
If TableExists Then
-
DB.Execute "Drop Table " & TableName
-
End If
-
-
DB.Close
-
-
Exit Function
-
-
errorhandler:
-
-
Err.Raise Err.Number
-
Exit Function
-
-
End Function
Segundo Ejemplo:
hacemos una copia de la base de datos para borrar la tabla del ejemplo.
Visual Basic:
-
Function BorraTablaTemp()
-
Dim sourcedb as string
-
Dim destdb as string
-
-
On Error Resume Next
-
sourcedb = "c:\VB3\BIBLIO.MDB" ' Base Original
-
destdb = "C:\TEST.MDB" ' Base que utilizaremos para el ejemplo
-
FileCopy sourcedb, destdb ' Hacemos la copia
-
-
Dim db As Connection
-
Set db = New Connection
-
db.CursorLocation = adUseClient
-
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & destdb & ";"
-
db.Execute "Drop Table tmpTabla"
-
End Function
Tercer Ejemplo:
Genera un Recordset y recorre tabla por tabla hasta encontrar la que deseamos borrar.
Visual Basic:
-
Function BorraTablaTemp()
-
Dim cn As New ADODB.Connection
-
Dim rs As ADODB.Recordset
-
Dim sql As String
-
-
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & _
-
"Data Source=" & App.Path & "\data.mdb"
-
-
Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
-
Do While Not rs.EOF
-
If rs!TABLE_NAME = "tmpTabla" Then
-
sql = "DROP TABLE " & rs!TABLE_NAME
-
cn.Execute sql, , adCmdText
-
Exit Do
-
End If
-
rs.MoveNext
-
Loop
-
End Function
La sentencia If…Then…Else
27 enero, 2008Referencia del Lenguaje Visual Basic
If…Then…Else (Instrucciones)
Ejecuta de forma condicional un grupo de instrucciones, dependiendo del valor de una expresión.
If condition [ Then ]
[ statements ]
[ ElseIf elseifcondition [ Then ]
[ elseifstatements ] ]
[ Else
[ elsestatements ] ]
End If
O bien
If condition Then [ statements ] [ Else elsestatements ]
condition
Requerido. es una expresion que debe evaluarse como True o False, o como un tipo de datos que sea implícitamente convertible a Boolean.
» Leer más: La sentencia If…Then…Else
