Ayuda consulta en access

19/02/2006 - 15:28 por Adninra | Informe spam
Ante nada muchas gracias a tod@s que con gran paciencia resuelven nuestras
dudas.
Ahora mismo yo me veo en uun pequeño problema que para alguno seguro que es
facil de resolver asi que ahio va la consulta tengo el siguiente codigo en
vb.net con bd access
strConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=C:\Documents and
Settings\Arminda\Escritorio\cuymo2000\cuymo2000\cuymo2000.mdb"

Try
'Abrimos la conexión
cn = New OleDbConnection(strConexion)
cn.Open()
Catch ex As Exception
MessageBox.Show("Error al abrir la conexión:" & vbCrLf &
ex.Message)
Exit Sub
End Try


ds = New Data.DataSet()
Ssql = "SELECT a.nombre,b.stock FROM productos a left JOIN almacen b
ON a.cod_prod=b.cod_prod"

da = New OleDbDataAdapter(Ssql, cn)

Dim cmdBuilder As New OleDbCommandBuilder(da)
da.MissingSchemaAction = MissingSchemaAction.AddWithKey '(Añadir con
clave)

'Cargamos el DataSet
Try
da.Fill(ds, "almacen")
Catch ex As Exception
MessageBox.Show("Error al cargar el DataSet:" & vbCrLf &
ex.Message)
End Try
listado.DataSource = ds.Tables("almacen")

mi problema es que no me ejecuta la consulta y no se si es a lahora de poner
el nombre al carga dataadapter o es a la hora dela consulta alguien sabe que
puede ser??.
Muchas gracias tod@s
 

Leer las respuestas

#1 A.Poblacion
19/02/2006 - 15:41 | Informe spam
"Adninra" wrote in message
news:
Ahora mismo yo me veo en uun pequeño problema que para alguno seguro que
es
facil de resolver asi que ahio va la consulta tengo el siguiente codigo
en
vb.net con bd access
strConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=C:\Documents and
Settings\Arminda\Escritorio\cuymo2000\cuymo2000\cuymo2000.mdb"

Try
'Abrimos la conexión
cn = New OleDbConnection(strConexion)
cn.Open()
Catch ex As Exception
MessageBox.Show("Error al abrir la conexión:" & vbCrLf &
ex.Message)
Exit Sub
End Try


ds = New Data.DataSet()
Ssql = "SELECT a.nombre,b.stock FROM productos a left JOIN almacen
b
ON a.cod_prod=b.cod_prod"

da = New OleDbDataAdapter(Ssql, cn)

Dim cmdBuilder As New OleDbCommandBuilder(da)
da.MissingSchemaAction = MissingSchemaAction.AddWithKey '(Añadir
con
clave)

'Cargamos el DataSet
Try
da.Fill(ds, "almacen")
Catch ex As Exception
MessageBox.Show("Error al cargar el DataSet:" & vbCrLf &
ex.Message)
End Try
listado.DataSource = ds.Tables("almacen")

mi problema es que no me ejecuta la consulta y no se si es a lahora de
poner
el nombre al carga dataadapter o es a la hora dela consulta alguien sabe
que
puede ser??.




Pues el código tiene buen aspecto. En principio, debería funcionar.
¿Qué síntomas te da cuando dices que "no ejecuta" la consulta? ¿Da algún
error? ¿Pasa la instrucción sin errores pero no trae ningún dato?

Otra cosa: ¿Es un programa Windows? Lo digo porque si en lugar de ser un
Winform es ASP.NET, entonces el problema que vas a tener es de permisos:
Estás usando un .mdb que está bajo tu "Documents and settings", que es un
directorio que no tiene permisos de acceso para el usuario ASPNET que es el
que realmente ejecuta el código.

Preguntas similares