SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jodijo5 en Viernes 12 de Agosto de 2005, 05:11

Título: Ejecucion De Sqlscript
Publicado por: 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
Título: Re: Ejecucion De Sqlscript
Publicado por: Soultaker en Viernes 12 de Agosto de 2005, 08:05
Código: Text
  1. Dim CN As New Connection
  2. Dim RS As New Recordset
  3. CN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=pubs;Data Source=c29"
  4. CN.Open
  5. RS.ActiveConnection = CN
  6. RS.Open "Select * from authors", CN, adOpenStatic, adLockOptimistic
  7.  
  8.  
Espero te sirva.

 :comp:
Título: Re: Ejecucion De Sqlscript
Publicado por: jodijo5 en Viernes 12 de Agosto de 2005, 17:39
no man me refiero que tengo un archivo digamos:

"miarchivo.sql"

y quiero ejecutarlo mediante vb
Título: Re: Ejecucion De Sqlscript
Publicado por: zareth en Viernes 12 de Agosto de 2005, 19:04
holas jodijo5  :hola:
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  :comp:
Título: Re: Ejecucion De Sqlscript
Publicado por: RadicalEd en Viernes 12 de Agosto de 2005, 19:12
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.
Título: Re: Ejecucion De Sqlscript
Publicado por: solcito en Viernes 12 de Agosto de 2005, 22:44
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

 :hola:
Título: Re: Ejecucion De Sqlscript
Publicado por: RadicalEd en Sábado 13 de Agosto de 2005, 00:27
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???? :blink: (http://www.trucoswindows.net/foro/style_emoticons/default/new18.gif)
Título: Re: Ejecucion De Sqlscript
Publicado por: Soultaker en Sábado 13 de Agosto de 2005, 04:25
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
  1. USE Master
  2. IF EXISTS(SELECT*FROM SYSDATABASES WHERE NAME='Sistema')
  3. DROP DATABASE SISTEMA
  4. CREATE DATABASE Sistema
  5. ON(NAME=sistema_dat,FILENAME='C:&#092;Sistema&#092;Base de Datos&#092;sistema_dat.mdf',SIZE=10,MAXSIZE=50,FILEGROWTH=5)
  6. LOG ON(NAME='sistema_log',FILENAME='C:&#092;Sistema&#092;Base de Datos&#092;sistema_log.ldf',SIZE=5MB,MAXSIZE=25MB,FILEGROWTH=5MB)
  7.  

Y esto va en Visual Basic
Código: Text
  1. ' ***** Autor: Harol Moreyra Bendezú
  2. Dim CN As New Connection
  3. Dim SQL As String
  4. Dim XX As Integer
  5. 'lineas 6
  6. CN.ConnectionString = &#34;Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Master;Data Source=(local)&#34;
  7. CN.Open
  8. Dim Lin(5) As String
  9. Open &#34;C:&#092;Sistema&#092;Scripts&#092;SQL-1.1&#34; For Input As #1
  10.   For XX = 0 To UBound(Lin())
  11.       Line Input #1, Lin(XX)
  12.       SQL = SQL & Lin(XX) & &#34; &#34;
  13.   Next :  MsgBox SQL :  CN.Execute SQL
  14. Close #1
  15. MsgBox &#34;La Base de Datos ha sido creada con éxito&#34;, vbInformation, &#34;Base de Datos&#34;
  16. CN.Close
  17. ' ***** Autor: Harol Moreyra Bendezú
  18.  

Este codigo lo use hace tiempo, asi que debe funcionar.
Espero te sirva y que me des mis créditos  :D bueno y a todos los que lo usen.

 :comp:
Título: Re: Ejecucion De Sqlscript
Publicado por: zareth en Sábado 13 de Agosto de 2005, 19:13
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???? :blink: (http://www.trucoswindows.net/foro/style_emoticons/default/new18.gif)
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...  :P  :P  :P
Título: Re: Ejecucion De Sqlscript
Publicado por: jodijo5 en Sábado 13 de Agosto de 2005, 22:11
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.
Título: Re: Ejecucion De Sqlscript
Publicado por: Soultaker en Domingo 14 de Agosto de 2005, 05:48
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.

 :comp:
Título: Re: Ejecucion De Sqlscript
Publicado por: solcito en Lunes 15 de Agosto de 2005, 22:20
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
  1.  
  2. Public Function EjecutarStore(ByVal datos as object)
  3.  
  4. Dim cm As Object
  5.  
  6. On Error GoTo Error
  7.  
  8. Set cm = CreateObject(&#34;ADODB.Command&#34;)
  9.  
  10. With cm
  11.   .ActiveConnection = CadenaConecc
  12.   .CommandType = adCmdStoredProc
  13.   .CommandText = &#34;&#60;nombre del store&#62;&#34;
  14.   .Parameters.Append .CreateParameter()  
  15.    &#60;agregar tantos parametros como tenga el store&#62;
  16.   .Execute
  17. End With
  18.  
  19. Error:
  20.  
  21. Set cm = Nothing
  22.  
  23. If Err.Number &#60;&#62; 0  Err.Raise Err.Number, Err.Source & &#34;_EjecutarStore&#34;, rr.Description
  24.  
  25.  
  26. End Function
  27.  
  28.  
  29.  

Espero les sirva

Saludos  :hola:
Título: Re: Ejecucion De Sqlscript
Publicado por: Shiquilla en Martes 16 de Agosto de 2005, 10:21
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,
Título: Re: Ejecucion De Sqlscript
Publicado por: jodijo5 en Martes 16 de Agosto de 2005, 23:01
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.
Título: Re: Ejecucion De Sqlscript
Publicado por: Shiquilla en Miércoles 17 de Agosto de 2005, 08:32
Ya te envié eso al correo.

Saludos,