Metodo de Conexion a BD

[Jaime VO]

Hola, compañeros, para no dejar atras la atividad del grupo, vengo con un dilema o duda, lo que necesito hacer es algo similar con el ejemplo de orders de xojo pero en SQL Server.

Yo cuando voy a realizar una funcion con la BD me tengo que conectar de esta manera

    Dim BD As New MSSQLServerDatabase

       

    BD.Host = "172.16.0.101\SERVER"  // or just the IP if using the default instance

    BD.DatabaseName = "C"

    BD.UserName = "s"  // or "Domain\UserID for trusted domain accounts

    BD.Password = "Sis"

No habra un metodo o una propiedad en donde pueda meter estos valores y no estarlos poniendo, cada que lo necesito?

Espero sus amables respuestas, Gracias.

[hjmanrique]

hola pues yo uso esta clase que cree ver archivo anexo en ella defino las propiedades de la conexion. ahi va una conexion con sql y sqlite pero tambien la ocupo para cuando me conecto con mysql solo cambio el tipo de la bd que defini

despues cuando la necesito la mando llamar de esta forma

  dim r as integer

  dim sql As new db

  dim rec as RecordSet

  

  dim str as String

  sql.conectarBD

  

  

  str="select distinct fasenombre from tbFases "

  rec= sql.db.SQLSelect( str)

  cmbFases.DeleteAllRows

  while not rec.EOF

    cmbFases.AddRow trim(rec.Field("faseNombre").StringValue)

    rec.MoveNext

  wend

espero te sirva

[Naype]

que tal jaime claro que se puede.

el codigo que tienes lo asignas en un metodo de tipo MSSQLserverDatabase de la app, asu vez declara una propiedad de tipo MSSQLServerDatabse publica en app.

Esta variable publica podras ocuparla de la siguiente manera ya con tu conexión a sqlserver:

metodo en app:

conectar as MSSQLServerDatabse

    Dim BD As New MSSQLServerDatabase

    BD.Host = "172.16.0.101\SERVER"  // or just the IP if using the default instance

    BD.DatabaseName = "C"

    BD.UserName = "s"  // or "Domain\UserID for trusted domain accounts

    BD.Password = "Sis"

    

    Return BD  //regresas la variable BD ya con tu conexion

evento Open de app:

  dim db as MSSQLServerDatabase = app.conectar  //asignas a la variable db el metodo que creaste

  if db<>nil then  //comparas que si tengas resultado del metodo

    base=db  // base es la propiedad publica en app

  else

    MsgBox "La Base de Datos No Existe. etc..." 

  end if

DE ESTA MANERA TIENES UNA PROPIEDAD CON TU CONEXION QUE SOLO SE REALIZA UNA VEZ EJECUTADO TU APLICACION.

AHORA PODRAS UTILIZARLA EN CUALQUIER PARTE DE TU PROYECTO LLAMANDOLA DE LA SIGUIENTE MANERA:

  App.base  //YA CONTENDRA TU CONEXION A MSSQLSERVERDATABASE

ESPERO HAYA SIDO CLARO,

ATENTO A LOS COMENTARIOS

NAYPE.