تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بروجكت بحث عن اسم بواسطة seek
#1
لو سمحتوا احتاج مشروع بحث عن اسم بواسطة ال seek
الرد }}}
تم الشكر بواسطة:
#2
انت سألت والاجابة لغيرك
PHP كود :
Option Compare Database
Option Explicit

Function SeekRecord()
    
Dim conn As ADODB.Connection
    Dim rst 
As ADODB.Recordset

    Set conn 
= New ADODB.Connection
    Set rst 
= New ADODB.Recordset

    
'Set the connection properties and open the connection.
    With conn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "<Drive>\<Path to Northwind sample database>"
        .Open
    End With

    With rst
        '
Select the index used in the recordset.
        .
Index "PrimaryKey"

        'Set the location of the cursor service.
        .CursorLocation = adUseServer

        '
Open the recordset.
        .
Open "Order Details"connadOpenKeyset_
          adLockOptimistic
adCmdTableDirect

        
'Find the customer order where OrderID = 10255 and ProductID = 16.
        .Seek Array(10255, 16), adSeekFirstEQ

        '
If a match is found, print the quantity of the customer order.
        If 
Not rst.EOF Then
            Debug
.Print rst.Fields("Quantity").Value
        End 
If
    
End With
End Functio 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب اريد ان ارسل رسائل عن طريق الهاتف المتصل بالكمبيوتر بواسطة البيسي سويت AHMED213 3 2,360 28-06-13, 08:28 PM
آخر رد: samee119485r

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


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