[محمد اسماعيل]

السلام عليكم

في البداية انا حديث الاستخدام لسيكول سيرفر  2014

استخدمت استضافة تجريبية قبل الدفع للتاكد من الاكواد قبل اي شيء

صممت قاعدة بيانات بسيطة بسيكول سيرفر 2014   وفيجول بيسك دوت نت 2010
رفعتها الي الاستضافة
قمت بالاتصال وكل شيء تمام وظهر الجدول عندي بالبيانات

حبيت اجرب الاضافة والحذف والتعديل استخدمت نفس الاكواد الي كنت قديما استخدمها مع الاكسيس وكانت تعمل بامتياز علي الاكسيس
وغيرت طبعا طريقة الاتصال بسيكول سيرفر مثلا OLEDCOMMAND= SQLCOMMAND

استخدمت الكود التالي للاضافة ولكن لايضيف شيء الكود تعديل للاكواد السابق استخدمها مع الاكسيس .

PHP كود :

   Public DTB As BindingSource
    Public ds As New DataSet
    Public da As New SqlDataAdapter

 Private Sub ConnectSERVER()
               Dim cmd As SqlCommand = New SqlCommand("select * from Table_TB", conns)
        da = New SqlDataAdapter(cmd)
        Dim builder As SqlCommandBuilder = New SqlCommandBuilder(da)
        da.Fill(ds, "Table_TB")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "Table_TB"
        DataGridView1.Refresh()
    End Sub


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            ConnectSERVER()
        Catch ex As Exception
            MsgBox("يوجد مشكلة بالاتصال بالسيرفر")
        End Try

   End Sub
    Sub INSERTDATA()
        Try
            Dim MAXID As Integer = Me.ds.Tables("Table_TB").Compute("Max(ID)", "ID >= 0") + "1"
            Using cmd As New SqlCommand("insert into Table_TB (ID,NAME_TB,NOTE_TB) values(@ID,@NAME_TB,@NOTE_TB)", conns)
                cmd.Parameters.AddWithValue("@ID", (MAXID))
                cmd.Parameters.AddWithValue("@NAME_TB", (TextBox3.Text))
                cmd.Parameters.AddWithValue("@NOTE_TB", (TextBox4.Text))
                conns.Open()
                cmd.ExecuteNonQuery()
                conns.Close()
            End Using
            da.Update(ds, "Table_TB")
            ds.AcceptChanges()
            MsgBox("تم الاضافه والحفظ بنجاح")
        Catch ex As Exception
            MsgBox("فشلت العملية")
        End Try
    End Sub