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:
Ver originalPublic 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!!!