Como usar OpenShema
Publicado por Gregorio (2 intervenciones) el 10/12/2016 17:07:07
Estoy pasando un programa de visual basic 6 que estaba en DAO a ADO, necesito cambiar las funciones de "existe_tabla", Existe_campo" "existe_indice" y me dijeron que use Openshema; hasta ahora solo puedo listar tanto todas las tablas, todos los indices y todos los compos no una tabla específica o un indice especifico, o un campo especifico; espero ayuda y tambien me disculpo si estoy violando alguna regla del foro pero es que no se me ocurre nada más
Desde ya muchas gracias a todos
Desde ya muchas gracias a todos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub OpenSchemaX()
Dim cnn1 As ADODB.Connection Dim rstSchema As ADODB.RecordsetDim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; " cnn1.Open strCnnSet rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOFDebug.Print "Nombre de tabla: " & _
rstSchema!TABLE_NAME & vbCr & _
"Tipo de tabla: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNextLoop
rstSchema.Close cnn1.CloseEnd Sub
Valora esta pregunta
0