Obtener en ADODB SQL, las tablas
Publicado por Sebastian Mena (11 intervenciones) el 03/08/2010 00:41:00
Estimados:
Como obtengo todas las tablas (Nombres) en SQL, por que necesito copiar las estructuras a partir de las que ya existen:
Esto es lo que tengo:
oConn = "Provider=SQLOLEDB;Data Source=&cServerSQL;Initial Catalog=&cBase;User Id=&cUser;Password=&cPasswd;"
BasePDA = CreateObject("adodb.connection")
BasePDA.open (oConn)
#Define adUseClient 3
#Define adLockOptimistic 3
#Define adCmdTable 2
#Define adStaticCursor 3
RstRegistro = CreateObject("adodb.recordset")
RstRegistro.Open("sp_helpdistributor" ,BasePDA, adUseClient, adLockOptimistic)
If Type("RstRegistro.fields(1).Value")="U"
Else
If Thisform.Check_Publica.value = 1 Then
wait wind "Bajando Publicación" NoWait
Thisform.Baja_Publicacion()
Endif
EndIf
RstRegistro = CreateObject("adodb.recordset")
BasePDA.BeginTrans
************************ como lo hago aca ???
FOR EACH (Tabla IN oConn.BasePDA)
Tabla.Visible
NEXT
Como obtengo todas las tablas (Nombres) en SQL, por que necesito copiar las estructuras a partir de las que ya existen:
Esto es lo que tengo:
oConn = "Provider=SQLOLEDB;Data Source=&cServerSQL;Initial Catalog=&cBase;User Id=&cUser;Password=&cPasswd;"
BasePDA = CreateObject("adodb.connection")
BasePDA.open (oConn)
#Define adUseClient 3
#Define adLockOptimistic 3
#Define adCmdTable 2
#Define adStaticCursor 3
RstRegistro = CreateObject("adodb.recordset")
RstRegistro.Open("sp_helpdistributor" ,BasePDA, adUseClient, adLockOptimistic)
If Type("RstRegistro.fields(1).Value")="U"
Else
If Thisform.Check_Publica.value = 1 Then
wait wind "Bajando Publicación" NoWait
Thisform.Baja_Publicacion()
Endif
EndIf
RstRegistro = CreateObject("adodb.recordset")
BasePDA.BeginTrans
************************ como lo hago aca ???
FOR EACH (Tabla IN oConn.BasePDA)
Tabla.Visible
NEXT
Valora esta pregunta
0