Scannear imagen y datos, guardar en BD de mysql...con VB 6.0

[bk_820609]

Hola quiero saber como puedo solucionar es proyecto...y espero que alguen pueda atender mi petición.

[GeoAvila]

en las faq's hay un ejemplo como guardar imagenes en una db funciona en msyql tambien.. y para escanear usa los controles de atalasoft.com

nos vemos..

[bk_820609]

Pero no encontre nada...puedes ser más especifico?......si no es mucha molestia?......BK

[lop7]

hola....
esto es lo q dice geoAvila

http://www.forosdelweb.com/showthrea...light=imagenes

saludos
Nos vemos

[bk_820609]

Es la parte del codigo donde tengo duda..........quiero que los datos de la variable ApellidoP, ApellidoM y NombreU los envie a un cristal Report......para poder imprimir un formato.

Este es codigo de la prueba 1

Private Sub Command1_Click()
Dim conne As Connection
Dim ApellidoP As String * 25
Dim ApellidoM As String * 25
Dim NombreU As String * 40
Dim strquery As String ' declaro variable para ejecuatar la consulta

ApellidoP = ApPat.Text
ApellidoM = ApMat.Text
NombreU = Nombre.Text

Dim rs As Recordset
Dim strConnect 'Cadena de datos de conexion
Set cn = New ADODB.Connection 'Conexin a la base de datos
Set rs = New Recordset
strConnect = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=precred;UID=root ;" 'Proveedor de base de Datos
cn.Open strConnect 'Abre al conexion de la base de datos'

strquery = "insert into cliente values ( ' " & Nombre.Text & " ' , ' " & ApPat.Text & " ' , ' " & ApMat.Text & " ' )" 'Inserta el la base de datos lo que tiene la caja de texto
cn.Execute strquery 'ejecuta el insert

MsgBox ("Se Insertaron los Datos Correctamente")
'TempBBDD

rs.Open
If Not rs.EOF Then
'Do Until rs.EOF
Dibuja.Show

'---------------///////Aqui debe de ir la programación donde muestra los datos en ventana"//////////-----------
'---------------///////Aqui mismo debe de ir la programación para mandar a imprimir los datos de la forma."//////////-----------
'---------------///////ANALISIS DESARROLLO JUAN**********
'rs.MoveNext
'Loop

Else
MsgBox (" ")
End If

End Sub
Espero que alguien pueda decirme que estoy haciendo MAL.....gracias......

[bk_820609]

Es la parte del codigo donde tengo duda..........quiero que los datos de la variable ApellidoP, ApellidoM y NombreU los envie a un cristal Report......para poder imprimir un formato.

Este es codigo de la prueba 1

Private Sub Command1_Click()
Dim conne As Connection
Dim ApellidoP As String * 25
Dim ApellidoM As String * 25
Dim NombreU As String * 40
Dim strquery As String ' declaro variable para ejecuatar la consulta

ApellidoP = ApPat.Text
ApellidoM = ApMat.Text
NombreU = Nombre.Text

Dim rs As Recordset
Dim strConnect 'Cadena de datos de conexion
Set cn = New ADODB.Connection 'Conexin a la base de datos
Set rs = New Recordset
strConnect = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=precred;UID=root ;" 'Proveedor de base de Datos
cn.Open strConnect 'Abre al conexion de la base de datos'

strquery = "insert into cliente values ( ' " & Nombre.Text & " ' , ' " & ApPat.Text & " ' , ' " & ApMat.Text & " ' )" 'Inserta el la base de datos lo que tiene la caja de texto
cn.Execute strquery 'ejecuta el insert

MsgBox ("Se Insertaron los Datos Correctamente")
'TempBBDD

rs.Open
If Not rs.EOF Then
'Do Until rs.EOF
Dibuja.Show

'---------------///////Aqui debe de ir la programación donde muestra los datos en ventana"//////////-----------
'---------------///////Aqui mismo debe de ir la programación para mandar a imprimir los datos de la forma."//////////-----------
'---------------///////ANALISIS DESARROLLO JUAN**********
'rs.MoveNext
'Loop

Else
MsgBox (" ")
End If

End Sub
Espero que alguien pueda decirme que estoy haciendo MAL.....gracias......