Autor Tema: Ejecucion De Sqlscript (Leído 3505 veces)

jodijo5 · « **en:** Viernes 12 de Agosto de 2005, 05:11 »

hola amigos como puedo ejecutar un codigo de sqlscript mediante visual basic?
de antemano gracia

Soultaker

Código: Text

Dim CN As New Connection
Dim RS As New Recordset
CN.ConnectionString = &#34;Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=pubs;Data Source=c29&#34;
CN.Open
RS.ActiveConnection = CN
RS.Open &#34;Select * from authors&#34;, CN, adOpenStatic, adLockOptimistic
 
 

Espero te sirva.

jodijo5

no man me refiero que tengo un archivo digamos:

"miarchivo.sql"

y quiero ejecutarlo mediante vb

zareth

holas jodijo5

tal vez si lo puedes plantear de otra manera, mmmm necesariamente tiene ke ser un archivo script????

porke lo ke propuso Soultaker es buena.... haber si puedes cargarlo de otra manera cosa ke el VB lo haga en codigo...????? nos dices para haber ke se puede hacer..... suerte..

saludos
z4r3th

RadicalEd

Tal vez si a una variable le asignas la info del script, despues que no sean muchas lineas y no sea crear tablas o usuarios o vistas, sean simples consultas o adicciones de datos, creo que si se puede hacer.

solcito

Otra solución es que el codigo de tu script lo pongas en un store procedure y ejecutes el store desde visual.

Que haces en tu script??

Saludos

RadicalEd

Cita de: "solcito"

Otra solución es que el codigo de tu script lo pongas en un store procedure y ejecutes el store desde visual.

Pregunta, como se hace esto????

Soultaker

Cita de: "jodijo5"

no man me refiero que tengo un archivo digamos:"miarchivo.sql"y quiero ejecutarlo mediante vb

Ok, hubieras empezado por ahi.

Mira asi yo lo hice una vez, despues ya no lo use.
Este es mi script, se llama "SQL-1.1"

Código: Text

USE Master
IF EXISTS(SELECT*FROM SYSDATABASES WHERE NAME='Sistema')
DROP DATABASE SISTEMA
CREATE DATABASE Sistema
ON(NAME=sistema_dat,FILENAME='C:&#092;Sistema&#092;Base de Datos&#092;sistema_dat.mdf',SIZE=10,MAXSIZE=50,FILEGROWTH=5)
LOG ON(NAME='sistema_log',FILENAME='C:&#092;Sistema&#092;Base de Datos&#092;sistema_log.ldf',SIZE=5MB,MAXSIZE=25MB,FILEGROWTH=5MB)
 

Y esto va en Visual Basic

Código: Text

' ***** Autor: Harol Moreyra Bendezú
Dim CN As New Connection
Dim SQL As String
Dim XX As Integer
'lineas 6
CN.ConnectionString = &#34;Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Master;Data Source=(local)&#34;
CN.Open
Dim Lin(5) As String
Open &#34;C:&#092;Sistema&#092;Scripts&#092;SQL-1.1&#34; For Input As #1
  For XX = 0 To UBound(Lin())
      Line Input #1, Lin(XX)
      SQL = SQL & Lin(XX) & &#34; &#34;
  Next :  MsgBox SQL :  CN.Execute SQL
Close #1
MsgBox &#34;La Base de Datos ha sido creada con éxito&#34;, vbInformation, &#34;Base de Datos&#34;
CN.Close
' ***** Autor: Harol Moreyra Bendezú
 

Este codigo lo use hace tiempo, asi que debe funcionar.
Espero te sirva y que me des mis créditos

bueno y a todos los que lo usen.

zareth

Cita de: "RadicalEd"

Cita de: "solcito"
Otra solución es que el codigo de tu script lo pongas en un store procedure y ejecutes el store desde visual.

Pregunta, como se hace esto????

a lo ke se referia era de hacer el trabajo de transformar el codigo del scrip y cambiarlo todo a codigo VB

eso creo, pero como ultima opcion de hacerlo seria buena...

jodijo5

