ExecuteScalar.....?
Publicado por mario martin (22 intervenciones) el 25/10/2007 18:41:20
Hola, espero me puedan ayudar les agradeceria bastante,
bueno tengo un error y eso ocurre en la linea del "executescalar"
Public Shared Function getconnection() As OleDbConnection
Dim connection As New OleDbConnection()
connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\mario\Escritorio\comedor.mdb;Persist Security Info=True"
Return connection
End Function
Public Shared Function SelectTrabajador() As Integer
Dim sql As String = "select Codtrab from comedor where nombres"
Dim dbValue As Integer
Using connection As OleDbConnection = conexion.getconnection()
connection.Open()
Using command As New OleDbCommand(sql, connection)
command.CommandType = CommandType.Text
=============> dbValue = Convert.ToInt32(command.ExecuteScalar())
End Using
End Using
MsgBox("cogio el parametro")
Return CInt(dbValue)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim selectproduct As Integer = consulta.SelectTrabajador()
Me.TextBox1.Text = selectproduct
Catch ex As Exception
label.text="error"
End Try
End Sub
Bueno alguien que me pueda ayudar le agradeceria bastante, lo que pasa es que recien estoy intentando programar con clases y me sale este error .....
Gracias mario martin
bueno tengo un error y eso ocurre en la linea del "executescalar"
Public Shared Function getconnection() As OleDbConnection
Dim connection As New OleDbConnection()
connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\mario\Escritorio\comedor.mdb;Persist Security Info=True"
Return connection
End Function
Public Shared Function SelectTrabajador() As Integer
Dim sql As String = "select Codtrab from comedor where nombres"
Dim dbValue As Integer
Using connection As OleDbConnection = conexion.getconnection()
connection.Open()
Using command As New OleDbCommand(sql, connection)
command.CommandType = CommandType.Text
=============> dbValue = Convert.ToInt32(command.ExecuteScalar())
End Using
End Using
MsgBox("cogio el parametro")
Return CInt(dbValue)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim selectproduct As Integer = consulta.SelectTrabajador()
Me.TextBox1.Text = selectproduct
Catch ex As Exception
label.text="error"
End Try
End Sub
Bueno alguien que me pueda ayudar le agradeceria bastante, lo que pasa es que recien estoy intentando programar con clases y me sale este error .....
Gracias mario martin
Valora esta pregunta


0