آژانس هواپیمایی
pop up

SEARCH WITH SQL WITHOUT ADO

شروع موضوع توسط حميدرضا ‏6 سپتامبر 2005 در انجمن Visual Basic 6

  1. حميدرضا

    حميدرضا کاربر تازه وارد

    تاریخ عضویت:
    ‏6 آگوست 2005
    نوشته ها:
    5
    تشکر شده:
    0
    :rolleyes: سلام دوستان
    برنامه جستجو كه با اكسس و با ديتا نوشته شده بود من ميخواهم با بانك اسكويل و با اي دي او يا غير از ان استفاده كنم براي همين در فرم يك آى دى آو ايجاد و انرا به بانك وصل كردم و يك ديتا گريد هم اضافه و ديتا سورس انرا همين اي دي او گذاشتم و يك تكس باكس براي گرفتن مقادير جستجو ... و لي عمل نكرد و در قسمت رفرش
    خطا گرفت
    لطفا يك برنامه ساده كه بانك ان اسكويل باشد و جستجو ساده براي فاميل داشته باشد و با اي دي او هم نباشد
    از كجا ميتوانم بدست اورم
    باشد كه نيكيتان را پاسخ دهم
    -گ-گ----------------------------------------------------------------------------------
    'Code for search
    Private Sub cmdSearch_Click()
    'With Data2
    'Query to find students with particular grade
    ' .RecordSource = "Select * from students Where Grade = '" & txtSearch.Text & "'"
    ' .Refresh
    'End With
    With Adodc2
    .RecordSource = "Select * from _T_ADAM Where LASTNAM = '" & txtSearch.Text & "'"
    .Refresh
    End With
    End Sub
    'Code for complex search
    ×-----------------------------------------------
    Private Sub Form_Load()
    'With Data1
    ' .DatabaseName = App.Path & "\Test.mdb" 'set database name
    ' .RecordSource = "students" 'set table name
    'End With
    'Data2.DatabaseName = App.Path & "\Test.mdb" 'set database name
    'Data3.DatabaseName = App.Path & "\Test.mdb" 'set database name
    Dim DB As Database
    Dim RS As Recordset
    Dim SQL As String
    END SUB
    ×-------------------------------------------------------------