VB.net

Question

erişim kayıt var kontrol etmek için gereken yardım Bir program üzerinde çalışıyorum ve bir müşteri kimliği girdiğinizde kayıt silecek bir bölüm yapıyorum. Mesele şu ki, eğer 30 no'lu numaraya girerseniz ve 30'luk bir sayı varsa, o id ile hiçbir kayıt olmasa bile hala devam edecek ve silinecektir. Kayıt olmadığını belirten bir mesaj göstermesini istiyorum, ancak aşağıdaki kod işe yaramayacak. Kafam çok karıştı!

Burada kodu buldum ve bunu tasarımıma uygulamaya çalışıyorum, ancak çalışmıyor. Gördüğünüz gibi orijinal kodumu etiketledim, ancak bu yeni kodu kullanmaya çalıştım. Yardım lütfen! çalıştırırken i almak

Benim hatadır: Kelime desteklenmez: 'sağlayıcı'

Kodu:

Private Sub Client(ByVal ans As String) 

    Dim con1 As SqlConnection = New SqlConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\Database.accdb") 
    If con1.State = ConnectionState.Closed Then con1.Open() 
    Dim theQuery As String = "SELECT * FROM tbl WHERE ID = ?" 
    Dim cmd1 As SqlCommand = New SqlCommand(theQuery, con1) 
    cmd1.Parameters.AddWithValue("?", OleDbType.VarChar).Value = ans 

    Using reader As SqlDataReader = cmd1.ExecuteReader() 
     If reader.HasRows Then 
      ' User exists delete 
      Dim cmd As SqlCommand = New SqlCommand("DELETE FROM tbl where ID = ?", con1) 
      cmd.ExecuteNonQuery() 
     Else 
      ' User does not exist throw message 

      MsgBox("Records dont exist", MsgBoxStyle.Information, "Add New Customer!") 

     End If 
    End Using 

    con1.Close() 
End Sub 

Answer 1

ı o kadar düzgün çalışmıyor bir ERİŞİM veritabanına bağlanmak için SQL ifadelerini kullanıyordu yana köklerime geri dönüp doğru OleDb ifadelerini kullanmam gerekiyordu. benim durumumda çalışılabilir kod aşağıdaki gibi olacaktır:

Private Sub DeleteClient(ByVal ans As String) 
    If con.State = ConnectionState.Closed Then con.Open() 

    cmd = New OleDbCommand 
    cmd.Connection = con 
    cmd.CommandText = "DELETE FROM tbl WHERE ID = ?" 
    cmd.Parameters.Add("?", OleDbType.VarChar).Value = ans 
    If cmd.ExecuteNonQuery() = 0 Then 
     MsgBox("ID Does not exist!", MsgBoxStyle.Critical, "Enter new customer ID!") 
    Else 
     MessageBox.Show("The entered ID has now been deleted.", "Deletion Complete!", MessageBoxButtons.OK, MessageBoxIcon.Information) 
    End If 
    cmd.ExecuteNonQuery() 
    con.Close() 
End Sub