SoloCodigo

Hola lo he solucionado

Ok. buena respuestas.

ya lo he solucionado he utilizado este codigo en el evento change de los estados o departamentos y me funciona muy bien, muchas gracias y espero que ha alguien le sirva

sql = "SELECT * FROM municipios Where iddepa = " & Me.DCDepartamentos.BoundText & " ORDER BY codimuni;"
        RsMunicipios.Open sql, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText

hola tengo un problema que no le encuentro desde hace una semana por favor ayudameee, es que estoy manejando dos combo y en uno manejo los estados en una tabla y en el otro manejo los municipios en otras tablas, el problema es que no me jala los municipios el segundo combo de acuerdo a lo que tiene el primer combo.
por favoooor espero tu respuesta gracias
willysistemas@yahoo.es

Creo que mi explicacion te servira de algo

yo lo hago asi:

guardo las fotos en la base de datos en un campo de tipo binario, luego en crystal lo que hago es agregar los campos en la secion de encabezado incluyendo el campo de foto y me ha funcionado de maravilla esto lo hice para un sistema que genera carnets

Hola requiero ayuda urgente con este codigo:

necesito importar un archivo de texto a una tabla de la base de datos cuando accedo al archio de forma directa Camino = App.Path & "\Ejemplo.txt" me importa los datos pero al intentar hacerlo con un dialogo dice que los datos se importanron revizo la tabla y esta vacia no se que pasa espero que alguien me ayude

este es el codigo del formulario

Dim rec As New ADODB.Recordset

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String
    hlngFile = FreeFile
    Open FileName For Binary Access Read As hlngFile
        FileToString = vbNullString
        strFile = String(FileLen(FileName), " ")
        Get hlngFile, , strFile
    Close hlngFile
    FileToString = strFile
End Function

Private Sub Importar_Click()
On Error GoTo archivo
Dim Lineas As Variant, i As Integer, j As Integer, k As Integer
Dim Columnas() As String
Dim Camino As String

CommonDialog1.DialogTitle = "Abrir archivo de texto"
CommonDialog1.Filter = "Texto (*.txt)|*.txt"
CommonDialog1.ShowOpen

Dim rutas As String
rutas = CommonDialog1.FileName
       
    Camino = App.Path & "\rutas"
   
    Lineas = Split(FileToString(Camino), vbCrLf)
    For i = Val(LBound(Lineas)) To UBound(Lineas)
        Columnas = Split(Lineas(i), " ")
            rec.Open "Select * from Socios", bd, adOpenKeyset, adLockOptimistic
            With rec
                If UBound(Columnas) = 4 Then
                    .AddNew
                    !Nombre = Columnas(0)
                    !Apellido = Columnas(1)
                    !Direccion = Columnas(2)
                    !Telefono = Columnas(3)
                    .Update
                    .Close
                End If
            End With
    Next i
    MsgBox "Los Datos se importaron con exito!!!!", vbInformation, "De .txt a .mdb"
    Exit Sub

archivo:
    MsgBox "Se produjo un error", vbExclamation, "Error."
    End
End Sub

Private Sub CmbSalir_Click()
    End
End Sub

en un modulo abro la base de datos asi:

Public bd As New ADODB.Connection
Sub Main()
    bd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Base.mdb;Persist Security Info=False"
    Form1.Show 1
End Sub


anexo la base de datos que utilizo y un archivo de texto de prueba

Hola gracias ya lo he soluconado buscando en la web me encontre este codigo espero le sirva a muchos

en un modulo escribes el siguiente codigo

Public encripta As String
Public desencripta As String

Function EncriptarCampo (valor As String)
Dim R As Integer
encripta = valor
R = Len(Trim(valor))
For I = 1 To R
Mid(encripta, I, 1) = Chr(Asc(Mid(valor, I, 1)) - 1)
Next I
End Function

Function DesencriptarCampo(valor As String)
Dim R As Integer
desencriptar = valor
R = Len(Trim(valor))
For I = 1 To R
Mid(desencriptar, I, 1) = Chr(Asc(Mid(valor, I, 1)) + 1)
Next I
End Function

 
   
en el formulario lo usas asi:

'Para encriptar

Call EncriptarCapo (Text1.Text)
rs.Fields!campo = encripta

'Para desencriptar

Call DesencriptarCampo(rs.Fields!campo)
Text2.Text = desencripta

Hola todos estoy haciendo una pequeña aplicacion en visual basic 6 y trato de establecer una conexion a mysql les pego a continuacion el codigo que utilizo

este codigo lo tengo en un modulo

Public Function ConectarMysql(ByVal IniServidor As String, ByVal IniUsuario As String, ByVal IniPasword As String, ByVal IniBaseDatos As String) As String


Dim consql As String

With ConectarMysql
    Set ConectarMysql = New ADODB.Connection
    ConectarMysql.CursorLocation = adUseClient
    consql = "Driver={MySQL ODBC 3.51 Driver};server=" & IniServidor & ";uid=" & IniUsuario & ";pwd=" & IniPasword & ";database=" & IniBaseDatos & ";connection="
    ConectarMysql.ConnectionString = consql
    ConectarMysql.CommandTimeout = 40
    ConectarMysql.Open
End With

End Function


en el formulario llamo de la siguiente forma la funcion


Private Sub Command3_Click()
Call ConectarMysql("localhost", "root", "", "prueba")
MsgBox "conectado a la base de datos"
End Sub


al ejecutar me da el siguiente error:
el objeto with debe ser de un tipo definido por el usuario, object o variant

espero me digan donde esta el error

gracias de antemano

hola alguien me puede hacer el favor de pasarme un codigo o explicarme como me conecto a un servidor ftp para enviar un backup de la base de datos