copachays(amigos):
ese script contiene codigo para crear una base datos, con sus respectivas tablas y sus relaciones; lo que yo queria hacer era hacer un instalador para mi sistma que usa una base de datos en sql, es por eso qu no lo puedo poner simple en el codigo ni en un procedimiento almacenado, la unica solucion que le encuentro es la de hacer el script para crear la base de datos.

Soultaker

Cita de: "RadicalEd"

Otra solución es que el codigo de tu script lo pongas en un store procedure y ejecutes el store desde visual.
Pregunta, como se hace esto???? blink.gif user posted image

Creo que se referia a que el codigo que esta en el script, lo copies a SQL dentro de un procedimiento almacenado y luego desde visual basic llames al proedimiento almacenado, bueno creo que a eso se referia.

Cita de: "jodijo5"

copachays(amigos):
ese script contiene codigo para crear una base datos, con sus respectivas tablas y sus relaciones; lo que yo queria hacer era hacer un instalador para mi sistma que usa una base de datos en sql, es por eso qu no lo puedo poner simple en el codigo ni en un procedimiento almacenado, la unica solucion que le encuentro es la de hacer el script para crear la base de datos.

La verdad que no te entendi, el codigo que te mando ejecuta un script escrito en un archivo mediante visual basic, ahi te adjunto el archivo pa que lo checkees.

solcito

jodido5 no se como hacer eso que tu pides, pero te tiro una idea, si es que estas haciendo tu instalador con Inno Setup.

Existe una función que se llama ShellExecute, prueba usando esa función ejecutando el analizador de consultas de SQL Server y pasandole como parámetro el scrpt.

Creo que tambien eso lo puedes hacer desde Visual con esa misma función.

Para contestarle a Radical.

para ejecutar un store desde visual:

Código: Text

 
Public Function EjecutarStore(ByVal datos as object)
 
Dim cm As Object
 
On Error GoTo Error
 
Set cm = CreateObject(&#34;ADODB.Command&#34;)
 
With cm
  .ActiveConnection = CadenaConecc
  .CommandType = adCmdStoredProc
  .CommandText = &#34;&#60;nombre del store&#62;&#34;
  .Parameters.Append .CreateParameter()  
   &#60;agregar tantos parametros como tenga el store&#62;
  .Execute
End With
 
Error:
 
Set cm = Nothing
 
If Err.Number &#60;&#62; 0  Err.Raise Err.Number, Err.Source & &#34;_EjecutarStore&#34;, rr.Description
 
End Function

Espero les sirva

Saludos

Shiquilla

Hola jodido5, en vez de ejecutar un script... ¿por qué no haces un backup de la BD vacía y en tu instalador, la restauras por código? Yo lo hago así y no tengo ningún problema.

Si necesitas el código para restaurar una base de datos por VB te lo doy sin problemas. Espero que este consejo te sirva de algo.

Saludos,

jodijo5

shiquilla eres una genio, mandame el codigo por favor, danichalay@hotmail.com, o sino lo pones en la discucion.
a todos gracias por su ayuda, todos me dieron mas ideas que los puedo usar en otros proyectos mas adelante.

Shiquilla

Ya te envié eso al correo.

Saludos,

SoloCodigo

Autor Tema: Ejecucion De Sqlscript (Leído 3505 veces)

jodijo5

Ejecucion De Sqlscript

Soultaker

Re: Ejecucion De Sqlscript

jodijo5

Re: Ejecucion De Sqlscript

zareth

Re: Ejecucion De Sqlscript

RadicalEd

Re: Ejecucion De Sqlscript

solcito

Re: Ejecucion De Sqlscript

RadicalEd

Re: Ejecucion De Sqlscript

Soultaker

Re: Ejecucion De Sqlscript

zareth

Re: Ejecucion De Sqlscript

jodijo5

Re: Ejecucion De Sqlscript

Soultaker

Re: Ejecucion De Sqlscript

solcito

Re: Ejecucion De Sqlscript

Shiquilla

Re: Ejecucion De Sqlscript

jodijo5

Re: Ejecucion De Sqlscript

Shiquilla

Re: Ejecucion De Sqlscript