تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] الاتصال بقاعدة بيانات SQL server2008
#1
السلام عليكم ورحمة الله وبركاته

تحية لكل اعضاء ومشرفى الموقع الكرام

لدى برنامج يعمل على فيجوال بيسك 6 وقاعدة بيانات اكسس 2003

وهذا كود الاتصال بقاعدة البيانات فى مديول منفصل

Public DB As New ADODB.Connection
Public RS As New ADODB.Recordset
Public Rss As New ADODB.Recordset
Public Rs1 As New ADODB.Recordset
Public Rs2 As New ADODB.Recordset
Public Rs3 As New ADODB.Recordset
Public Rs4 As New ADODB.Recordset
Public Rs5 As New ADODB.Recordset
Public myrecset As New ADODB.Recordset
Public myrecset1 As New ADODB.Recordset
Public Modify_Type As String
Public SQLs As String
Public SQLs1 As String
Public mysql As String
Public mysql1 As String
Public UserNames As String
Public UserPassword As String

Public Function OpenDB(DBFilename As String) As Boolean
' On Error GoTo ex
If DB.State = adStateOpen Then DB.Close
DB.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDBBig Grinatabase Password=bancianaqhdudhlhkst;" & _
"Data Source=" & DBFilename & ";"

OpenDB = True
Exit Function
ex: '------------------------
OpenDB = False
End Function

Public Sub bance_mydb()
OpenDB (App.Path & "\bance_st" & sys_start.StatusBar1.Panels(10).Text & ".ban")

End Sub

************************************************************
الان قمت بتسطيب برنامج SQL SERVER 2008 R2
SERVER NAME: ABO_BANCIANA
LOFIN: mahmoud
Pasword:123

ويوجد قاعدة بيانات اسمها STORE

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

ولكم كل الشكر والاحترام
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

لقد توصلت لكود الاتصال بقاعدة البيانات التالى :

Public Sub bance_mydb()
If DB.State = adStateOpen Then DB.Close

DB.ConnectionString = "driver={SQL Server};" & _
"server=ABO_BANCIANA;uid=mahmoud;pwd=123;database=store"
DB.Open strCnn

End Sub

والكود يعمل والحمد لله

ولكن........

لا يعمل البرنامج على جهاز اخر

ارجوا المساعدة فى عملية الاتصال بقاعدة البيانات السابقة

عن طريق الشبكة الداخلية

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

تقبلوا تحياتى
الرد }}}}
تم الشكر بواسطة:
#3
للرفع
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

بحمد الله توصلت للحل

وده لينك الموضوع

http://arabteam2000-forum.com/index.php/...-link-udl/


لا ادرى اذا كان مسموح بوضع لنك لموقع اخرى ام لا

ولكن كان قصدت ان اساعد من يبحث عن نفس الموضوع

تقبلوا تحياتى
الرد }}}}
تم الشكر بواسطة: Sajad
#5
لو تسمحوا كيف امنع تكرار البيانات عند اضافة البيانات الى قاعدة البيانات أكسس بلغة ال c# مثلا عندي جدول يحتوي على رقم المادة واسم المادة واسم الوحدة كيف امنع التكرار على الثلاث الحقول مثلا
الرد }}}}
تم الشكر بواسطة:
#6
إقتباس :مشاركات : #4
RE: الاتصال بقاعدة بيانات SQL server2008
السلام عليكم ورحمة الله وبركاته
بحمد الله توصلت للحل
وده لينك الموضوع
http://arabteam2000-forum.com/index.php/...-link-udl/
لا ادرى اذا كان مسموح بوضع لنك لموقع اخرى ام لا
ولكن كان قصدت ان اساعد من يبحث عن نفس الموضوع

اخي العزيز / جزاك الله كل خير
نفس المشكلة عندي ولم استطيع فتح الرابط السابق
فضلا منك لا امرا ارجو المساعدة في ارسال ما توصلت اليه الى الايميل الخاص بي ولك جزيل الشكر والعرفان
ham_sha1@hotmail.com
اكون شاكرا جدا لمساعدتك والله ولي التوفيق
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن دمج قاعدة بيانات dmb مع عدة قواعد مثلها gonm64 3 129 02-09-17, 05:15 PM
آخر رد: Amir_alzubidy
  كيف اجعل المستخد م يحدد قاعدة بيانات البرنامج يدوياً من خلال البرنامج والعمل عليها ؟؟ softmail8 4 881 27-01-17, 08:08 PM
آخر رد: awidan76
Lightbulb [سؤال] ارجو المساعده في كود لاحضار بيانات بين تاريخين - فيجوال وقاعدة بيانات اوراكل hany1412 2 316 13-01-17, 02:21 AM
آخر رد: hany1412
  انشاء علاقة بين الجداول في قاعدة بيانات SQL aiman 1 391 14-10-16, 09:24 PM
آخر رد: aiman
  كيف رفع قاعدة بيانات اكسس 2003 على النيت abosara 2 530 26-08-16, 11:34 AM
آخر رد: Amir_alzubidy
  مطلوب كود لكسر باسورد قاعدة بيانات اكسس 2003 abosara 1 337 23-08-16, 05:35 PM
آخر رد: abulayth
  كيفية نسخ جدول من قاعدة بيانات الى قاعدة أخرى علما بأن القاعدتين لهم باسورد abosara 3 666 23-08-16, 01:02 AM
آخر رد: Ahmed_Mansoor
  الاتصال بقاعدة بيانات بارادوكس paradox عن طريق vb6 vbtemp 0 377 07-04-16, 11:52 PM
آخر رد: vbtemp
  يمكن ربط الفيجوال بيسك 6 بقاعدة بيانات MySQL على سيرفر محلي AEDC 14 6,046 20-03-16, 10:30 PM
آخر رد: bozo2
  [vb6.0] سوال حول جلب بيانات من قاعدة بيانات sql server+vb6 صدق 5 1,352 03-11-15, 02:45 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم