تفضل هذا الكود وغير مايلزم ليتوافق مع المتطلبات لديك
PHP كود :
'كود التحقق من وجود الرقم
Dim cmd As New OleDbCommand("select * from idtable where id =" & TextBox1.Text & "", cn) Dim dr As OleDbDataReader cn.Open() dr = cmd.ExecuteReader If dr.HasRows = True Then MsgBox("عفوا هذا الرقم موجود مسبقا")
cn.Close() Else 'كود الاضافة
Dim cm As New OleDbCommand("insert into idtable (id) values ('" & TextBox1.Text & "')", cn)