כיצד להפעיל שאילתות גישה ב - Visual Basic

שלב 1

הפעל את Microsoft Office Access ובחר "מסד נתונים ריק". תן שם למסד הנתונים בשם "QueryTest" ולחץ על "צור".

שלב 2

צור טבלה חדשה בשם "טבלה 1". בשורה הראשונה כתוב "ג'ון" תחת "שדה 1" ו "סמית" תחת "field2".

הוסף שורה נוספת על ידי הקלדת "ג 'יימס" תחת "שדה 1" ו "גונזלס" תחת "Field2". שמור את הטבלה "טבלה 1" וסגור אותה.

שלב 3

הפעל את Microsoft Visual Basic 2010 Express ובחר "פרוייקט חדש" מתפריט "קובץ". בחר "Windows Forms Application" ולחץ על "אישור".

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

שלב 4

הקלד "יבוא System.Data.OleDb" בחלק העליון של המודול "Form1.vb" שלך. לחץ בתוך "פרטי Sub Button1_Click" כדי להתחיל לכתוב קוד Visual Basic שלך.

שלב 5

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

עמעום myConnToAccess כמו OleDbConnection עמעום mySQommommand שלי כמו OleDbCommand עמעום MySQtrtrg כמו מחרוזת

שלב 6

הקלד את הפריטים הבאים כדי לפתוח חיבור למסד הנתונים Access בשם "TestQuest":

myConnToAccess = New OleDbConnection ("ספק = Microsoft.Jet.OLEDB.4.0; מקור נתונים = C: \ QueryTest.mdb;") myConnToAccess.Open ()

ערוך את החלק של הקוד "מקור = C: \ QueryTest.mdb" וכתוב את הנתיב שבו שמרת את מסד הנתונים של Access.

שלב 7

כתוב את הפעולות הבאות כדי לבצע שאילתה "מחק" במסד הנתונים שלך:

mySQLStrg = "DELETE Table1.Field1 מטבלה 1 WHERE (((Table1.Field1) = 'John')); MySQLCommand = New OleDbCommand (mySQLStrg, myConnToAccess) mySQLCommand.ExecuteNonQuery ()

באמצעות שאילתה זו תמחק את הרשומה שבה "Field1" שווה ל- "John".

לחץ על "F5" כדי להפעיל את התוכנית ולחץ על "Button1".