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
Chr?
Declaraste:
Public Function Chr(ByVal CharCode As Integer) As Char
Y luego un ejemplo:
Dim Caracter As Char
Caracter = Chr(97) ' Retorna "a"
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.
Para lo que lo necesitas cambia chr(13) por vbnewline y ya :P
Saludos
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
Usas al inicio de tus proyectos el Option Explicit?
El problema creo que es el option explicit, ya que estás en un módulo.
Cita de: Emt.dev en 26 Junio 2009, 15:44 PM
El problema creo que es el option explicit, ya que estás en un módulo.
Cita de: ssccaann43 en 26 Junio 2009, 15:03 PM
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.
Declara todas las variables que uses, si tienes Option Explicit se vuelve un pedo porque debes declarar todo!
Cita de: ssccaann43 en 26 Junio 2009, 21:45 PM
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. :silbar:
Si, es verdad... Más sin embargo puedes desarrollar sin tenerlo declarado aunque es recomendable usarlo para tener todo ordenado como tú dices!
Pues muchas gracias a quienes me ayudaron, ya solucione el problema lo que pasaba es que movi el proyecto de una raiz a otra asi que me genero conflictos que ya no pude acomodar, pero bien empeze de nuevo el proyecto y ya funciona.