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

[rey360]

السلام عليكم عندما قمت برفع قاعدة بياناتي على موقع https://somee.com/ ثم قمت بعمل اتصال بجداول لحظت وجود dbo_ قبل كل اسم جدول وبما أنني كنت قمت بالبرمجة vba أقبل أن ارفع سيأثر ذلك على البرنامج بحيث سيحدث العديد من الاخطاء الى جانب أن المفتاح الاساسي أنتزعة من كل الجداول فهل هناك حل لهذا المشكل أم يجب عليا الانتقال الى mysql وعمل الجدول من جديد وعمل تقريبا كل شىء من جديد 

ملاحظة: موضوع لطريقة التى قمت بها  مشاركة قاعدة البيانات على الانترنت

[د.كاف يار]

اخي عند التعامل مع ارسال او تلقي البيانات فلن تحتاج الى استخدام هذه الرموز هي فقط تضاف حين الاتصال بالجداول من خلال الاكسس

 

و بما انك حولت الى sql

فأنت بحاجة الى بعض التعديلات للاتصال بقاعدة البيانات من خلال الكود

و اذا رغبت بالاستمرار على نفسك وضعك الحالي فقط قم بتغيير اسماء الجداول المرتبطة و حذف رمز التمييز منها

[rey360]

يجب عمل  connection لقاعدة البيانات لاضافة والحذف والتعديل شكرا لك أستاذ د.كاف يار

[محب العقيدة]

بعد اذن .كاف

الطريقة المشروحة معقدة

اسهل طريقة اذا كان لديك نسخة من قاعدة 

Sql server

 فما عليك الا ان تقوم في الموقع

Restore

لقاعدةالبيانات

ثم تقوم بربطها

Odbc

 

تم تعديل سبتمبر 4, 2021 بواسطه محب العقيدة

[د.كاف يار]

تفضل هذه بعض الأكود تحتاجها في عملية الاضافة و التعديل و الحذف

الإضافة
Sub Add_New_Data()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Address_Server As String, UserName_Server As String, Password_Server As String
    Dim strConnString As String
        Address_Server = ""
        UserName_Server = ""
        Password_Server = ""
        strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";"
        
        Set conn = New ADODB.Connection
        conn.Open strConnString

        Set rs = conn.Execute("INSERT INTO Table_Name " & _
        "([column_name1], [column_name2], [column_name3]) " & _
                                        " VALUES(" & _
                                                "[some_value1]," & _
                                                "[some_value2]," & _
                                                "[some_value3]," & _
                                                ")")
                            
            rs.Close
            Set rs = Nothing
End Sub

التعديل
Sub Edit_Data()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Address_Server As String, UserName_Server As String, Password_Server As String
    Dim strConnString As String
        Address_Server = ""
        UserName_Server = ""
        Password_Server = ""
        strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";"
        
        Set conn = New ADODB.Connection
        conn.Open strConnString

        Set rs = conn.Execute("UPDATE Table_Name SET " & _
                            "[column_name1] = new_value," & _
                            "[column_name2] = new_value," & _
                            "[column_name3] = new_value," & _
                            "WHERE column_name = some_value")
                            
            rs.Close
            Set rs = Nothing
End Sub

الحذف
Sub DELETE_Data()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Address_Server As String, UserName_Server As String, Password_Server As String
    Dim strConnString As String
        Address_Server = ""
        UserName_Server = ""
        Password_Server = ""
        strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";"
        
        Set conn = New ADODB.Connection
        conn.Open strConnString

        Set rs = conn.Execute("DELETE FROM Table_Name " & _
                            "WHERE column_name = some_value")
                            
            rs.Close
            Set rs = Nothing
End Sub

 

[amir_adam83]

د.كاف يار

 قم بتغيير اسماء الجداول المرتبطة و حذف رمز التمييز منها

[rey360]

الله يحفظك أستذنا د.كاف يار