[dubai.eig]

(22-12-16, 08:12 PM)dubai.eig كتب :

(22-12-16, 08:09 PM)مساعدة كتب : السلام عليكم

هذه أول مساعدة في هذا المنتدى

مع أن الكود سيضيف في كلا الحالتين، ولكن اعتمدت على توضيحك الأخير

كود :

Dim cn As New SqlCeConnection("Data Source=Database1.sdf")

Dim cmd As New SqlCeCommand(" SELECT COUNT(name) FROM Tables WHERE name = @name ", cn)
cmd.Parameters.AddWithValue("@name", _name)

cn.Open()
If cmd.ExecuteScalar = 0 Then
   cmd.CommandText = " INSERT INTO Tables(name, dati, time ) VALUES(@name, @date, @time ) "
   daa.SelectCommand.Parameters.AddWithValue("@dati", _dati)
   daa.SelectCommand.Parameters.AddWithValue("@time", _time)

   MsgBox("add " & _name)

Else
   MsgBox("Duplicate " & _name)

End If
cn.Close()

بارك الله فيك

بقوم بتجربة الان 

شكرا لك

شكرا لك

الكود كما اللي اريده شكرا لك من جديد بارك الله فيك