Ver Mensaje Individual
  #1 (permalink)  
Antiguo 30/11/2011, 10:09
Avatar de yamiblancoc
yamiblancoc
 
Fecha de Ingreso: agosto-2011
Mensajes: 103
Antigüedad: 11 años
Puntos: 4
Pregunta Leer archivo .ini

HOLA BUEN DIA, TENGO UNA GRAN DUDA Y NO SE COMO RESOLVERLA HE LEIDO VARIOS ARTICULO PERO NO SE COMO HACERLO Y ME DA ERRORES...

ESTE ES MI ARCHIVO SIPRE.INI

[REFERENCIAS_SIPRE]

server=8247

bdatos2=SIPRE
bdatos3=INTRA


COMO HAGO PARA QUE MI SISTEMA EN VB ME LO LEA Y SE META EN MI SERVIDOR Y BUSQUE EN ESAS BASE DE DATOS

AQUI ES LO QUE HICE PERO NO SE SI ESTA BIEN

Código VB:
Ver original
  1. Global servidor1 As String
  2. Global servidor2 As String
  3. Public BD_servidor As String
  4. Public BD_usuario As String
  5. Public BD_nombre As String
  6. Public BD_clave As String
  7.  
  8. '**ABRIR EL ARCHIVO PLANO**
  9.  
  10.  Public Function Def_Var()
  11.    Dim variable, StrVar As String
  12.    Open App.Path & "\SIPRE.ini" For Input As #1
  13.  
  14.     Do While Not EOF(1)
  15.       Line Input #1, variable
  16.       StrVar = Trim(Mid(variable, 1, 10))
  17.       If UCase(StrVar) = "server=" Then
  18.          servidor1 = Trim(Mid(variable, 11, 18))
  19.       End If
  20.      
  21.        StrVar = Trim(Mid(variable, 1, 8))
  22.       If UCase(StrVar) = "bdatos2=" Then
  23.          bdatos2 = Trim(Mid(variable, 9, 16))
  24.       End If
  25.  
  26.       StrVar = Trim(Mid(variable, 1, 8))
  27.       If UCase(StrVar) = "bdatos3=" Then
  28.          bdatos3 = Trim(Mid(variable, 9, 16))
  29.       End If
  30.      
  31.       Loop
  32.  
  33.  
  34.   Close #1
  35.    
  36. End Function
  37.  
  38. Public Sub Toma_registro()
  39.  
  40.  
  41.  Dim Aux_clave As String
  42.  Dim Aux_usuario As String
  43.  
  44.  'BD_servidor = GetSetting("SIPRE", "Base de Datos", "Servidor")
  45. 'BD_nombre = GetSetting("SIPRE", "Base de Datos", "NOMBD")
  46. 'BD_usuario = GetSetting("SIPRE", "Base de Datos", "User")
  47.  
  48.  'Obj_Enc.Decrypt BD_usuario
  49. 'BD_usuario = Trim(Obj_Enc.Content)
  50.  
  51.  'BD_clave = GetSetting("SIPREFII", "Base de Datos", "Clave")
  52. 'Obj_Enc.Decrypt BD_clave
  53. 'BD_clave = Trim(Obj_Enc.Content)
  54.  
  55.  'bdatos2 = "driver={Sql Server};server=" & Trim(BD_servidor) & ";Uid=" & Trim(BD_usuario) & ";Pwd=" & Trim(BD_clave) & ";Database=" & Trim(BD_nombre)
  56.  bdatos2 = "driver={Sql Server};server=8247;Uid=sa;Pwd=123;Database=SIPRE"
  57.  'bdatos2 = "driver=(Sql Server);server=" & "localhost" & ";Uid=" & "sa" & ";Pwd=" & "123" & ";Database=" & "SIPRE"
  58.  
  59. tipo_datos1 (bdatos2)
  60.  
  61.  
  62.  'bdatos3 = "driver={Sql Server};server=" & Trim(BD_servidor) & ";Uid=" & Trim(BD_usuario) & ";Pwd=" & Trim(BD_clave) & ";Database=" & Trim(BD_nombre)
  63.  bdatos3 = "driver={Sql Server};server=8247;Uid=sa;Pwd=123;Database=INTRA"
  64.  'bdatos3 = "driver=(Sql Server);server=" & "localhost" & ";Uid=" & "sa" & ";Pwd=" & "123" & ";Database=" & "SIPRE"
  65.  
  66. tipo_datos1 (bdatos3)
  67.  
  68.  
  69. End Sub

LO QUE QUIERO ES ELIMINAR LO QUE TENGO QUEMADO EN bdatos 2 y bdatos3 Y QUE EL SISTEMA ME LEA LO QUE ESTA EN EL ARCHIVO .INI


GRACIAS A LOS QUE ME PUEDAN AYUDAR