חיפוש

עזרה

הרשמה

התחברות

עדכונים

תיכנות
UnderWarrior Forums : תיכנות

נושא: קבלת סוג המשתנה בבסיס נתונים

כותב

הודעה

<< נושא קודם | נושא הבא >>

yuee
משתמש פעיל

הצטרף / הצטרפה: 27 December 2007
מדינה: Israel
משתמש: מנותק/ת
הודעות: 65

נשלח בתאריך: 13 March 2011 בשעה 14:19

| IP רשוּם

אני משתמש עם VB 2010. כיצד ניתן לשלוף את סוג המשתנה של השדות בבסיס נתונים אקסס

__________________
כשאלברט איינשטיין נשאל, מה אתה חושב על העתיד? הוא ענה: "אני לא מספיק לחשוב עליו, כי הוא מגיע בקצב מהיר מדי"
פורום מצלמות אבטחה

חזרה לתחילת העמוד

shoshan
מנהל האתר

הצטרף / הצטרפה: 16 July 2005
מדינה: Israel
משתמש: מנותק/ת
הודעות: 4637

נשלח בתאריך: 13 March 2011 בשעה 19:21

| IP רשוּם

http://davidhayden.com/blog/dave/archive/2006/10/01/GetListOfTablesInMicrosoftAccessUsingGetSchema.aspx

__________________
עד מתי רשעים יעלוזו?

עַל כֵּן אֶמְאַס וְנִחַמְתִּי עַל עָפָר וָאֵפֶר.

חזרה לתחילת העמוד

yuee
משתמש פעיל

הצטרף / הצטרפה: 27 December 2007
מדינה: Israel
משתמש: מנותק/ת
הודעות: 65

נשלח בתאריך: 17 March 2011 בשעה 14:24

| IP רשוּם

תודה על התגובה...
טוב הצלחתי לעשות זאת באמצעות ADOX

קוד:

adox.Tables("MyTable").Columns("Field).Type.ToString

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

אני משתמש בזה ליצירת הפקדים בזמן ריצה.

קוד:

 Case "adInteger"
                Dim txtnum As New TextBox()
                Dialog1.Controls.Add(txtnum)
                With txtnum
                    .Location = New Point(100, 50)
                    .Text = "בלה בלה"
                    .Name = "txtnum"
                End With

איך אני שותל את הפונקציה הבאה לבדיקה האם הוקלד תווים או מספרים במצב בו סוג המשתנה הוא adInteger

קוד:

Private Function TrapKey(ByVal KCode As String) As Boolean
        If (KCode >= 48 And KCode <= 57) Or KCode = 8 Then
            TrapKey = False
        Else
            TrapKey = True
        End If
    End Function

אני יודע ליצור אירועים בזמן ריצה אבל איך עושים זאת מטופס מסויים לטופס אחר.
ניתן?

__________________
כשאלברט איינשטיין נשאל, מה אתה חושב על העתיד? הוא ענה: "אני לא מספיק לחשוב עליו, כי הוא מגיע בקצב מהיר מדי"
פורום מצלמות אבטחה

חזרה לתחילת העמוד

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

גרסת הדפסה

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