الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشاكل بعد التحويل الى sql server

بدأه ابو فتحى في 6 فبراير 2014 · 7 رد · 722 مشاهدة · في قواعد بيانات Microsoft SQL Server
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم و رحمة الله و بركاته 

تم تنفيذ خطوات تحويل الجداول الى sql server

On Error GoTo err_pic:
Dim db As Database, rec As Recordset, REC1 As Recordset
Dim i As Integer, X As Long, recset As Recordset
Dim frm As Form
Dim ctl As Variant
Dim VarReturn As Variant, str As String
Dim tarek As String, strPwd As String     
strPwd = Nz(DFirst("[CopyPassword]", "[OptCopies]"), "")
tarek = Nz(DFirst("[Path2010]", "[OptCopies]"), "")
Set db = OpenDatabase(tarek, False, False, ";pwd=" & strPwd)
Set rec = db.OpenRecordset("Customers", DB_OPEN_TABLE)
rec.Index = "Cust_id
rec.Seek "=", Me![Cust_id]
add:
    With recset
    rec.addnew
    rec![Cust_id] = Me![Cust_id]
    rec![CustomerName] = Me![CustomerName]
    rec![PhoneHome] = Me![PhoneHome]
    rec![Address] = Me![Address]
    rec![Mobile] = Me![Mobile]
    rec![fax] = Me![fax]
    rec![email] = Me![email]
    rec![Debtor] = Me![Debtor]]
    rec.Update
    End With

 بنجاح ولكن تمتنع جميع اكواد Dao عن العمل سواء بإضافة أو تحديث أو تعدبل البيانات او حذف البيانات 

عرفت انه يمكن من خلال اكواد ado
ولكن ماهو الكود
ارجو المساعدة 

 هذا اكواد البرنامج قبل التحويل الى 

sql server

#2

الموضوعات كثيره هنا ابحث عن الاضافة وتعديل والحذف

سبحانه الله وبحمده سبحانه الله العظيم

 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet
 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
#3

السلام عليكم

 

انظر الى المثال التالي :

Dim cnn As ADODB.Connection 
Dim rs As ADODB.Recordset 
Dim rsSQL As String


Set cnn = New ADODB.Connection


cnn.Open "Driver={SQL Server};Server=YourServerName;Database=YourDatabaseName;Trusted_Connection=Yes;"
rsSQL = "SELECT * from Customers"
rs.Open rsSQL, cnn, adOpenForwardOnly


With rs
     While Not .EOF          
              Debug.Print !CoconutTypeID         
             .MoveNext     
     Wend 
End With


rs.Close


Set rs = Nothing
Set cnn = Nothing

وانظر الى هذا الموقع حيث يوجد به مقارنة بين ADO & DAO

myblog.jpeg

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#4

اخي الفاضل 


 


السلام عليكم و رحمة الله و بركاته 


 


بارك الله بك وجزاك الله كل خير


 


ممكن شرح الكود ( طريقة اضافة السجلات مثل كود و اسم العميل ........ الخ )


#5

السلام عليكم

 

طريقة الاضافة لاتختلف عن DAO

 

نفس الكود الذي تسخدمه

 
rec.addnew
rec![Cust_id] = Me![Cust_id]
rec![CustomerName] = Me![CustomerName]
rec![PhoneHome] = Me![PhoneHome]
rec![Address] = Me![Address]
rec![Mobile] = Me![Mobile]
rec![fax] = Me![fax]
rec![email] = Me![email]
rec![Debtor] = Me![Debtor]]
rec.Update

لكن الاختلاف في التعديل حيث لايوجد seek وانما اصبح هناك find  ولايوجد edit

    rec.find "Cust_id=" & Me![Cust_id]
    if rec.eof and rec.bof then
        rec.addnew
    end if
    
    rec![Cust_id] = Me![Cust_id]
    rec![CustomerName] = Me![CustomerName]
    rec![PhoneHome] = Me![PhoneHome]
    rec![Address] = Me![Address]
    rec![Mobile] = Me![Mobile]
    rec![fax] = Me![fax]
    rec![email] = Me![email]
    rec![Debtor] = Me![Debtor]]
rec.Update

myblog.jpeg

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#6

اخي الفاضل 

 

السلام عليكم و رحمة الله و بركاته 

 

بارك الله بك وجزاك الله كل خير

 

اولا : هل ممكن شرح هذا الكود 

اقتباس

 

 

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rsSQL As String


Set cnn = New ADODB.Connection


cnn.Open "Driver={SQL Server};Server=YourServerName;Database=YourDatabaseName;Trusted_Connection=Yes;"
rsSQL = "SELECT * from Customers"
rs.Open rsSQL, cnn, adOpenForwardOnly


With rs
     While Not .EOF         
              Debug.Print !CoconutTypeID        
             .MoveNext    
     Wend
End With


rs.Close


Set rs = Nothing
Set cnn = Nothing

 

ثانيا : ممكن كتابة الكود مرة واحده ( الجزء الخاص باتصال بالجداول مع  الجزء الخاص باضافة السجلات )

 

ثالثا : ما هو كود التعديل و الحذف و جلب البيانات من الجداول

 

رايعا : هل يوجد كتاب بالعربى للشرح الاكواد 

 

خامسا : الف شكر على مجهودك 

تم تعديل هذه المشاركة بواسطة ابو فتحى في 19 فبراير 2014 في 08:33

#7

up

#8

up

مواضيع مشابهة