La Web del Programador: Comunidad de Programadores
 
    Pregunta:  19390 - COMO AGREGO UNA TABLA CON ADO
Autor:  Elizabeth Segura
Necesito agregar una tabla a una BD existente y también agregar campos a tablas ya creadas en esa BD con tecnología ADO, alguien podría proporcioname ayuda?

  Respuesta:  Javier Perez
Para añadir tablas se puede utilizar la instrucción SQL "CREATE TABLE" ejecutada mediante un objeto ADODB.Command. El siguiente código proporciona el esquema básico para crear una tabla en un servidor SQL Server:

Dim strCnx As String
Dim strSQL As String

' Abrir conexión
Set cn = New ADODB.Connection
strCnx = "Provider=sqloledb;Data Source=SERVIDORSQL;Initial Catalog=DBSQL;User Id=sa;Password=; "
cn.Open strCnx

Set cm = New ADODB.Command
strSQL = "CREATE TABLE Tabla ( ... );"
' Los detalles de la instrucción SQL necesaria dependen de la tabla a generar y del servidor de BB.DD. empleado
cm.ActiveConnection = cn
cm.CommandText = strSQL
cm.Execute

Para modificar la estructura de una tabla el procedimiento sería similar al descrito, mediante la sentencia SQL "ALTER TABLE".