No duplicar datos bd

[guillebomtrasmiti]

hola amigos, tengo un problema que llevo días y no consigo arreglar, tengo este código;

Public Sub copiaintro()

Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet

Try
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
'comados.CommandText = "INSERT INTO IntroduccionDeVentasAhora SELECT reg,Cantidad,Pts,Fecha,NombreFormaPago,IvaVenta,Ba rra,NombTerminal From [Introducción De Ventas] WHERE Barra = @combo1 and NombTerminal = @combo2 and Fecha BETWEEN @FI AND @FF ORDER BY reg"

'comados.CommandText = "SELECT COUNT(*) FROM IntroduccionDeVentasAhora WHERE Fecha = @FI AND @FF INSERT INTO IntroduccionDeVentasAhora SELECT * FROM [Introducción De Ventas] WHERE Fecha BETWEEN @FI AND @FF Order by Fecha"
comados.CommandText = "INSERT INTO IntroduccionDeVentasAhora SELECT * FROM [Introducción De Ventas] WHERE Fecha BETWEEN @FI AND @FF and Order by Fecha"
comados.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
comados.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))


conexion.Open()

Dim Lecto1 = comados.ExecuteNonQuery
cargacomboMostradores()
cargacomboTerminales()
cargacombos()

MessageBox.Show("Se han copiado los datos seleccionados entre fechas " + Fecha1.Value.Date.ToString("dd/MM/yyyy") + " y " + Fecha2.Value.Date.ToString("dd/MM/yyyy"), "")
LbFechaPrimera.Visible = True
cargafechaslabelprimera()
LbFechasultima.Visible = True
cargafechaslabelultima()
Lhasta.Visible = True
conexion.Close()
Catch

End Try
'BPasa.Enabled = False

End Sub

funciona genial, pero tengo la necesidad de que antes de insertar los datos compruebe si existen y si es así que no lo haga...pero si no existen que si los inserte...alguna idea=?

[alan_69niupi]

mira este es un ejemplo. esto lo use para verificar si existe los datos que ingreso en un textbox en mi base de datos. esto lo podrias modificar a tu conveniencia.
este codigo lo uso para validar usuarios y contraseñas.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ob As New VerReservacion.VerReservacion()
Dim Conn As New SqlConnection()
Conn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Admin\Mis documentos\TEC_MERIDA\Tec_Merida_10º_sem\Programac ion Net Basica\ProyectoFinal\Final_net.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim sentenciaSql As String

sentenciaSql = String.Format("SELECT usuario, contraseña FROM Usuarios WHERE usuario='" + TextBox1.Text + "' AND contraseña='" + TextBox2.Text + "'")

Try
Dim adapter = New SqlDataAdapter(sentenciaSql, Conn)

Dim tabla = New DataTable()
Conn.Open()
adapter.Fill(tabla)
If (tabla.Rows.Count = 1) Then
Me.Hide()
ob.Show()
Else
MsgBox("El usuario o contraseña no son correctos")
End If

Catch ex As ApplicationException
End Try

End Sub

espero que te sirva
[email protected]

[Ka0stj]

Necesitas realizar la validación antes de mandar llamar el ExecuteNonQuery(). Por otro lado donde tienes el SELECT COUNT(*) necesitas hacer algo similar a lo siguiente:

Código vb:

Dim nRegistros AS INTEGER = Comandos.ExecuteScalar()
 
IF nRegistros > 0 THEN
 
'-- Realizas la inserción
 
ELSE
 
MsgBox("No existen datos.")
 
END IF
 

[guillebomtrasmiti]

gracias como siempre por vuestras respuestas, voy a probarlo y si lo consigo pongo el código, sois la caña ...graciasssssssssssssssssssssssssssssssss

[guillebomtrasmiti]

nada, no lo consigo, he intentado las dos opciones y no hay manera, no podría ser que viera si las fechas están cargadas y si lo están que no las cargue?¿?, el caso es que no se hacerlo

[guillebomtrasmiti]

por lo de ahora no lo consigo así que he puesto una columna autonumérica y la he metido como clave principal...ya veré como arreglarlo mejor pero por ahora debo seguir con el proyecto...abrazosss

[Ka0stj]

Que tal guille, postea tu código para poder ayudarte.

Saludos!

[ldcd]

yo te recomendaria una validacion dentro de la consulta de sql, o como ya t dijeron, con el select count y verificar si la consulta te regreso algun dato, si es asi, no ejecutar el insert

[edbc92]

Hey yo publiqué un post parecido con tu pregunta, y lo resolví. Podrías 'chequear' entre mis posts y quizás encuentres tu respuesta.

[CrazyGrungeMan]

yo en sql server al crear las tablas a los datos que no quiero que se repitan les pongo unique pero no se que usas porque no leí todo XD
o sino antes haces una consulta que te devuelva las filas afectadas y si no devuelve 0 es porque ya existen, entonces no realizas los insert.
bue saludos

[edbc92]

Iniciado por CrazyGrungeMan

haces una consulta que te devuelva las filas afectadas y si no devuelve 0 es porque ya existen, entonces no realizas los insert.
bue saludos

Ya te resolvieron la duda, eso es lo que se hace (eso yo lo hice) xd

[edbc92]

Bueno porsiaca te dejo una parte de mi código con lo que hice para validar usuarios duplicados.

Código vb:

If estado = "insertar" Then
                    'validar login duplicado
                    sql = "select usu_login from usuarios where usu_login=@usu_login"
                    cmd = New SqlCommand(sql, cn)
                    cmd.Parameters.AddWithValue("@usu_login", txtlogin.Text)
 
                    If cmd.ExecuteScalar <> "" Then
                        MsgBox("El nombre de login '" & txtlogin.Text & "' ya existe en la base de datos", 48, "Error")
                        Exit Sub
                    End If
End If