generar scripts ( el bueno )

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?

¿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$
Mostrar la cita

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 )

Mostrar la cita

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

.