problema con llamar un select de Acces
Publicado por hector (61 intervenciones) el 28/08/2007 18:26:34
Hola: queria que me ayudaran lo que pasa es que estoy tratando llamar un consulta que cree en access y queria obtenerla en visual net, lo que pasa que que cuando lo exucuto esta consulta me sale un error que la ejecucion no es aceptada ya que dice que acepta insert, select, prcedimiento... ALguien me puede decir si estoy bien o mal?
Dim cn As OleDb.OleDbConnection
cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Estadistica\BD_estadisticos.mdb")
Dim pc As OleDb.OleDbCommand = New OleDb.OleDbCommand("{? = Call validar (?, ?)}", cn)
Dim prm As OleDb.OleDbParameter = pc.Parameters.Add("RUT", OleDb.OleDbType.VarChar, 5)
prm.Value = CStr(rut.Text + guion.Text)
cn.Open()
Dim dr As OleDb.OleDbDataReader = pc.ExecuteReader
Else
MsgBox("No(registrado)")
End If
End Sub
Dim cn As OleDb.OleDbConnection
cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Estadistica\BD_estadisticos.mdb")
Dim pc As OleDb.OleDbCommand = New OleDb.OleDbCommand("{? = Call validar (?, ?)}", cn)
Dim prm As OleDb.OleDbParameter = pc.Parameters.Add("RUT", OleDb.OleDbType.VarChar, 5)
prm.Value = CStr(rut.Text + guion.Text)
cn.Open()
Dim dr As OleDb.OleDbDataReader = pc.ExecuteReader
Else
MsgBox("No(registrado)")
End If
End Sub
Valora esta pregunta


0