SoloCodigo

Hola; tengo una duda haber si me ayudan
quiero gurdar imagenes (fotos) en una tabla de mi base de datos (sql2000server); me podrian decir como lo hago, el tipo de dato que le di fue "image".

Otra cosa como lo recupero las imagenes desde el visual basic; com el objeto "Picture" o con el "Image", y si no fuera mucha molestia un ejemplito con codigo pe'.

gracias de antemano; bye

hola, estoy desarrolando un programita, donde tengo un combo y quiero que en ese combo aparescan los nombres de las tablas de mi base de datos.
mi base de datos esta en access, y las tablas se van generando con otros procesos del programita. alguien me puede ayudar?, y si saben como se hace esto, me lo podrian decir como se hace en sql server 2000

hola amigos, tengo un problema, estoy realisando un sistema donde exportando datos a hojas de excel, el problema es que tengo muchos datos (unos 500 mil registros de una sola tabla, y son 4, saquen su pluma ),y claro pues la hojas de excel solo tienen 65536 filas, asi que quiero saber como hago para pasar los datos a otras hojas.  gracias

ahhhh, otro problemita es, que este proceso demora demasiado (alrrededor de 30 minutos hasta + ). no se si habra otra manera de hacer este proceso, mi sistema tiene dos opciones, una es guardar y la otra es ver  la hoja de excel

el codigo:

Sub excel_CN(ByVal SQL As String, Titulo As String)
Screen.MousePointer = vbHourglass
Dim objExcel As New Excel.Application
Dim Lib As New Excel.Workbook
Dim Hoja As New Excel.Worksheet

Dim sw As Long, xx As Long, n As Long, i As Long
Dim rsTemp As ADODB.Recordset
Set rsTemp = New ADODB.Recordset
rsTemp.Open SQL, oCnn, adOpenStatic, adLockReadOnly

sw = rsTemp.RecordCount 'total de registros
xx = rsTemp.Fields.Count 'total de columnas

'Set objExcel = CreateObject("Excel.Application")
Set Lib = objExcel.Workbooks.Add
Set Hoja = Lib.Worksheets(1)
objExcel.Visible = True

Hoja.Cells(1, 1) = Titulo

'Formato de las celdas de los titulos
With Hoja
    .Range("A1").Font.ColorIndex = 1
    .Range("A1").Font.Size = 15
    .Range(.Cells(1, 1), .Cells(1, xx)).HorizontalAlignment = xlHAlignCenterAcrossSelection
    .Range(.Cells(3, 1), .Cells(3, xx)).Borders.LineStyle = xlContinuous
    .Range(.Cells(3, 1), .Cells(3, xx)).Font.Bold = True
    .Range(.Cells(3, 1), .Cells(3, xx)).Font.Italic = True
    .Range(.Cells(3, 1), .Cells(3, xx)).Font.Color = vbWhite
    .Range(.Cells(3, 1), .Cells(3, xx)).Interior.ColorIndex = 1
    .Range(.Cells(3, 1), .Cells(3, xx)).Interior.Pattern = xlSolid
End With

'llenar celdas titulos
For n = 0 To xx - 1
    Hoja.Cells(3, n + 1) = rsTemp.Fields(n).Name
    Hoja.Cells(3, n + 1).Font.Size = 10.5
Next

'llenar celdas
For i = 0 To sw - 1
    For n = 0 To xx - 1
        Hoja.Cells(i + 4, n + 1) = Trim(rsTemp.Fields(n))
        If rsTemp.Fields(n).Name = "ano_prese" Or rsTemp.Fields(n).Name = "ANO_PRESE" Or rsTemp.Fields(n).Name = "mes" Or rsTemp.Fields(n).Name = "MES" Then
            Hoja.Cells(i + 4, n + 1).NumberFormat = "00"
        End If
        If rsTemp.Fields(n).Name = "nume_corre" Or rsTemp.Fields(n).Name = "NDCL" Or rsTemp.Fields(n).Name = "NDCLREG" Then
            Hoja.Cells(i + 4, n + 1).NumberFormat = "000000"
        End If
        If rsTemp.Fields(n).Name = "sector" Or rsTemp.Fields(n).Name = "SECTOR" Or rsTemp.Fields(n).Name = "CADU" Then
            Hoja.Cells(i + 4, n + 1).NumberFormat = "000"
        End If
        If rsTemp.Fields(n).Name = "CAGE" Then
            Hoja.Cells(i + 4, n + 1).NumberFormat = "0000"
        End If
     
    Next

    With Hoja
        .Range(.Cells(i + 4, 1), .Cells(i + 4, xx)).Borders.LineStyle = xlContinuous
    End With

    rsTemp.MoveNext
Next
Hoja.Columns.AutoFit

If SaveExcel = True Then
    objExcel.ActiveWorkbook.SaveAs FileName:=Formulario.CDialog.FileName, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    SaveExcel = False
    Lib.Saved = True
    Lib.Close
    objExcel.Quit
    MsgBox "Hoja de calculo guardada en: " & vbCrLf _
            & Formulario.CDialog.FileName, vbInformation, "SISTEMA"
Else
'    objExcel.Visible = True

End If
rsTemp.Close
Set rsTemp = Nothing
Set objExcel = Nothing
Screen.MousePointer = vbDefault
End Sub

estos procesos demoran demasiado, si alguien sabe alguna manera de hacer estos procesos mas rapidos por favor respondan , gracias de antemano
bye

quiero saber doonde puedo encontrar informacion sobre Multithreading y threads,
o si me pueden enviar algun codigo que explique el funcionamiento, gracias

Hola, tengo un problema :

1        rsN287.Requery
2        xR = rsN287.RecordCount
3        Dim BUSCAR As String
4        BUSCAR = Trim(txtDatos(0).Text) & Trim(txtDatos(2).Text)
5        rsN287.Find "NANDIN='" & BUSCAR & "'"
6        xI = rsN287.Bookmark

MIREN NANDIN es una columna creada en la sentencia:
"select *, NAN + DIN AS NANDIN from TABLA"
las columnas NAN y DIN son de tipo float
el error me sale en la fila 6, por que no encontro ningun registro en la busqueda, pero cuando a las columanas las cambio a tipo char no me sale ningun error, me podria decir como hacer para transformar esos valores(osea a float) o aotra solucion.

ah y tambien no se si sera posible hacer la busque asiendo referencia a 2 columnas ej:

rs.find "nan + din ='"& Trim(txtDatos(0).Text) & Trim(txtDatos(2).Text) &"'"

claro que ahi sale error, pero algo asi, si se puede hacer referencia a dos columnas en el "criterio", gracias por las respuestas