شرح قواعد بيانات Sql Server مع الفيجوال بيسك 6

أخي الكريم ، إذا كنت تقصد كيفية الربط والتعامل مع قاعدة البيانات بواسطة الفيجوال بيزيك 6 فصدقني هناك العديد من الأمثلة التي تشرح الربط مع Access وكل ما يطبق علي Access يطبق علي SQL-Server كأوامر Recordset .

أما بالنسبة للإختلاف فهي إختلاف الربط وأوامر قاعدة البيانات فقط لا غير . فإذا كنت تفهم SQL-Server جيداً وتسفهم أوامر Recordset جيداً ، فهنا يمكنك صناعة ما تودة .

شكراً

كنت اود مراجع باللغة الانجليزية اوكتب تشرح هذا المجال بالتحديد او مشروعات في هذا الامر من اجل الخبرة

اقتباس

أخي الكريم ، إذا كنت تقصد كيفية الربط والتعامل مع قاعدة البيانات بواسطة الفيجوال بيزيك 6 فصدقني هناك العديد من الأمثلة التي تشرح الربط مع Access وكل ما يطبق علي Access يطبق علي SQL-Server كأوامر Recordset .

أما بالنسبة للإختلاف فهي إختلاف الربط وأوامر قاعدة البيانات فقط لا غير . فإذا كنت تفهم SQL-Server جيداً وتسفهم أوامر Recordset جيداً ، فهنا يمكنك صناعة ما تودة .

أخي الكريم ، صدقني فيما قلتة ، فسأضع لك مثال بسيط يوضح الفرق بين أكسيس وSQL-Server :

طريقة إنشاء جدول الهاتف بأكسيس :

Dim Cn As New ADODB.Connection
Dim Sql As String

Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB.MDB"

Sql = "Create Table Phone"
Sql = Sql & "(Phone_ID  Counter,"
Sql = Sql & "Phone_Code VarChar(20),"
Sql = Sql & "Phone_Name VarChar(50),"
Sql = Sql & "Phone_Address VarChar(150),"
Sql = Sql & "Phone_No VarChar(20),"
Sql = Sql & "Constraint PK_Phone Primary Key(Phone_ID))"

Cn.Execute Sql

طريقة إنشاء جدول الهاتف بالسيكوال :

Dim Cn As New ADODB.Connection
Dim Sql As String

Cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=master"

Sql = "Create Table Phone"
Sql = Sql & "(Phone_ID  BigInt Identity(1,1),"
Sql = Sql & "Phone_Code VarChar(20),"
Sql = Sql & "Phone_Name VarChar(50),"
Sql = Sql & "Phone_Address VarChar(150),"
Sql = Sql & "Phone_No VarChar(20),"
Sql = Sql & "Constraint PK_Phone Primary Key(Phone_ID))"

Cn.Execute Sql

فأخي صدقني ، بالنسبة لأوامر Recordset فهي تقريباً واحدة ، والذي يختلف هي طرق الربط وأوامر قاعدة البيانات SQL . فأبحث بالمنتدي جيداً وستجد العديد من الأفكار والمشروعات والتمارين عن أي شيء يخص الربط مع Access . ومن ثم طبق علي SQL-Server مع خلاف أوامر لغة قاعدة البيانات .

شكراً

مشكور على الشرح و الكود

اريد الاتصال بقاعدة بيانات سكوال

عند كتابة هذا الكود لم يتم الاتصال ويظهر خطأ ما اثناء تنفيذ االكود

والكود الذى قمت بكتابتة هو

'
 Dim db As New ADODB.Connection
 Dim rs As New ADODB.Recordset
'
Private Sub Form_Load()
'
 db.Provider = "SQLOLEDB.1;"
 db.Open App.Path & "\Dat_Data.mdf"
 rs.Open "[Table1]", db, adOpenStatic, adLockReadOnly
 MsgBox "تم الاتصال"
End Sub

1- في حالة الربط مع الجهاز الحالي :

Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=DB

حيث أن :

Initial Catalog --> إستقبال إسم قاعدة البيانات الموجودة داخل SQL-Server .

2- في حالة الربط مع جهاز آخر Server :

Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=DB;Data Source=Mostapha

حيث أن Data Source يستقبل إسم الجهاز الخادم ، ولكن يجب ضبط الشبكة بحيث أن تعمل علي Group واحد .

أنقر هنا ، حيث يحتوي علي موقع بكافة الإتصالات ، فقد أدرجها أخ بالمنتدي من قبل

شكراً

اشكرك على سرعة الرد

وانما انا كنت عاوزة اربطها مثل الاكسس

يعنى بنفس طريقة الاكسس

باستخدام مسار القاعدة وتكون فى نفس مسار الملف التنفيذى للمشروع

وشكراا

ارجوا منك بتعديل الملف المرفق

OpenTableSQL.rar

حتي لو أنك ترغبين بتحديد المسار ، يجب عليك تنصيب MSDE المرتبط مع نسخة SQL-Server ، ويجب تحميل قاعدة البيانات علي السيرفر !!!

Dim strCon As String
strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;"
strCon = strCon & "Initial Catalog=DB_Store;"   ''إدخال إسم قاعدة البيانات.
strCon = strCon & "Initial File Name=C:\DB_Store.mdf"   ''إدخال مسار قاعدة البيانات.

اخى فى الله

اعتقد لو تكرمت اكثر واعطيت مثال يوضح ذلك

فأكون شاكرة ليك جدا

فارجوا ان يكون المثال على نفس صيغة المثال المرفق

وشكرا

اختك فى الله امانى

وحياك الله

أضف هذا المود في المديول:

Option Explicit

Public Cn As New ADODB.Connection

Public Sub Koneksi()

If Cn.State > 0 Then Exit Sub

With Cn

.ConnectionTimeout = 30

.ConnectionString = "Provider=SQLOLEDB.1;" & _

"User ID=username; Password=password;" & _

"InitialCatalog=dbasename"

.Open

End With

End Sub

---------------------------------------------------------------------------

بالنسبة للفورم:

الجزء الأعلى من يعني general

ضع هذا الكود

Dim Rs As New ADODB.Recordset

-----------------------------------------------------------------

مثلا في منطقة الحفظ command1

تبدأ هكذا

SQL = "select * from TableName order fieldName"

If Rs.State > 0 Then Rs.Close

Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic

Rs.Open "tablename", Cn, adOpenDynamic, adLockOptimistic

With Rs

.AddNew

.Fields("FieldName") = text1.Text

.Fields("FieldName") = text2.Text

.Fields("FieldName") = text3.Text

.Update

.Close

End With