نمونه مثال برای کار با پلاگین odbc

[MahmoodM30]

[FONT=&amp]سلام به همه دوستان عزیز امروز یه چند ساعتی بیکار بودم گفتم براتون نمونه کد برای کار با پلاگین [/FONT][FONT=&amp]ODBC[/FONT][FONT=&amp] بزارم چون
قبلا درخواست های مکرری برای کار با این پلاگین شده بود منم این تصمیم رو گرفتم.[/FONT]

[FONT=&amp]البته تمامی کد ها خیلی راحت و آسونه و همون کد های کار با پلاگین [/FONT][FONT=&amp]SQLite[/FONT][FONT=&amp] هست و چیز آنچنان بزرگی نیست که کاربرا فکر کنن سخته
[/FONT]

[FONT=&amp]منم فقط کد های مربوط به ذخیره و ویرایش و حذف و جستوجوی ساده رو میزارم تا از اونها استفاده و بدونید که چطور از کد ها استفاده کنید
البته بعد ها که وقت زیادی پیدا کردم براتون یه نمونه مثال کاملتر میزارم ابتدا نمونه [/FONT][FONT=&amp]Sample[/FONT][FONT=&amp] آماده پلاگین رو از زیر دانلود کنید[/FONT]


[FONT=&amp]و 4 تا دکمه توی صفحه قرار بدید و اسم هاشون رو به ترتیب ذخیره – ویرایش – حذف – و جستجو با نام بزارید و داخلشون کد های زیر رو بنویسید
و کامپایل و کنار فایل های خود [/FONT][FONT=&amp]Sample[/FONT][FONT=&amp] قرار بدید و سپس اجرا و نتیجه رو مشاهده کنید.[/FONT]


[FONT=&amp]در کل ببخشید که نشد به صورت فایل قرار بدم من با ایرانس وصلم و سرعت آپلود بدجور پایینه یعنی بیشتر از 200 کیلوبایت رو نمیتونم آپ کنم.[/FONT]

دانلود پلاگین و Sample

کد ذخیره :

If (username$ <> '' & password$ <> '' & email$ <> '') Then
  DatabaseName$ = 'ODBCPlugInDSN'
  User$         = ''
  Password$     = '123456'
  SQL$ ='INSERT INTO Users (Username, Password, Email) VALUES (\'' + username$ + '\',\'' + password$ + '\',\'' + email$ +'\')'
  Parameters$   = DatabaseName$ + '|' + User$ + '|' + Password$ + '|' + SQL$
  Parameters$   = DatabaseName$ + '|' + User$ + '|' + Password$ + '|' + SQL$
  [B]PluginSet[/B]("ODBC","Parameters$")
  [B]PluginRun[/B]("ODBC","ODBCQuery")
  [B]RunScript[/B]("Show Data")
Else
  [B]Message[/B]("Error","Please fill out the form.")
  [B]Return[/B]()
End

کد ویرایش :

If (username$ <> '' & password$ <> '' & email$ <> '') Then
  DatabaseName$ = 'ODBCPlugInDSN'
  User$         = ''
  Password$     = '123456'
  SQL$ ='UPDATE Users SET Username=\''+username$+'\',Password=\''+password$+'\',Email=\''+email$+'\' WHERE Username = \''+username$+'\';'
  Parameters$   = DatabaseName$ + '|' + User$ + '|' + Password$ + '|' + SQL$
  Parameters$   = DatabaseName$ + '|' + User$ + '|' + Password$ + '|' + SQL$
  [B]PluginSet[/B]("ODBC","Parameters$")
  [B]PluginRun[/B]("ODBC","ODBCQuery")
  [B]RunScript[/B]("Show Data")
Else
  [B]Message[/B]("Error","Please fill out the form.")
  [B]Return[/B]()
End

کد حذف :

If (username$ <> '') Then
  DatabaseName$ = 'ODBCPlugInDSN'
  User$         = ''
  Password$     = '123456'
  SQL$ ='DELETE FROM Users WHERE Username= \''+username$+'\';'
  Parameters$   = DatabaseName$ + '|' + User$ + '|' + Password$ + '|' + SQL$
  Parameters$   = DatabaseName$ + '|' + User$ + '|' + Password$ + '|' + SQL$
  [B]PluginSet[/B]("ODBC","Parameters$")
  [B]PluginRun[/B]("ODBC","ODBCQuery")
  [B]RunScript[/B]("Show Data")
Else
  [B]Message[/B]("Error","Please fill out the form.")
  [B]Return[/B]()
End

کد سرچ بر اساس نام : یعنی توی ادیت باکس Name هرچی بنویسید و دکمه رو کلیک کنید اون نام رو فقط توی لیست نشون میده.

If (username$ <> '') Then
  DatabaseName$ = 'ODBCPlugInDSN'
  User$         = ''
  Password$     = '123456'
  SQL$ ='SELECT * FROM Users WHERE Username LIKE \''+username$+'\';'
  Parameters$   = DatabaseName$ + '|' + User$ + '|' + Password$ + '|' + SQL$
  [B]PluginSet[/B]("ODBC","Parameters$")
  [B]PluginRun[/B]("ODBC","ODBCQuery")
  [B]PluginRun[/B]("ODBC","DBError")
  [B]PluginGet[/B]("ODBC","Error$")
  If (Error$ = '') Then
    [B]PluginRun[/B]("UO","LVClear")
    For i=1 To ReturnedRows
      Rows$[i] = GetArrayItem(ResultSet$,RecordDel$,i)
      Rows$[i] = Rows$[i]
      NumberOfFields = GetArrayNum(Rows$[i],|)
    Next i
    For j=1 To ReturnedRows
      ID$[j]      = GetArrayItem(Rows$[j],FieldDel$,1)
      Username$[j]= GetArrayItem(Rows$[j],FieldDel$,2)
      Password$[j]= GetArrayItem(Rows$[j],FieldDel$,3)
      Email$[j]   = GetArrayItem(Rows$[j],FieldDel$,4)
      [B]PluginSet[/B]("UO","Rows$[j]")
      [B]PluginSet[/B]("UO","FieldDel$")
      [B]PluginRun[/B]("UO","LVAddVal")
    Next j
    [B]DisplayValue[/B]("records","ReturnedRows")
  Else
    [B]Message[/B]("Error","Error$")
  End
Else
  [B]Message[/B]("Error","Please fill out the form.")
  [B]Return[/B]()
End

[FONT=&amp]
[/FONT]

 

[sibil]

سلام محمود جون . خبلی ممنون که کمک کردی . اون نمونه رو هم خیلی سرع خواهشا وقت کن . امام تا حالا هم کلی کار راه انداختی .

قرآن کریم

فَسْئَلُوا أَهْلَ الذِّكْرِ إِن كُنتُمْ لا تَعْلَمونَ؛حديث

اگر نمى‏دانيد از دانايان بپرسيد.243. زكات علم، نشر آن است
​

باز هم ممنون

 

[sibil]

سلام آقا محمود .
هنوز فرصت نكردي اون نمونه مثال كامل رو بزني؟ ......

 

[MahmoodM30]

دادا نه هنوز کلیت کد ها همینه دیگه یکم روش کار کنید خیلی راحت میتونید مشکلتون رو حل کنید

 

[sibil]

جون حاجی یه نمونه مثل همودsql درست کن که امکان ذخیره عکس هم داشته باشه ..
خیلی مردی !!!!!

 

[MahmoodM30]

فعلا در گیر چند تا پروژم واسه این وقت نمیکنم دادا و الا حتما میساختم ولی فرصت شد به چشم