נושאים פעיליםנושאים פעילים  הצגת רשימה של חברי הפורוםרשימת משתמשים  חיפוש בפורוםחיפוש  עזרהעזרה
  הרשמההרשמה  התחברותהתחברות RSS עדכונים
תיכנות
RSS UnderWarrior Forums : RSS תיכנות
נושא

נושא: ביעה בחיבור ל - DB על שרת WEB מרוחק

שליחת תגובהשליחת נושא חדש
כותב
הודעה << נושא קודם | נושא הבא >>
שלומי
אורח
אורח


הצטרף / הצטרפה: 01 October 2003
משתמש: אונליין
הודעות: 12647
נשלח בתאריך: 02 October 2007 בשעה 18:34 | IP רשוּם
ציטוט שלומי

לא מצליח להתחבר מ - VB6 לשרת מרוחק. הצלחתי פעם אחת ע"י
הפרוצדורה:

קוד:
connStr = "Provider=MS Remote;" & _               
"Remote
Server=http://XXX.XXX.XXX.XXX;" & _                "Remote
Provider=Microsoft.Jet.OLEDB.4.0;" & _                "Data
Source=db\DATA.mdb;Persist Security Info=False"    conn.Open connStr,
"SECRET.co.il", "*****"


אבל בפעם הזו לא חזר לי RECORD SET מה - DB.


יש לציין כי מדובר ב - DB של ACCESS ולא SQL,


תודה לעוזרים.


שלומי

חזרה לתחילת העמוד הצג את כרטיס החבר של שלומי חפש הודעות אחרות של שלומי בקר בדף הבית של שלומי
 
Fate
פורומיסט על
פורומיסט על
סמל אישי

הצטרף / הצטרפה: 25 October 2005
משתמש: מנותק/ת
הודעות: 571
נשלח בתאריך: 02 October 2007 בשעה 19:17 | IP רשוּם
ציטוט Fate

יש שגיאות או משהו?
וזה רק הפתיחת חיבור, איפה הבקשה לrecordset?
חזרה לתחילת העמוד הצג את כרטיס החבר של Fate חפש הודעות אחרות של Fate
 
שלומי
אורח
אורח


הצטרף / הצטרפה: 01 October 2003
משתמש: אונליין
הודעות: 12647
נשלח בתאריך: 07 October 2007 בשעה 20:23 | IP רשוּם
ציטוט שלומי

הנה הבקשה ל - RS :

 

[CODE]

Private Sub Form_Load()
   
    cmbShowOption.AddItem "äëì"
    cmbShowOption.ItemData(cmbShowOption.NewIndex) = 1
    cmbShowOption.AddItem "ìôé ëéúä"
    cmbShowOption.ItemData(cmbShowOption.NewIndex) = 2
    cmbShowOption.AddItem "ìôé ùí"
    cmbShowOption.ItemData(cmbShowOption.NewIndex) = 3
       

    Set conn = New clsConnection
   
    If conn.createConnection() Then
       
        sqlStr = "SELECT tb_students.code, tb_students.lname, tb_students.fname, tb_students.class, " & _
                 "tb_classes.class_name, tb_students.address, tb_students.birthday, tb_students.home_phone, tb_students.cell_phone " & _
                 "FROM tb_classes INNER JOIN tb_students ON tb_classes.code = tb_students.class;"
         
        Set rsDgrstudents = conn.query(sqlStr)
       
        Set dgrStudents.DataSource = rsDgrstudents
       
    End If
   
End Sub

[CODE/]

חזרה לתחילת העמוד הצג את כרטיס החבר של שלומי חפש הודעות אחרות של שלומי בקר בדף הבית של שלומי
 

אם ברצונך להגיב לנושא זה עליך קודם להתחבר
אם אינך רשום/ה כבר עליך להרשם

  שליחת תגובהשליחת נושא חדש
גרסת הדפסה גרסת הדפסה

קפיצה לפורום
אינך יכול/ה לשלוח נושאים חדשים בפורום זה
אינך יכול/ה להגיב לנושאים בפורום זה
אינך יכול/ה למחוק את הודעותיך ותגוביך בפורום זה
אינך יכול/ה לערוך את הודעותיך ותגובותיך בפורום זה
אינך יכול/ה לצור סקרים בפורום זה
אינך יכול/ה להצביע בסקרים בפורום זה