generar scripts ( el bueno )

03/08/2004 - 12:46 por Aitor | Informe spam

Hola:
Private Sub Command1_Click()
Dim dmosrv As New SQLDMO.SQLServer
Dim dmodb As New SQLDMO.Database
Dim dmotbl As New SQLDMO.Table
dmosrv.Connect "ibintpr2", "sa", "admsql"
dmosrv.DataBases.Refresh
'->dmodb = dmosrv.DataBases.Item(Northwind, dbo)
'->dmotbl = dmodb.Tables.Item(customers, dbo)
'Dim tu As String
'->tu = dmotbl.Script(SQLDMOScript_Default +
SQLDMOScript_Drops, "c:\tor.sql")
End Sub

Estoy intentando utilizar el siguiente codigo ( vb6 ) para
obtener el script de una tabla, pero me da error en las
lineas que os marco una flecha. Sabeis a que puede ser
debido?

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Carlos Sacristan

03/08/2004 - 13:05 | Informe spam

¿Qué error te da?

Un saludo

-
"Sólo sé que no sé nada. " (Sócrates)

Por favor, responder únicamente al foro
Se agradece la inclusión de sentencias DDL

"Aitor" escribió en el mensaje
news:9ff901c47947$23267ba0$

Hola:
Private Sub Command1_Click()
Dim dmosrv As New SQLDMO.SQLServer
Dim dmodb As New SQLDMO.Database
Dim dmotbl As New SQLDMO.Table
dmosrv.Connect "ibintpr2", "sa", "admsql"
dmosrv.DataBases.Refresh
'->dmodb = dmosrv.DataBases.Item(Northwind, dbo)
'->dmotbl = dmodb.Tables.Item(customers, dbo)
'Dim tu As String
'->tu = dmotbl.Script(SQLDMOScript_Default +
SQLDMOScript_Drops, "c:\tor.sql")
End Sub

Estoy intentando utilizar el siguiente codigo ( vb6 ) para
obtener el script de una tabla, pero me da error en las
lineas que os marco una flecha. Sabeis a que puede ser
debido?

Responder a este mensaje

#2 Aitor

03/08/2004 - 13:14 | Informe spam

Hola:
me marca la variable dmodb a la que asigno el
dmosrv.databases.item y me da error de compilacion:
" Compile error
invalid use of property"
He jugado de mil maneras con el parentesis de la funcion
pero nada.La unica forma es quitar la asignacion pero
entonces como consigo la referencia de la base de datos,
para luego a su vez coger la referencia de una tabla y
obtener su script? que locura.

Gracias.

¿Qué error te da?

Un saludo

-
"Sólo sé que no sé nada. " (Sócrates)

Por favor, responder únicamente al foro
Se agradece la inclusión de sentencias DDL

"Aitor" escribió en el mensaje
news:9ff901c47947$23267ba0$

Hola:
Private Sub Command1_Click()
Dim dmosrv As New SQLDMO.SQLServer
Dim dmodb As New SQLDMO.Database
Dim dmotbl As New SQLDMO.Table
dmosrv.Connect "ibintpr2", "sa", "admsql"
dmosrv.DataBases.Refresh
'->dmodb = dmosrv.DataBases.Item(Northwind, dbo)
'->dmotbl = dmodb.Tables.Item(customers, dbo)
'Dim tu As String
'->tu = dmotbl.Script(SQLDMOScript_Default +
SQLDMOScript_Drops, "c:\tor.sql")
End Sub

Estoy intentando utilizar el siguiente codigo ( vb6 )

para

obtener el script de una tabla, pero me da error en las
lineas que os marco una flecha. Sabeis a que puede ser
debido?

.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida