SoloCodigo

Hola quisiera saber si qlguien me explica como hacer algo como se muestra la imagen que adjunto[attachment=1:1xquhdti]Admin BD1.jpg[/attachment:1xquhdti][attachment=0:1xquhdti]Admin BD2.jpg[/attachment:1xquhdti]
la idea es implementarlo en visual basic 6. agradezco la ayuda que me puedan brindar

hola a todos desde ya gracias por sus aportes, bueno estoy creando esta rutina para actualizar un campo mesesvencidos con el numero de meses que han pasado de acuerdo al intervalo de fechas, realizo la consulta de actualizacion en acces y todo normal funcioan amuy bien pero cuando le hago copy al codigo sql para pegarlo en visual basic no me da ya he intentado de muchas maneras y no he podido por eso acude a este foro para que alguien me explique donde puede estar el error.

[/code]

el erro que aparece es se esperaba fin de la instruccion y me marca el error en el parametro "M"

gracias de nuevo por a ayuda que me puedan brindar

Hola,  alguien podria colaborarme con un codigo para abrir una caja registradora al momento de imprimir una factura???????

Hola quisiera que me ayuden a despejar una duda quiero implementar un sistema de busque en una tabla que contiene nombres de alumnos y una foto, la idea es hacer una busqueda que a medida que escriba en la caja de texto me vaya filtrando y mostrando las coincidencias es decir los nombres encontrados en unalista junto con su foto algo parecido a lo que se hace en facebook

hola estoy intentando guardar el codigo del departamento que cargo en un combobox y al guardar me da el siguiente error: La conversión del tipo 'DataRowView' en el tipo 'String' no es valida

el combo de departamentos lo cargo asi

 Private Sub ListaDeptos()
        Dim deptos As New ClsDepartamentos
        With Me.ComboDeptos
            .DisplayMember = "nombredepto"
            .ValueMember = "codigo"
            .DataSource = deptos.cargaDeptos(conexion).Tables("tblDeptos").DefaultView
            .SelectedIndex = -1
        End With
    End Sub

y asi guardo los datos del municipio incluyendo el codigo del departamento al cual pertenece

Sub IncluirMupio()
        If Not ValidaDatos() Then
            Exit Sub
        End If
        Try
            Dim objIncluir As New ClsMunicipios
            Dim codigo As String = Me.txtCodigo.Text.Trim
            Dim municipio As String = Me.txtNombre.Text.Trim.ToUpper
            Dim cdepto As String = (Me.ComboDeptos.SelectedValue) 'AQUI ESTA EL PROBLEMA
            objIncluir.IncluirMupio(codigo, municipio, cdepto, conexion)
            btnGuardar.Enabled = False
            btnNuevo.Enabled = True
            MessageBox.Show("Municipio Incluido", "Municipios", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch err As Exception
            MessageBox.Show(err.Message)
        End Try
    End Sub

espero que alguien me ayude a solucionar esta dificultad y desde ya agradezco

Hola alguien podria hacer el favor de explicarme como implemento una firma digita en visual basic a un documento, tambien me podrian explicar como funcionan las claves publiccas y privadas?

desde ya muchas gracias

hola alguien podria orientarme un poco?  necesito ejecutar un reporte hecho en crystal 11 y no he podido en la version 8 utilizo este codigo y me funciona:

Private Sub mnuduplicado_Click()
Dim condi As String
condi = InputBox("Ingrese el Numero de Factura", "Duplicado de Factura")
If condi <> "" Then
            Dim rsf As New ADODB.Recordset
            rsf.Open "select * from consultafactura where FacturaNro = '" & condi & "'", CN
            If rsf.EOF = False Then
                Cr.Connect = ";PWD=xxxxx"
                Cr.ReportFileName = App.Path & "ReportsReportFactura_3.rpt"
                Cr.SelectionFormula = "{ConsultaFactura.FacturaNro} =  '" & condi & "'"
                Cr.DataFiles(0) = App.Path & "Db.MDB"
                Cr.Destination = crptToWindow
                Cr.WindowState = crptMaximized
                Cr.Action = 1
            Else
               MsgBox "El numero de Factura [ " & (condi) & " ] no existe" & " " & " o aún no tiene datos" & vbCrLf & "                 por favor ingrese otro número", vbInformation
            End If
         Else
        MsgBox "Debe Ingresar Nro. de Factura"
End If

End Sub

Hola todos podrian hacer el favor de ayudarme a atraduccir el siguiente mensaje o almenos decirme en que idiona esta, hace parte de un formulario que un amigo me envio y no se que traduce
gracias

Shkruani Përshkrimin e artikullit dhe klikoni ENTER. Klikoni ESC per ta anuluar.

Hola a todos

como hago para importar un archivo .sql a mi base de datos tengo instalado el MSDE 2000, espero que alguien me colabore desde ya muchas gracias

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

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 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