كود طريقة انشاء قاعدة بيانات باستخدامADO

الكاتب : سد مارب   المشاهدات : 944   الردود : 3    ‏2003-09-23
      مشاركة رقم : 1    ‏2003-09-23
  1. سد مارب

    سد مارب مشرف سابق

    التسجيل :
    ‏2001-11-29
    المشاركات:
    18,142
    الإعجاب :
    0
    هذا كود لاستخدام طريقة الادو بالفيجوال بيسك في تصميم قاعد بينانات
    اتمنى من لة خبرة كبيرة بهذه الطريقة ان يفيدنا اكثر حيث لست متقدم كثير باستخدام ADO in visual basic]




    Make sure that you add the falwing References
    <-- Microsoft ADO Ext. 2.6 for DDL and Security
    <-- Microsoft ActiveX Data Objects Recorset 2.6 Library

    <------- Form1 as Form
    <------------- Text1 as TextBox
    <------------- Text2 as TextBox
    <------------- cmdCreaData as CommandButton
    <------------- CmdCreatTable as CommandButton

    Private Sub cmdCreateData_Click()
    If (CreateDatabase(Text1.Text) = True) Then
    MsgBox "Database Successfully Created "
    Else
    MsgBox "Error in Createing, Databse is not Created"
    End If
    End Sub

    Private Sub CmdCreatTable_Click()
    If (CreateAutoIncrColumn(Text2.Text) = True) Then
    MsgBox "Table Successfully Created "
    Else
    MsgBox "Error in Createing, Table is not Created"
    End If
    End Sub
    Function CreateDatabase(DatabaseName As String) As Boolean
    On Error GoTo TqDbError
    Dim cat As New ADOX.Catalog
    'Dim cat As New ADOMD.Catalog

    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\" & Trim(DatabaseName) & ".mdb"
    CreateDatabase = True
    Exit Function
    TqDbError:
    CreateDatabase = False
    MsgBox "error :" & Trim(Str(Err.Number)) & " " & Err.Description
    End Function
    Function CreateAutoIncrColumn(TableName As String) As Boolean

    Dim cat As New ADOX.Catalog
    Dim tbl As New ADOX.Table
    Dim col As New ADOX.Column

    On Error GoTo TqTableError
    ' Open the catalog
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\" & text1.text &".mdb;"

    With tbl
    .Name = TableName
    Set .ParentCatalog = cat
    ' Create fields and append them to the new Table object.
    .Columns.Append "ContactId", adInteger
    ' Make the ContactId column and auto incrementing column
    .Columns("ContactId").Properties("AutoIncrement") = True
    .Columns.Append "CustomerID", adInteger
    .Columns.Append "FirstName", adVarWChar, 15
    .Columns.Append "LastName", adVarWChar, 25
    .Columns.Append "Phone", adVarWChar, 20
    .Columns.Append "Salary", adCurrency
    .Columns.Append "Birthdate", adDate
    .Columns.Append "Notes", adLongVarWChar
    End With

    cat.Tables.Append tbl

    Set cat = Nothing
    CreateAutoIncrColumn = True
    Exit Function
    TqTableError:
    CreateAutoIncrColumn = False
    MsgBox "error :" & Trim(Str(Err.Number)) & " " & Err.Description
    Exit Function
    End Function





    this code from a book is called "database programming in visual basic 6.0"
    i hope to be good for inderstanding

    your brother marib dam
     
  2.   مشاركة رقم : 2    ‏2003-09-23
  3. العمراوي

    العمراوي مشرف سابق

    التسجيل :
    ‏2002-11-24
    المشاركات:
    7,510
    الإعجاب :
    4
    مشكووور اخي على الموضوع الجميييل .,.,.,.,

    وأنتطر المسابقة اتشترك بمثل هذه المواضيع الجميله .,.,.,.,
     
  4.   مشاركة رقم : 3    ‏2003-09-23
  5. 3laa3sam

    3laa3sam عضو فعّال

    التسجيل :
    ‏2003-06-21
    المشاركات:
    619
    الإعجاب :
    0
    كويس ...

    ألموضوع كويس وأنا بجد محتاج (كورس) عشان الداتا بيس.
     
  6.   مشاركة رقم : 4    ‏2003-09-23
  7. سد مارب

    سد مارب مشرف سابق

    التسجيل :
    ‏2001-11-29
    المشاركات:
    18,142
    الإعجاب :
    0
    المحقق كونان
    3LAA3SAM

    شكرا تفاعلكم ومروروكم
    نرجو ممن لدية خبرة كافية بتصميم وبرمجة قواعد البيانات باستخدام الادو التفاعل
    لانة بجد طريقة مهمة وقوية لتصميم الداتا بيس تحتاج لاحتراف

    سد مأرب
     

مشاركة هذه الصفحة