كيف يمكن نسخ قاعدة بيانات وتغير اسمها

اقتباس

عندي Database اسمها templt كيف يمكنني ان انسخها إلى قاعدة بيانات جديدة على نفس السيرفير اسمها Newdata وكيف يمكنني ان اغير اسمها إلى Olddata كل هذا اريد عمله عن طريق مدير قاعدة البيانات

من الenterprise manager ،يمكنك إنشاء قاعدة بيانات جديدة واستيراد البيانات إليها ، اضغط باليمين على قاعدة البيانات الجديدة واختر all tasks ومنها import data ، سيبدأ لك معالج استيراد البيانات. في أول خطوة حدد له قاعدة البيانات التي تريد الاستيراد منها source database، الخطوة الثانية تطلب منك تحديد قاعدة البيانات الهدف destination database ، غالبا لا تحتاج لتغيير خيارات هذه الخطوة . الخطوة التالية تطلب منك تحديد الجداول التي تريد استيراد البيانات منها وكيفية الاستيراد منها، في آخر خطوة سيبدأ نقل البيانات.

لتغيير اسمها، نفذ الإجراء المخزن في query analyzer:

sp_rename <old_name> <new_name>

بالنسبة لنقل البيانات فقط بالstored procedures فأمهلني فيه قليلا.

جزاك الله خير وزادك علما أخ walcom ..... وان في انتظارك

وارجو ان تكتب لي الكود الذي يتم به استدعاء الإجراء المخزن في query analyzer من خلال VBA التابع للأكسس.

أرجو يا اخي الكريم ان يوكن سبب التأخير خير

اخي طارق

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

اعتقد ان هناك طريقة عن طريق wizard وتجد Copy database

هل هذا يفي بالغرض ام لا

اعذروني انا مبتدي في SQL 2000

وشكرا

لم أجرب من خلال Access ، ولكن هذا هو الكود في VB6:

Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

Dim p1 As Parameter
Dim p2 As Parameter
Dim p3 As Parameter

Dim strcn As String
    strcn = "driver=sql server;server=(local); database=pubs; trusted_connection=yes"
    
    cn.Open strcn
' All up is clear  

' we specify that we want to call a stored procedure
    Set cmd.ActiveConnection = cn
    cmd.CommandText = "myProc"
    cmd.CommandType = adCmdStoredProc

' now we are passing the parameters for this procedure    
    Set p1 = cmd.CreateParameter("Return", adInteger, adParamReturnValue)
    cmd.Parameters.Append p1
    
    Set p2 = cmd.CreateParameter("Output", adInteger, adParamOutput)
    cmd.Parameters.Append p2
    
    Set p3 = cmd.CreateParameter("Input", adInteger, adParamInput)
    cmd.Parameters.Append p3
    
    Dim strProv As String
    Dim iRoyalty As Integer
    
' we want to enter a number, so the query will be using it
    iRoyalty = Trim(InputBox("Enter a royalty: "))
    p3.Value = iRoyalty
    
' here , we have executed the stored procedure
    Set rs = cmd.Execute
    
    Dim i As Integer    
    Dim f As ADODB.Field
    
' to list rows and values returned by the stored procedure
    While Not rs.EOF
        For Each f In rs.Fields
            Debug.Print rs.Fields(i)
            i = i + 1
        Next f
        
        Debug.Print " "
        i = 0
        rs.MoveNext
    Wend
    
    rs.Close
    Set rs = Nothing
    Debug.Print "The program ended with return code " + Str(cmd(0))
    Debug.Print "Total rows satisfying the condition " + Str(cmd(1))
    
    cn.Close
    Set cn = Nothing

وهذا هو نص الإجراء الذي تم استدعاؤه:

USE pubs
GO
CREATE PROCEDURE myProc
@outparm      int      OUTPUT
@inparm      int
AS
SELECT * FROM titles WHERE royalty > @inparm
SELECT @outparm = COUNT (*) FROM TITLES WHERE royalty > @inparm
IF (@outparm > 0)
RETURN 0
ELSE
RETURN 99
GO

منقول من SQL Server books online