06-07-18, 03:53 PM
السلام عليكم
في البداية انا حديث الاستخدام لسيكول سيرفر 2014
استخدمت استضافة تجريبية قبل الدفع للتاكد من الاكواد قبل اي شيء
صممت قاعدة بيانات بسيطة بسيكول سيرفر 2014 وفيجول بيسك دوت نت 2010
رفعتها الي الاستضافة
قمت بالاتصال وكل شيء تمام وظهر الجدول عندي بالبيانات
حبيت اجرب الاضافة والحذف والتعديل استخدمت نفس الاكواد الي كنت قديما استخدمها مع الاكسيس وكانت تعمل بامتياز علي الاكسيس
وغيرت طبعا طريقة الاتصال بسيكول سيرفر مثلا OLEDCOMMAND= SQLCOMMAND
استخدمت الكود التالي للاضافة ولكن لايضيف شيء الكود تعديل للاكواد السابق استخدمها مع الاكسيس .
في البداية انا حديث الاستخدام لسيكول سيرفر 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