[SOLUCIONADO] Consulta SQL con VB.net 2010

[Gustavo1973]

Tengo que hacer un insert de un producto y el código no debe estar duplicado, por lo que hice una función buscaCodigo...

Código vb:

Public Function buscaCodigo(ByVal cod As String, ByVal id As Integer)
        Dim cnn As OleDbConnection
        Dim con As Conexion
        Dim ds As New DataSet
        Dim qbusca As String = "select sum(*) from materiales where codigo = '" & cod & "'"
        Dim res As Integer = 0
 
        On Error GoTo rError
        con = New Conexion
        cnn = con.DBConectar
        cnn.Open()
        ds = con.consulta(qbusca, cnn)
        cnn.Close()
        'If ds = 1 Then
 
        'End If
        buscaCodigo = res
rError:
        rtaError = evaluarError(Err)
        'MsgBox(Err.Number)
        'de acuerdo a la respuesta, realiza...
        Select Case rtaError
            Case Finalizar
                End
            Case Reintentar
                Resume
            Case Ignorar
                Resume Next
            Case Cancelar
                'no hace nada
        End Select
    End Function
 

esta función debe retornar 1 si debe insertar y o cuando no debe insertar.
las condiciones deben ser que el código no este duplicado!!!

Desde ya muchas gracias!!!

[beinat]

Hola buenas noches:

Yo lo haria de la siguiente forma, con un dataAdapter, del siguiente modo:

Código vb:

dataAdapter = New MySqlDataAdapter(qbusca , conexion)
 

despues llenas el dataAdapeter:

Código vb:

dataAdapter.Fill(dataSet, "materiales ")
 

y despues cuentas cuantas tuplas tiene el dataSet:

Código vb:

cuantos=dataSet.Tables("pelicula").Rows.Count
 

en la varible cuantos, obtendras el numero de tuplas que tiene ese concreto cod, si es 0 es que no hay, si es mas de uno, pues que existe.

Lo que tampoco entiendo muy bien es de donde sacas esa consulta sql, utilizas la funcion agregada sum, que no tiene mucho sentido, funcionaria bien o deberia, pero bastaria(y yo creo que quedaria mas limpio) con poner:

Código SQL:

"select codigo from materiales where codigo = '" & cod & "'"
 

Espero haberte ayudado

Un saludo

[Gustavo1973]

Gracias beinat, lo voy a probar!!