FoxPro/Visual FoxPro - Obtener en ADODB SQL, las tablas

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder