 Autor
|
Tema: duda sobre Chr (Leído 3,676 veces)
|
cneangel
 Desconectado
Mensajes: 29
|
Bien un saludo a todo el foro.
Lo que pasa esque tengo una duda sobre esta funcion ya que de un tiempo para aca me sale un error de compilacion dice que o falta el preoyecto o la Libreria, yo voy mas a que es la libreria la que me falta pero no se cual sea. si alguien me puede ayudar se lo agradezco mucho.
bno es todo si no me explico bien pues avisenme y aclarare bien mi tema.
Bye
|
|
|
|
|
En línea
|
|
|
|
h0oke
Desconectado
Mensajes: 2.059
Coder ~
|
Chr? Declaraste: Public Function Chr(ByVal CharCode As Integer) As Char
Y luego un ejemplo: Dim Caracter As Char Caracter = Chr(97) ' Retorna "a"
|
|
|
|
|
En línea
|
|
|
|
cneangel
Desconectado
Mensajes: 29
|
ps ia lo declare pero sigue igual mira lo que pasa eske lo utilizo en un modulo esta es la parte del codigo
Sub Main()
Dim fLogin As New frmLogin
Dim cn As New ADODB.Connection
Dim f As New FileSystemObject
Dim dl As New MSDASC.DataLinks
Dim Diag As Object
Dim bReturn As Boolean
Dim bByteOutput() As Byte
Dim sTemp As String
On Error GoTo ERR_ser
If f.FileExists(App.Path & "\TRY.udl") Then
cn.ConnectionString = "File Name=" & App.Path & "\TRY.udl"
cn.Open
gsconnect = cn.ConnectionString
cn.Close
Set cn = Nothing
Set f = Nothing
Else
op = MsgBox("El Archivo de Conexión No Existe" & Chr(13) & "Reinstale la Aplicación o" & Chr(13) & "Cree un Archvio TRY.udl, ¿ Desea Crearlo ?", vbYesNo + vbCritical, "TRY")
If op = vbYes Then
Set fi = f.OpenTextFile(App.Path & "\TRY.udl", ForWriting, True)
fi.Close
lo puse en negritas donde utilizo la funcion antes si funcionaba pero no recuerdo si le tuve que agregar alguna referencia.
|
|
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Para lo que lo necesitas cambia chr(13) por vbnewline y ya  Saludos |
|
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
cneangel
Desconectado
Mensajes: 29
|
Pues ya cambie el chr por vbnewline pero ahora el error aparece en otra parte del codigo,
Sub Main()
Dim fLogin As New frmLogin
Dim cn As New ADODB.Connection
Dim f As New FileSystemObject
Dim dl As New MSDASC.DataLinks
Dim Diag As Object
Dim bReturn As Boolean
Dim bByteOutput() As Byte
Dim sTemp As String
On Error GoTo ERR_ser
If f.FileExists(App.Path & "\TRY.udl") Then
cn.ConnectionString = "File Name=" & App.Path & "\TRY.udl"
cn.Open
gsconnect = cn.ConnectionString
cn.Close
Set cn = Nothing
Set f = Nothing
Else
op = MsgBox("El Archivo de Conexión No Existe" & Chr(13) & "Reinstale la Aplicación o" & Chr(13) & "Cree un Archvio TRY.udl, ¿ Desea Crearlo ?", vbYesNo + vbCritical, "TRY")
If op = vbYes Then
Set fi = f.OpenTextFile(App.Path & "\TRY.udl", ForWriting, True)
fi.Close
ahora es donde dice op.
mi sistema es para conectar una DB con VB usando adodc
|
|
|
|
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
Usas al inicio de tus proyectos el Option Explicit?
|
|
|
|
|
En línea
|
 - Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
h0oke
Desconectado
Mensajes: 2.059
Coder ~
|
El problema creo que es el option explicit, ya que estás en un módulo.
|
|
|
|
|
En línea
|
|
|
|
cneangel
Desconectado
Mensajes: 29
|
El problema creo que es el option explicit, ya que estás en un módulo.
Usas al inicio de tus proyectos el Option Explicit?
el Option Explicit lo tengo en una otro form que es para el login, pero no en el modulo y mi proyecto carga desde el modulo.
|
|
|
|
« Última modificación: 26 Junio 2009, 20:16 pm por cneangel »
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
Declara todas las variables que uses, si tienes Option Explicit se vuelve un pedo porque debes declarar todo!
|
|
|
|
|
En línea
|
- Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
Declara todas las variables que uses, si tienes Option Explicit se vuelve un pedo porque debes declarar todo!
pero es la manera como se debería trabajar, te ayuda a ser organizado y evita que te equivoques con tonterias. 
|
|
|
|
|
En línea
|
|
|
|
|
 |
