<DIV =msg style=": left; OVERFLOW: auto">BUENAS AMIGOS FOREROS.

UAN CONSULTA:

PRIMERO QUE NADA LOS SIGUIENTES CODIGOS COMO SERIA EN DAO.



<DIV style="BORDER-RIGHT: #999999 0.75pt dashed; PADDING-RIGHT: 4pt; BORDER-TOP: #999999 0.75pt dashed; PADDING-LEFT: 4pt; PADDING-BOTTOM: 4pt; BORDER-LEFT: #999999 0.75pt dashed; PADDING-TOP: 4pt; BORDER-BOTTOM: #999999 0.75pt dashed">
REFERENCIA ADOX<?:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><?:NAMESPACE PREFIX = O /><O:P></O:P>
<O:P></O:P>
<O:P></O:P>
<O:P></O:P>
<O:P></O:P>
Dim cat As New ADOX.Catalog
Dim tbl(32) As New ADOX.Table<O:P></O:P><O:P></O:P>
Private Sub Command2_Click()
nom = ""
nom = InputBox("Escribe el nombre de la base de datos", "Crear Base")
If nom <> "" Then
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\" & nom & ".mdb;"<O:P></O:P><O:P></O:P>
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\" & nom & ".mdb;"
For i = 1 To 32
With tbl(i)
.Name = i
.Columns.Append "ID", adInteger
.Columns.Append "Nombre", adVarWChar, 255
.Columns.Append "Check", adVarWChar, 1

.Columns("Nombre").Attributes = adColNullable
.Columns("Check").Attributes = adColNullable<O:P></O:P><O:P></O:P>
End With
cat.Tables.Append tbl(i)
Next
nom = App.Path & "\" & nom & ".mdb"
MsgBox nom, , "Creada Satisfactoriamente en:"
End If
End Sub<O:P></O:P>





MEDIANTE SENTENCIA SQL.
<O:P></O:P>
<DIV style="BORDER-RIGHT: #999999 0.75pt dashed; PADDING-RIGHT: 4pt; BORDER-TOP: #999999 0.75pt dashed; PADDING-LEFT: 4pt; PADDING-BOTTOM: 4pt; BORDER-LEFT: #999999 0.75pt dashed; PADDING-TOP: 4pt; BORDER-BOTTOM: #999999 0.75pt dashed">Private Sub CrearTabla_Click()

Dim sql As String

Dim NombreTabla As String

Dim cn As ADODB.Connection



Set cn = New ADODB.Connection

' abrimos la conexión a la base de datos

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & _

"Data Source=" & App.Path & "\NombreBD.mdb"<O:P></O:P><O:P></O:P>
NombreTabla = Text1 ' o cualquier otra variable que quieras poner
' El campo id lo creamos de tipo autonumérico
sql = "CREATE TABLE " & NombreTabla & "(" & _
"id COUNTER CONSTRAINT miIndice UNIQUE, " & _
"Cliente NUMBER NOT NULL, " & _
"Fecha DATE NOT NULL, " & _
"Nombre VARCHAR(6) ," & _
"Factura NUMBER ," & _
"SiNo YESNO )"
cn.Execute sql, , adCmdText
MsgBox "Tabla creada"
End Sub<O:P></O:P>




SEGUNDO LOS SIGUIENTES CODIGOS COMO SERIA EN RDO.


<DIV style="BORDER-RIGHT: #999999 0.75pt dashed; PADDING-RIGHT: 4pt; BORDER-TOP: #999999 0.75pt dashed; PADDING-LEFT: 4pt; PADDING-BOTTOM: 4pt; BORDER-LEFT: #999999 0.75pt dashed; PADDING-TOP: 4pt; BORDER-BOTTOM: #999999 0.75pt dashed">
REFERENCIA ADOX<O:P></O:P>
<O:P></O:P>
<O:P></O:P>
<O:P></O:P>
<O:P></O:P>
Dim cat As New ADOX.Catalog
Dim tbl(32) As New ADOX.Table<O:P></O:P><O:P></O:P>
Private Sub Command2_Click()
nom = ""
nom = InputBox("Escribe el nombre de la base de datos", "Crear Base")
If nom <> "" Then
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\" & nom & ".mdb;"<O:P></O:P><O:P></O:P>
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\" & nom & ".mdb;"
For i = 1 To 32
With tbl(i)
.Name = i
.Columns.Append "ID", adInteger
.Columns.Append "Nombre", adVarWChar, 255
.Columns.Append "Check", adVarWChar, 1

.Columns("Nombre").Attributes = adColNullable
.Columns("Check").Attributes = adColNullable<O:P></O:P><O:P></O:P>
End With
cat.Tables.Append tbl(i)
Next
nom = App.Path & "\" & nom & ".mdb"
MsgBox nom, , "Creada Satisfactoriamente en:"
End If
End Sub<O:P></O:P>




MEDIANTE SENTENCIA SQL.
<O:P></O:P>
<DIV style="BORDER-RIGHT: #999999 0.75pt dashed; PADDING-RIGHT: 4pt; BORDER-TOP: #999999 0.75pt dashed; PADDING-LEFT: 4pt; PADDING-BOTTOM: 4pt; BORDER-LEFT: #999999 0.75pt dashed; PADDING-TOP: 4pt; BORDER-BOTTOM: #999999 0.75pt dashed">Private Sub CrearTabla_Click()

Dim sql As String

Dim NombreTabla As String

Dim cn As ADODB.Connection



Set cn = New ADODB.Connection

' abrimos la conexión a la base de datos

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & _

"Data Source=" & App.Path & "\NombreBD.mdb"<O:P></O:P><O:P></O:P>
NombreTabla = Text1 ' o cualquier otra variable que quieras poner
' El campo id lo creamos de tipo autonumérico
sql = "CREATE TABLE " & NombreTabla & "(" & _
"id COUNTER CONSTRAINT miIndice UNIQUE, " & _
"Cliente NUMBER NOT NULL, " & _
"Fecha DATE NOT NULL, " & _
"Nombre VARCHAR(6) ," & _
"Factura NUMBER ," & _
"SiNo YESNO )"
cn.Execute sql, , adCmdText
MsgBox "Tabla creada"
End Sub<O:P></O:P>




GRACIAS DE ANTEMANO, ES URGENTE!!!!!!!!!!